From owner-sc22wg5@open-std.org Sun Sep 26 20:43:23 2010 Return-Path: X-Original-To: sc22wg5-dom8 Delivered-To: sc22wg5-dom8@www2.open-std.org Received: by www2.open-std.org (Postfix, from userid 521) id 688E4C3BA0A; Sun, 26 Sep 2010 20:43:23 +0200 (CET DST) X-Original-To: sc22wg5@open-std.org Delivered-To: sc22wg5@open-std.org X-Greylist: delayed 545 seconds by postgrey-1.18 at www2.open-std.org; Sun, 26 Sep 2010 20:43:22 CEST Received: from e5.ny.us.ibm.com (e5.ny.us.ibm.com [32.97.182.145]) by www2.open-std.org (Postfix) with ESMTP id 58210C178E3 for ; Sun, 26 Sep 2010 20:43:22 +0200 (CET DST) Received: from d01relay06.pok.ibm.com (d01relay06.pok.ibm.com [9.56.227.116]) by e5.ny.us.ibm.com (8.14.4/8.13.1) with ESMTP id o8QIE00r022009 for ; Sun, 26 Sep 2010 14:14:00 -0400 Received: from d01av03.pok.ibm.com (d01av03.pok.ibm.com [9.56.224.217]) by d01relay06.pok.ibm.com (8.13.8/8.13.8/NCO v10.0) with ESMTP id o8QIY1La1777784 for ; Sun, 26 Sep 2010 14:34:01 -0400 Received: from d01av03.pok.ibm.com (loopback [127.0.0.1]) by d01av03.pok.ibm.com (8.14.4/8.13.1/NCO v10.0 AVout) with ESMTP id o8QIY1K6002274 for ; Sun, 26 Sep 2010 15:34:01 -0300 Received: from d25ml04.torolab.ibm.com (d25ml04.torolab.ibm.com [9.26.6.105]) by d01av03.pok.ibm.com (8.14.4/8.13.1/NCO v10.0 AVin) with ESMTP id o8QIY1QU002267; Sun, 26 Sep 2010 15:34:01 -0300 In-Reply-To: <20100926181306.C0748C178E3@www2.open-std.org> References: <20100917110934.5E9C1C178D9@www2.open-std.org> <20100917120837.A72F3C178D9@www2.open-std.org> <20100926181306.C0748C178E3@www2.open-std.org> To: fortran standards email list for J3 Cc: j3-bounces@j3-fortran.org, sc22wg5@open-std.org MIME-Version: 1.0 Subject: Re: (j3.2006) (SC22WG5.4337) Has something dropped out of Fortran 2008? X-KeepSent: A6086C74:612DCDB5-852577AA:00658446; type=4; name=$KeepSent X-Mailer: Lotus Notes Release 8.0.1 HF105 April 10, 2008 Message-ID: From: Jim Xia Date: Sun, 26 Sep 2010 14:34:01 -0400 X-MIMETrack: Serialize by Router on D25ML04/25/M/IBM(Release 8.0.1|February 07, 2008) at 09/26/2010 14:34:00, Serialize complete at 09/26/2010 14:34:00 Content-Type: multipart/related; boundary="=_related 0065FC97852577AA_=" Sender: owner-sc22wg5@open-std.org Precedence: bulk This is a multipart message in MIME format. --=_related 0065FC97852577AA_= Content-Type: multipart/alternative; boundary="=_alternative 0065FC97852577AA_=" --=_alternative 0065FC97852577AA_= Content-Type: text/plain; charset="US-ASCII" Neither XLF will allow your program to compile. This has been restricted The relevant text in F08 The similar restriction on assumed-shape or pointer arrays can be found in Fortran 95 standard. Cheers, Jim Xia XL Fortran Compiler Test IBM Toronto Lab at 8200 Warden Ave, Markham, On, L6G 1C7 Phone (905) 413-3444 Tie-line 313-3444 email: jimxia@ca.ibm.com D2/YF7/8200 /MKM http://www.ibm.com/software/awdtools/fortran/xlfortran From: "N.M. Maclaren" To: sc22wg5@open-std.org Date: 09/26/2010 02:13 PM Subject: (j3.2006) (SC22WG5.4337) Has something dropped out of Fortran 2008? This arose out of the Interoperability and MPI area. None of NAG, gfortran or Intel allow me to use an element of an assumed-shape array as an actual argument where the dummy is assumed-size. No problem - except that I can't find any such restriction in Fortran 2008. In the absence of that, 12.5.2.11 paragraph 1 is a little ambiguous. Is there there and I failed to find it, is it a change, or has it dropped out by accident? A program that shows the error is: PROGRAM Main INTEGER :: i, j INTEGER :: a(9,9) DO j = 1,9 DO i = 1,9 a(i,j) = 10*j+i END DO END DO CALL Fred(a(5,:)) CONTAINS SUBROUTINE Fred (b) INTEGER :: b(:) PRINT *, b CALL Joe(b(1)) ! This is erroneous END SUBROUTINE Fred SUBROUTINE Joe(c) INTEGER :: i INTEGER :: c(*) DO i = 1,9 PRINT *, c(i) END DO END SUBROUTINE Joe END PROGRAM Main Regards, Nick. _______________________________________________ J3 mailing list J3@j3-fortran.org http://j3-fortran.org/mailman/listinfo/j3 --=_alternative 0065FC97852577AA_= Content-Type: text/html; charset="US-ASCII"
Neither XLF will allow your program to compile.  This has been restricted

