28 November 2017 8:24:50.452 PM I8LIB_PRB FORTRAN90 version Test the I8LIB library. I8_CHOOSE_TEST I8_CHOOSE evaluates C(N,K). N K CNK 0 0 1 1 0 1 1 1 1 2 0 1 2 1 2 2 2 1 3 0 1 3 1 3 3 2 3 3 3 1 4 0 1 4 1 4 4 2 6 4 3 4 4 4 1 I8_HUGE_TEST I8_HUGE returns a huge I8. I8_HUGE() = 9223372036854775807 HUGE(1) = 9223372036854775807 I8_HUGE_NORMALIZER_TEST I8_HUGE_NORMALIZER returns 1/(I8_HUGE+1). I8_HUGE() = 9223372036854775807 I8_HUGE_NORMALIZER() = 0.108420E-18 real ( I8_HUGE ) * I8_HUGE_NORMALIZER = 1.000000000000000 1 - real ( I8_HUGE ) * I8_HUGE_NORMALIZER = 0.000000000000000 I8_UNIFORM_AB_TEST I8_UNIFORM_AB samples a uniform random integer distribution in [A,B]. A = 1000000000000000000 B = 1000000000000000009 1 1000000000000000003 2 1000000000000000008 3 1000000000000000004 4 1000000000000000006 5 1000000000000000008 6 1000000000000000005 7 1000000000000000000 8 1000000000000000008 9 1000000000000000001 10 1000000000000000004 11 1000000000000000003 12 1000000000000000004 13 1000000000000000002 14 1000000000000000002 15 1000000000000000003 16 1000000000000000006 17 1000000000000000007 18 1000000000000000008 19 1000000000000000009 20 1000000000000000003 I8_UNIFORM2_TEST I8_UNIFORM2 samples a uniform random integer distribution in [-2^63,2^63-1]. 0 123456789 1 2346802257580593390 2 8533006885829365347 3 -4721359972761306364 4 8531072506187040289 5 6123404510612025802 6 -340330062791850033 7 -3989837249116915008 8 385028004165223149 9 4016188490561701734 10 7676751184793608955 I8_UNIFORM3_TEST I8_UNIFORM3 samples a uniform random integer distribution in [0,2**63-1]. 0 123456789 1 2346802257580593390 2 8533006885829365347 3 4502012064093469443 4 5668138950409098531 5 7826338972222645955 6 1043343276083548644 7 8484110011543445889 8 8354754075593113513 9 2864147794997562673 10 3634172688591678618 I8_XOR_TEST I8_XOR returns the bitwise exclusive OR of two I8's. Compare the FORTRAN intrinsic IEOR. I J I8_XOR IEOR 52 93 105 105 75 75 0 0 13 76 65 65 55 79 120 120 66 16 82 82 44 87 123 123 90 46 116 116 6 52 50 50 43 72 99 99 5 63 58 58 R8_UNIFORM2_TEST R8_UNIFORM2 samples a uniform random integer distribution in [-1,+1]. 1 -0.4448076806966056 2 0.5860944584092332 3 -0.1053810107186146 4 0.7706493972898051 5 0.9968124776681292E-01 6 0.4405105803756800 7 0.5751351154252116 8 0.5578852497357097 9 -0.8031876382248975 10 -0.5373163485277604 11 0.3716727075076657 12 -0.5045369056037963E-01 13 0.1534116512783917 14 -0.2331706291826465 15 0.7332533090047691 16 0.1898662448300159 17 0.6147891887802839 18 0.2291218630094065 19 -0.6593566530584477 20 0.9372939441753174 21 0.1789909714043507 22 -0.7859778417256454 23 0.2955851268395581E-01 24 0.5418300302231052 25 -0.5389134183224034 26 -0.7298694816887627E-01 27 0.5310500793732872 28 0.8942270318693422 29 -0.1035374936426533 30 0.2210852497548546E-01 31 0.8011365144427143 32 -0.7047268137376176 33 -0.3385108744551401 34 -0.7170703283552553 35 -0.7938310513920246 36 -0.6432795348828818 37 -0.6761371340504087 38 0.6462929025913035 39 0.4069301903659105 40 -0.6764304012207911 41 -0.8997255021533750 42 0.7187336063336940E-02 43 0.3785884085960859 44 0.1136131702946102 45 0.2963607870982088 46 0.5126330298225199 47 -0.3664605695364194 48 -0.9043324470442308 49 0.7900589049137654 50 0.1509884975027279 R8_UNIFORM3_TEST R8_UNIFORM3 samples a uniform random integer distribution in [0,+1]. 1 0.1923447718269083 2 0.3662705932875366 3 0.4813902886016543E-01 4 0.3206186458652286 5 0.3134427223017226 6 0.6405754457642182 7 0.3756865713073645 8 0.4677586445438366 9 0.7339291762105423 10 0.5606179673815213 11 0.7662770372101829 12 0.7582990541646506 13 0.1267796475549053 14 0.8148805867917467 15 0.4116373313212524 16 0.8722922788892250 17 0.2149879009588312 18 0.3479758512645892 19 0.4606218191194517 20 0.2508444605632406 21 0.3097487649089151 22 0.3191757054505717 23 0.3984451215370392 24 0.8961188987361754E-01 25 0.7969308701789971 26 0.3590147340525866 27 0.3704784256855034 28 0.6279177706226854E-01 29 0.6089616856646687 30 0.8639454017868942 31 0.2688715473171098 32 0.9615932655724478 33 0.9413456752499324 34 0.2238666633731701 35 0.7289181336508667 36 0.6846986355787918E-01 37 0.7039242825506302 38 0.9080937588669468 39 0.2319707004298884 40 0.4176295532951365 41 0.3359219852706800 42 0.4797200949897062 43 0.2667705570744501 44 0.8778914926311740E-01 45 0.9136106160145304 46 0.1111650953984804 47 0.2565312104655492 48 0.3653925641682768 49 0.2931699455651201 50 0.7526706695121400 I8LIB_PRB Normal end of execution. 28 November 2017 8:24:50.456 PM