The relevant text in F08



The similar restriction on assumed-shape or pointer arrays can be found in Fortran 95 standard.

Cheers,


Jim Xia

XL Fortran Compiler Test
IBM Toronto Lab at 8200 Warden Ave, Markham, On, L6G 1C7
Phone (905) 413-3444  Tie-line 313-3444
email: jimxia@ca.ibm.com
D2/YF7/8200 /MKM

http://www.ibm.com/software/awdtools/fortran/xlfortran


From: "N.M. Maclaren" <nmm1@cam.ac.uk>
To: sc22wg5@open-std.org
Date: 09/26/2010 02:13 PM
Subject: (j3.2006) (SC22WG5.4337) Has something dropped out of Fortran 2008?




This arose out of the Interoperability and MPI area. None of NAG, gfortran
or Intel allow me to use an element of an assumed-shape array as an actual
argument where the dummy is assumed-size. No problem - except that I can't
find any such restriction in Fortran 2008. In the absence of that,
12.5.2.11 paragraph 1 is a little ambiguous.

Is there there and I failed to find it, is it a change, or has it dropped
out by accident?

A program that shows the error is:

PROGRAM Main
   INTEGER :: i, j
   INTEGER :: a(9,9)
   DO j = 1,9
       DO i = 1,9
           a(i,j) = 10*j+i
       END DO
   END DO
   CALL Fred(a(5,:))
CONTAINS
   SUBROUTINE Fred (b)
       INTEGER :: b(:)
       PRINT *, b
       CALL Joe(b(1))    ! This is erroneous
   END SUBROUTINE Fred
   SUBROUTINE Joe(c)
       INTEGER :: i
       INTEGER :: c(*)
       DO i = 1,9
           PRINT *, c(i)
       END DO
   END SUBROUTINE Joe
END PROGRAM Main

Regards,
Nick.

_______________________________________________
J3 mailing list
J3@j3-fortran.org
http://j3-fortran.org/mailman/listinfo/j3

--=_alternative 0065FC97852577AA_=-- --=_related 0065FC97852577AA_= Content-Type: image/gif Content-ID: <_1_07086A48070864840065FC94852577AA> Content-Transfer-Encoding: base64 R0lGODlh7AJDAOcAAP///wAAAMDAwAAA+Hh4eMDA+JiYmFBQUPDw8IiIiHh4+KCgoMjIyNDQ0Gho aOjo6ODg4LCwsDg4OJiY+FBQ+NDQ+MjI+PDw+Gho+KCg+IiI+ODg+Ojo+LCw+Dg4+AAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwAAAAA7AJDAEAI/wABCBxI sKDBgwgTKlzIsKHDhxAjSpxIsaLFixgzatzIsaPHjyBDihxJsqRJigscACCwAMACAhQDCCAYIIAE BAwXBBgo86CAnQJ/NgDAYKcBmC5VFhzQAYCFAQAuDKgAgGnVAgMLQAWgVaDVqV6xFuwA9alArRUy cNgw4IIFDxe4bu1aNYNXu1UrXPBgAUCFtn+pmr2KsKeEBwAeIKUZgShQgnv7kr1AgSoADXYHiB2A d2rkqJoBTFAgMAMGvx44KOAQ1QPWDhg+SxVL8HBiAggkMAAQYWeAxkUF9gTwm/hQ4gYetEw4HIBQ xwAMJAAAIQBOgggCDP29YDqABgdwBv9I3lLoAgi6v1u3DkDp8Ag3uwsEL3659ty7s88kvj+A/aG6 ZQfBdQPJFhphhAXm1AAb5OUXWE8JBhUHA7CWgWUEkQUaVWipxdYFUm0Q14GhKfhUg2BNoAEAH9bl FVUHGgSUe/8RBxxQwzVH034EGICfegQKZJti2W3XWHHB8cfbTkU6p90CiDHkX1CPEfQTTf/lNlME SmVYFlSfaUiXXGdt9ZVlMZ6k5ppstunmm3DGKeecdNZp5514dtSYkw0AJcABbGaggQITCEQBZxSc VgEGGCiAwQSH6hUpZZxNgEEHGVjaFACCDsrBoZkqsOIGGAygAF4CHaAdUQlI551AEDj/cNR+A6m6 wFHePdBqAi0hYKsBDuwJLAEOQODSrg9AoCoAvvoH7J6KSdcTBD0SMBQBEkjQngQtSWetQN0dVSWr rlJHALEtvZSAA/3NFOtRBqTq3wFdEhRrACwJ1yoB3lF7VJQDDVvssdIhZiu9B6vkLwGIRdDqTqqe e0C84CLb7K3BChRtAj2p2sDFzwrEpQPEUiyQaiqGNunKlV6a6aUAgDqaBgVoCoACA5xG1ooDZSAq Blht4IEHEzC4qKMKUNCBB1AVwHTMlYpaM8wsEroapS93QKqpqIr8sJMY76kuu8K1WxC+3kbZXQIM E+SwAUAJDMG7PfLkrqwEuJst3MbK//uxxyBn7GTFbD/AwK7TvV3lvfn+FDbhbQ9E6mhibaCAoxls fSrUkoLlswZAh1XQ56GDmqhfjTaq9NNOQyWz1DZXPRoHWGuqedd5hqTa5ZezlvvvwC8kQN/BrxTA AceNpNi55wJs0qC0RWQ57w0Wb/31v09/efXY983vA+wJoK2aHpObwKu3Sbvf2gwTcDxu3dUNAODl X8n4cgGTXKzjIR8rf8L+M1kD9AcBjh3gWwtL1t4CQLyChCsBD3hAxHbDLANay30q6U0CIkYsB6jt fJGbDwGJsy/vjG0mAKTbfqiFrvuZ6yhDAaBA3HeA3hzGfREAnAW3U0Ls7JCEuIJVtf+SBwCOMURu /BNc/CgGwCXmj1gFfN9QEogeCfBtR+A7AAPK9yt+aaxHHKNVqhqIoJtpwFIYKoiCDrJGZSVEV9Jp SRWv6DfefI0gTpyfs7xoryEO7oUMC1wEyiUQb8VwjwlAwA8HAkdeUWeBxFOcHv+2qp8Y4CgtOZyr XJgwLiJShMQigBYZuauWSBBfFKQO3mYiSAeCEDHDMaQeb8UvAfQvgYJ0IfZ2yUuTVYRtYqQhEXlJ zGJeRDElCeHwjMnMjLDwXGRsZki89yodneSBiKEhbuy1Smb9SnB45BfZEjZHBtItXhhcEvp0GYAe qnJWqsQX/uqoyfNh55tis9giB6L/Qm86C5w9+xlWLHBGDayoA2d0nWdYljUV8Uw0g7KMoEazFYIQ 1KFyyRqLHkUoFjFtUI8SiOVGk8aCHOpyFChUaQq6lkNFRWaXup1AVKQAqpjuNAhppBwhSZCTOgoD vpuoBnynmQocqikU4MvraBY7obLmpkIbAEirJ9WZscilqHMU92DVzXIqa14qcSJ4inOA9DDHlBMc iCKlCEQ+LmyYHHSAB71KMAiCcmDsQ8zGOnYfj3n1rQUpXz3R18q6GuyTsqspmRJLO5hiKnY0tWnU NHABDQyAAool3WaiBy5xohCxBHNfQb7qNbhJs5jAPK1qL/KpnMVFIb4UCM4qc5Jl/1ZktiVNCAcw MNSNtJY0cnqAA+wqJ2Gu9rjIvQi1kscACeArSAjRScAMkCSCpPJKHdmA7yCSJjxpFyETK0lKG9Jd ipR3ItaUCAQAhl3k9sQAgMrIeZO7kO82JL0yMlt+R4Jf9OJPAg2QgBiJsiOP9CUi86WIc2uyk7Ei TyI6qUl8F+DcECJElBIgAAMwuBiCrAtKE4xYUvgVzUFNwDSjahRlAdABzFbPxLO9DKEs5bPLblcg sDlxowpw0rhQaACXtQyMLztbCxR5thzYnQIs8FsLnJTFLi4IDX21q2EWsUcpQd/JkNaX3WHALrO9 wJFtPNKiUaBBphGV5TgDgFLFhv9U25Odmbc6vyrfhmS7YZsBskxDxOgZWC8JgAOWI1qD5JAA6w0x vqKD54PEil84SUnzjDfoxEQMJ8vTcJ2lsx0wElfSbaPhho+XrB7B7QDUOh4CRN1nBgvaymW+bIM6 MOMBeGADJ3WyVC1LgSbn+smceuhYHjUBTfUYAD8GMgaoQuti2xrXptK1QW0smkb1Zcy9brEC6Ayv BOyG1aTWM59J3WeDyGptXzxXKmtl50cn8sp7Hm6fuXTJZ106VbEdyIYlcMBTfqsgHzaeFvv8aEQb JMdproBqrC0Q0OFlyBSQcbG/jGT6WjxP5bMIesYlkYxjxOOnBblFInVxjWycIZ7/JKLIObJyZzrX 5C+HE8lLbpAAN2C9ibH0gEnyF9AUgDQxUilBQsMWrNDl6FDx2UCAvtkH3exsM2FPbmiymyt1OEcC +NFK4oXdK6UEVrQUSHMR0HU/MUnAiZGJlgqJmAZE4AHpOQrb5f5HnuAkN77ak7fDt+ieBGA34BMA TJojgHmqZyVlK5vWO/x16oSdKDdRUuKZZdbB311bw6k03cdedsrPJPCJ7zwC8i2QvWCFQk0v+mKR LjrCjCkD3f1LXLRCmjEpYFMD6TmLzdT0rnzm6azvOXAF4m3h/PFKfcLJTwavX7uJPT6LufrlGw8B nQBeJswnTtV3kjeOK6k6M+n8/+BeMhB+UbCd5y9InxDfefLPcOh96UrSNkVZ4Yuu6LKXC9MJkn/a l/H2arQVGoIgoeF7fCFbqwcV9kdzDdFyhUQAe7IQJ+cQE1g8LARdIOGAxaOBBMGBBqErJGMt9TJa MScnHgheq1IQyIQQFdAgbnERFpY7FchLMxgnF5gRJ2gnyREd2nIAC4AAssImfnd5aoV2oOd+iNcT 66cf2Qd+f7R+jKcU1dd5S4h9kleFgrd2EBAvf7cSi1d3iuQ8m3cT7cUTeQYuzfEe4YGEi6GFXNgu yeck2Scc27cSNUR8CACFaxcdsLRzxkN2XTh5XTgdWHc2Z4h1e7iDAxFgqbQARP9EfQtAhUxihcOB hSwhhS3RhbhReXVHEwOCdpKHiEZoTai2FGIhKCJ1a5zSF7hWAAWQAQOFF634imLhRs4xT4vHdd43 hJS3iJMoeKFIK4n4AFfyheL3Xkixg4WoiUVIQXVThsJBhNPSEz9xHWCUflA4ecGYeBB4ELnYido3 ON1HJeFUfkpCd8poNsXIiZKIeAxYEEcRgRuYgu9YElFVX09Tjx4xc+IFFr+zbwckRNt0EDloEgVZ J/fYJvxIETVYEjtoAOMjeWoyhuKxc11odeLni8rXd7TSXl0YeDChE36Yjdt4kdxHkgUmdRFJjoND keGoZSa5EhkpEP1nKhpwYFD/0RatQRiqx3qEMRozxQFAuVhDFxd7kYBV0WWaoQBa8VpfZnpBGYYG cSBfJhrA9RYX4JNdYX9DOQGsESOFVxDfCI0DcSAtdgFDiZVlNDSvRYBGBxVpCRdl1JRcIZck8pat ETRCR4fiWIaV+ItIkS04wQCGhyUsaYhFFIzDCHUiEx7tRZFuyIZrB3rfR41AsZgpSYRWYnbRgRRj F4xQKRocYIAHVntzcZpWGZRumZQ3U5P7RxBxuHzbSHdkeSXFRxz6mJu6uZu82Zu++ZvF4wB5phIZ wyUxQSvUlBOPwUAHsX6HqRGhyV2cJRE31hHRGTwJJp0Z0V8OsYfgqFrcmVML/5GddFKdHHGdChGe guiH6okR7ekQU+IcK+mLBcYRuqedHAEeiLF24oOB97VzvaGczmcQV1KHg1McCXE5FdCUT/FaIzJQ SHkzXqkZD3pwy+Z7Y3IzjGIZPnmXYUGXWYGahHFgBcYAEMAlHTZD1lKNBdGgpTcmGuKhVzEmoWEV LUoBPJOhNDqdJoqiRXEdOHEuDcCiw9EjgVeRUjITBnolCHoQPyoQ2RGBfteRZhckDECYJCN52VEU Uhp17eKR+lWIwAJQIVqWTed6IlqAIkoXT2EBuJchFGABs5GVFaWhVLOaHYoVNmqmohMaJCp2RCFK 67kSK8oehbhfS8KiCNGjeP/GHsxCqENqqFuiRfoBiBARn2Q5OOf3pd43ELCxoF/ioGQSfyJKKKhX ocCZXKlxMh6QqqulZdbznhkhAcSDHmzyFk9HEaqYiq7aq776q8AarMI6rMS6m1/lQdRxb78ZcQax AOtWJ4QJn34YEZkaEbIKXvW5Wj0RrRdBngzIrApRrYwpkdr4EddKrZ36EPH1nRcBrg/hrW/irvlJ q1G6aukqEmlBIiTKFyHSempaJgB7WcWGM3hap853aorISILHcVhXXQHaeU1qI2YoflcCpj/RKnBz HHQkaJekHQgKjQhLjBwHAQs7ecQIN/3xrAXhl5y6L1USsU3ahYEYjk7isgL/927v4RtSygCdB6ah x5nVgQACQhA76q94GaEeenStmjkGsQE/J6IA4Bp1CbCLlbRNU1UEy3oZWn4SkADGkpEkW2iHOqDa dzyXVGgzdDyJFLGJYUuHSoyFlqmFSLG+MTHicmpeuxJdS0btBbF2i7Yn87RESbVGK1KCW0aSc7gD sK9G16pI23tXe0ZZi5pbu5u0FRWVW6yqRXq5c64W8WDMIq4iIZQTcbmDoVoRpLnAY7oGq7qu+7qw G7uyO7sm8VXbZLv+ORLOKq2F8TEqixDtta4JIboVEYn5uRMMQCDGCxKe6xDCixG76xK0wp3LS64K kRu4eK/EixLTmp4DFr0L/2FNG9YzsEcbTFkA5ukBVMEWfxq167u4xPe7EcGtILG9xdu9GbG9z4tH 8isR65e8GtG86voR7kOGnLkm72W27LWcUfe3vkErDSCSgzqTwiGPGRnBObJuGBx+4zIcFysu7MoT O0uWhKct5zF5+mG2IPyc20gdJUuzGlOy0Fh2GLsqMzsQOdQe1vFuLdzD2oh1H5yxOEyPhcQYm3mY G8yXiyjBbOvB7QTCcostBHKoMuGzNDGV01kVb1oaezk6XdypDrsTcjsTNMTDS0zFVFrDkVqzUHzA ficrQryMAxbG31nGSKok7dUbePu1L5tKaAwAaCc+1vUYD8txcHvAfunASv/CsXGsjmL8xKLVs/dK u9KEAIU5EQ/gSwJMyb05viahaUXMyQ3xALn7ucdRXaKcyqq8yqzcyq7cELgLKwlgZW5yH/1LJ8L7 nvsLLrcMEdXLTJlbEMG8JhaAOyaVJ/C6Ed2VAe0rJ/H5v0FSvZvMvPj7EOBLEsOMEbCoEMkcrhxH vyBRwFNczea6s9Ybw3F7wKP1wjNbhidLjSYcTSxrsi9crQk8Mc5zfDprhueMzojsfU5LsGamAQ0y WytmtVRbo8Q2FTZauWbmlRE6mkVztLunFWdUNLnFp7unxWVpAVp5tWW50DDSzIM8xCF8ILOxp/B7 IB01fAit0n0Bv1Q7GwX/O7gfWM99DJsSvHXumJ7LMcYDWsVPLMT1qR8eOcIv68BWPLdmp8aMGbIr y5kxuxtYZ9HOBqpyIbkgjZQ5c9WrmSYBzXuOxs5m87Ech13Ykrev/BCZvNZtks1qVZjdrBGc+65Z vBBMqxFwzSYn7Mzk7NaAHdiCPdiEXdiGfdiIndiKvdgngWGgHI8J0ZAK6Y+qvJAUYdkTcZAMIdnN pNkMgdnE6oEpZxCeHRGlbRAAiRQ3iIK0vCagXRHHihhfVYoR4T7DAXd/U9cDIV3C4bukPRD2GxHb jGB3TSfD3ay9rBHMTF7FjZ8XMc3gQqX0ta2XPBFzbXHHHb7kPLbZSs0B/7wc0BxY3a0R8srcHLEn TGos1XGc6teevK1NQeJCSZRPhWMQmkWTqbMBvFZT99g6K9VRrUcQk8OUHkU0DMJijDJ/rPM0S2UB VpVYnZM1lUVkJSVYiNOsnnUQ01OVHFBQdkFyS7VlKXOKBrUaE8A0Ez4qVsMaKGNZPHrhLFRpJzR5 eSRDBrFWBzQU811IbEPLAwRFhjVL9PJXfiRJcYWsQd5FuQJGfHVItOQdA6Q/+dbiKrNQVt5QBvVS LfNYl2JUVpFU7TvghSI0Bj5rCf4oLBPhmoJRMxVRUBMqlLXfuSVJbWVCGe7DPAFGFANYBTFY3zFC M/59eBMvdCUlaIVK3P8kT/oSRICUzxtFOSJ1OV92O/2dj4IC4IirEQGm3gwWTbyLHecioOUK3I/h t2cL0IK7tTHik35RvgFOEKNJsET5Ibj6uEZr1Ridp4UxE1BtEGHLcRl6ujF6pppRtAJLUTjmj1aN M0ULjwpMlr+ujUkMw8wh3QcKx0TciVMNwzTcsQ1gx1oqE9sOxAw8qEoSIMwpzBUlo/9atUfrky2N EBLd7izSFv1a0+5eFSL91Xed1n1zqNGO55PXG0Gc7SEL7WQdwygbwoXx0943z/zxwYA7ELG+1WVK tWOSr2eq6QC2Xvohn6XsvUHhtas2ggfB2/2cje0XfQE4e6YClRtQKPD/Sxq6pyE9NxuvCX9kwpQV dQG4U/Ni7Zah6ZUd2hfClngq2d4bmaKUQX+/11HsXgBQiXqcMnykEfOUgRVPP/XlpZJ5F798l32W KJFhKSPfps+dyXZiiXZb6JKEd5mgmBxJr4aj55mRJ4qf98fnqBBcn3rtThd/D7VseRDwi3o8XyBd zJOBLzpd+ZVNN/MAl37BGJscOepK3CqYaXeU54aUn30fiX1leM0y4vDNyX3r+YVLQao3ozQNdwH2 B/ROh/OZztgcwbq03xG63bl/jYPHYaluktcScbl0Sl+kfPvGbxHas23Hn7+eDjzGRRKZNmlrslu9 RRFK1jvLn/3av/3c/9/93v/94B/+4j/+ckLS4YUn8PXpFhHcIl8R6wbdePJeu0zcwEnSUf2fow7/ 2l2/k8wQ1wUQAQAMJFjQ4EGEACwkZAhgQIGGESVOjLiQ4kUHDAAkcABAQgQABAxcJFmyIQeTJCsM SNnSZcsAAl4OFCBwZkyXDWwOxDnT50+CPS8+YPgQ6NGDKJEWXCmx5sSeQnnKXFpQKtKnOXdmBdq0 pFGXSqsC8Dp2gQOdAxnsHJtwQAeHFQYOmMAhAwAPFi4M2HDBIcS/ZAfItTBYIcsJCgZmwODwblwA BVgexCmB6AMCBSMIXEt5Ac8GCA40GJjgs07SnRNkBhAgwoIEAxscQP+QFTWAzggkaEQQU7dGnQgA CLBMQLiB2BACIFjAmutAywAw/wawuTXIzq1lWu9NurWBB58RPg8gPkBoCds7ElzN83VsALOFBwD/ mX543epbC1/f08FI2GSj7bbcdgOgN6pwIlAg5RDoDQLhBrogLwD2Agwso1YizLDC5npsgLs6BACD uzjQwKC3DhtIsgoy4IBCCzzwS7IVJwPRQxUnhKiDxjRUkUbKBuqoptRscg03IxOkKiiqBKDNANbO soq/jVhzjbvzpqqOM5uIXIAoJrVckCaBoBzorOgwa01Ig7giEkkAzARASoI6YKnDCReyM7LJ5roQ ohRFBIugQG2s6y7/GGXks0YcHcvRgx175JAlIJeaDcyaAnDggLYaUqCuh/wadAIMMIDLT1SBVJWl FAvCECIaLQqTAQgicIC1gWxt4KkItdSOK+uyeurIgXoDaSphuxSIq5hq6pWgCA4w71j3yDSIVlsJ WCtC4QggYNfltKvuAAYQnG/J8TjztVm2rKLW2DCF6uk53Bg4K7OerCP2V2WH2ykqmZIdiAAHHKCW UVQDC2xVhF9ddCBIFTNIAQUqkGzGPjXwQAEM5HoYSIdprBRhke8sSCMGCOBU4JC+dVZcmMOcat9r 7b11XwSiLdc3cXXlld51A+7X3+tObiAClVFWuU11Baa5IB4tvnMA/78qXNQihymWWlTACNL6YoUB 0JhjjxlW2KiSDWI4VqQkCODtMt8+uNODNPiU1AwUGIBEADgY4O+95erg7gE82ICCARSwAHHFGQeA MQU02EBvCiygHCUN+CaIgABoOyAB5LzL9b97Reec3NMfwIzgzx44IABtX89sgQMISEC4ewlQ/fUE XIedAdkBgEAkAzqHYHVtEXCgMgkyM+BWjeIE/fSCPg9dOoK1rdKAs1br/AFbDRA/I84dEI/zgzj6 7PSUv4fgVgIgMIh223GHn6jy19dUvPe9ld/6BJAGdlASz5zu57vYwU54xDPe6SAgO+DB7gFw05To ADC5CUxgABTYAP8ABpfBwh0ucYsbIeMoZ7kNklBifqtaQew2AcZogAOM88sGAEcBj72Qcic8oeM2 gAGKbWCGJUyc2DQ3ECghhwEIjGBmVsM9B3jvAJj5XkFI9zz5GdB2WRwIAElDv9uFb3ztm2L47uUk 2D2rOgyUwAN/JzsEajEBEEhiAhhQx+gVRH1MDN695gg1DMAQiBXgAMcUN5DMPeaDGjTcC2N4ORd+ 6pF7e4wN/4ZDRH5qhynsYRF/GMQhNq6IiaRbKWdiOIJswAOmZGUrXUk3+LzSJVfpVBsJAgEJyNID FahLSjyglBfJUpjDJGYxgfLLgQTTmMtkZjOd+UxoRlOa06RmNa3/eU1sZlOb2+RmN725TQhwsS3h /GY5zXnObB5gJFBBV0HElx2n7CSPDAHaT463FAk0ID23BNNYaPmTefpEnQO5p68QUtCYSUSfeUxA u5g2FoRe5CoDlQgtHdDPyXlMbIA7VSophoGueZRjgHnAemZiAE51qp5AiWhVVnoyhlD0J/nc50/+ CZSA/sQBMvkPAA4AEpFY86YBEGc8ZePQg7zUJfnBSi4LwtS23PQlaakKVBP61JpelSGbsSAATJqu qmZVou0cq0ES0M5BSQwhHvjQYwjC1kYJIJbVVOpLrDqWulJ1Jv1MCHGWItWZ6HUpD0gPVevqT5mk CVfUQVCcotSR/6iAJEswwwnL9GilCLwpO0ea7H3sI1nSdKdoPWGqrfzVgC8hJEDxoQ3QhGI+6cAn XxJAgJzodKAscdY8AsSOkeqzJThRJ1g2oU5wvhOe6oEkAbE5WtCCsluDyGu3xQ1XaZB6Wfdo1kig 5clvOUua9oyWKqUd0nlSy6Q7yqw8oGHsVRw6qAL4ZSUtLEggGWLfoCRENN4xzWnPq6VwfXW03llv a0RH3doIhLzxydJa5Jcl5AgvXAXObTv3W5rPeKmfAXZuTcBEgAUolmhB8W6CoGsgBtCWIBfeSIbb ZZ3sjIkgtoWsTCLcoNaY5zMF0s+YDusSlE6QKH6VJU6wdSuCMP9LJk/riUgmKIBzaUlg88QZy5zM M6FcGcrbKpa4GEAvpe6LXZSRSfTSgyvSBmAtc1NLdaMsLm+B683VQctTuHwgon25ujJ7ankEYLBY Agw3lG2nkQn9soPopoClcdeKrQweLC9Jy/DqspHBjNSY2E69SlJydA8Clg6sslEEscAEKiQrUpv6 ArK6LrCWheky2wxXIYE0lAmd5D0T7dLWEheTleRlXEPr1QdhgKxv7WoGHG1pdjaooMWVgOahpSCu HjG06qxgyxbNKkuem6Cfsmtdq+soxNGU/NxoHFmeTjSgC2BBhic+48lxeJpyIvFgizR4tzF4G4Ft QcB47iZu73n/zdlfaez9mf7dblzxEx78jic74Shn0VrUHQItGC2GS2fPA1wumPwozoQjgH2pe2L3 8jc6KH4LM9ArDWyRp5GTX2skotlc54SD8XmjrorQql3Oyag6b2nPIA/gSJwP8m8IBu+JA4/50mEL xpv3vOH+Q+CzUuc2KYq8cz9/d/EOIM6z1kkBHsBvYrQ2EAqYGnB/6+AEKDCXtXdwOPBBX0FW53KI F0TdXrzs+Aiu8ykS5OVx7F/8+BiA5Vbxedob+fdwbndv4T2N1WM3afBdvDY2YLlIiw0eW64/2Kq7 8VNUzttGA3nWSUd2ojPjrdCYwFl/PHVxYvnoA174h79RgepD/2fvnSmArpokn+DZtu+Nf/zq8bVT JdUj8p3PkOhIx6nPp371rX997DuTnHTbfva9/33wh1/84yd/+c1/fvRT5J3XfSaVyYqQnHZxnT5p 6TdHlpD7E9PtDUH1MwfFyv8DgLSLpgLzCH1CF4QCLGFSQIqQKVPKv6MQooYIwJQAGpSim53yKgB5 m/cbJqLCJsFiQMEai7sqJwhUmz6pprKAJgqkmxYkQPEgMqxaEgZ8pRqMphP0CR2ZwJBqiR8bC8Ki wQ6km9WSD62CMZuQsUbbrN/SMCwhDZebK17jCehCwimMrsS6jFljsCKZE/gwwn+yQi6EExSBiw5B pkJyCL9ojP+zgQgfKYwOMowJOBEbuoC8QZiCQEPFYBEV2ZO9kAvJUIpAyhPBoC8UAQz7yoATIQsK uAAgeUNK6ZM5vCCqcYhD0a/TazH/Uj5QkxFFHIgKaMTA8BuUyACPuRFH6ZBPZERRuUSwKQBFQUXD oJE/dIiOyhUuIRPUIgrPGjCNI4oFCL7oikFYey72MhDjKr7qoC0NK0LaEC3XoLH2+jVx8RJcAo5c ExcRK4gxccb52C1CnC9ahBQPkpQN2RAAmMQ6dBTIGJRCSZglNBLoao4r5DWbEDCguECDciUxWzKy 8hlsGxq9c5kJWxJgIRdz8QgB2EJriR5BA8gDYTYsxI1aQbL/aeuXfgQ2zbi2iBRIr6mYi7GAChic t7MAC4CcNvwYGwGUW2wVGlk7hdgAHtnDyaCRDqgcC3HEPrETsJEIUGOVjnoIs0mbhWgVQunBh8LF ajtECRmAwghKQAGMwrAAqEwVoDzKsAESC0nJWKlEq9lIcOlIZaS1JxOOtWAANvOMetQSjQAYREOI NNOzoKCWmLgzSptCZ6ssZVGj4juyLXQauvTHqehJRrm/obxKV/mTwFiIr6lECoyzlxE0YgEaZkuZ lAIKcnMA+VkAuLlMV8od/KE3g2g9Ani9gOs7kyu4qqMz8XkejZggvvy8kNi61CFN8Oq3mvOcyrO7 pFMg0MwV/6nbyJQzzX0jCEfCAA1IjDlcCApITg0QHMIxHMYhIQ3QgA1CCVI5pHRMTsoxiOacQ0Ka TsbhkQwiFQuQDO58jEKimIWQuE/TJLeCHAXggCGSIfEcJc3JTsakpIFxqLtrnbxDkU+pTqWQT5SA pMdZRADgoRRyHANdUP7kkzmcTwitnMtBHDoEIg0wRNJ8vW4pOIHrt9XSx2shAAmoHYsbzZ4bPaDz lpziuN5ZTYoDk5CTtwWCt69bo3w7N+F4OYPYu90UvN6cnfuZTcB7gPVUnFC6ICBSACG6T1FSDP2s UBSiAA64SScVG0lCTgRlD5FIzSOVHijpHN5EPM9LP1kaPjDlQ1NvysFpC74X7BQpNIk4PYgYWVCk cNNXSrGQcKYbZFNADVRBHVRCLVRDPdSfCAgAOw== --=_related 0065FC97852577AA_=--