Package org.renjin.gcc.runtime

Examples of org.renjin.gcc.runtime.DoublePtr

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
  @Test
  public void pointers() throws Exception {
    Class clazz = compile("pointers.c", "Pointers");

    Method method = clazz.getMethod("sum_array", DoublePtr.class, int.class);
    Double result = (Double) method.invoke(null, new DoublePtr(15, 20, 300), 3);

    assertThat(result, equalTo(335d));

    Method fillMethod = clazz.getMethod("fill_array", DoublePtr.class, int.class);
    DoublePtr ptr = new DoublePtr(new double[5]);
    fillMethod.invoke(null, ptr, ptr.array.length);

    System.out.println(Arrays.toString(ptr.array));
   
   
View Full Code Here
65
66
67
68
69
70
71
72
  @Test
  public void functionPointers() throws Exception {
    Class clazz = compile("funptr.c", "FunPtr");
    Method method = clazz.getMethod("sum_array", DoublePtr.class, int.class);
    Double result = (Double) method.invoke(null, new DoublePtr(1, 4, 16), 3);
    assertThat(result, equalTo(273d));
  }
View Full Code Here
82
83
84
85
86
87
88
89
90
91
92
  @Test
  public void arraysNonZeroLowerBound() throws Exception {
    Class clazz = compile("lbound.f", "LBound");

    Method test = clazz.getMethod("test_", DoublePtr.class, IntPtr.class);
    DoublePtr x = new DoublePtr( 0,0,0,0  );
    test.invoke(null, x, new IntPtr(4));

    assertThat(x.array[0], equalTo(1d*3d));
    assertThat(x.array[1], equalTo(2d*3d));
    assertThat(x.array[2], equalTo(3d*3d));
 
View Full Code Here
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
  @Ignore("not clear what correct behavior is for NaN values")
  public void fortranDoubleMax() throws Exception {
    Class clazz = compile("max.f", "MaxTest");
    Method method = clazz.getMethod("testmax", DoublePtr.class);
   
    DoublePtr x = new DoublePtr(-1);
    method.invoke(null, x);

    assertThat(x.unwrap(), equalTo(0d));
   
    x = new DoublePtr(Double.NaN);
    method.invoke(null, x);
   
    System.out.println(x.unwrap());
   
    assertTrue(Double.isNaN(x.unwrap()));
  }
View Full Code Here
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
    Method method = clazz.getMethod("test_", DoublePtr.class, IntPtr.class);
   
    double[] x = new double[9];

    method.invoke(null, new DoublePtr(x, 0), new IntPtr(3));
   
    System.out.println(x);
   
    assertThat(x[0], equalTo(1d));
    assertThat(x[4], equalTo(4d));
    assertThat(x[8], equalTo(9d));

    DoublePtr y = new DoublePtr(0);
    method = clazz.getMethod("localarray_", DoublePtr.class);
    method.invoke(null, y);

    assertThat(y.unwrap(), equalTo(110d));
  }
View Full Code Here
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
            DoublePtr.class,  // x
            IntPtr.class);    // incx


    // 3 x 4 matrix (in column-major order)
    DoublePtr x = new DoublePtr(
            0.906247654231265,0.0680010921787471,0.397506368579343,
            0.836464448831975,0.460515640443191,0.927493635797873,
            0.219096470857039,0.300599258393049,0.561568872537464,
            0.20270675746724,0.303500573383644,0.967535280855373);

    IntPtr ldx = new IntPtr(3);
    IntPtr n = new IntPtr(3);
    IntPtr p = new IntPtr(4);
    DoublePtr tol = new DoublePtr(1e-07);
    IntPtr k = new IntPtr(new int[1]);
    DoublePtr qraux = new DoublePtr(new double[p.unwrap()]);
    IntPtr jpvt = new IntPtr(new int[] { 1, 2, 3, 4 });
    DoublePtr work = new DoublePtr(new double[2*p.unwrap()]);
   
   
    // check some sub-calcs first
    double nrmxl = (Double)dnrm2.invoke(null, n, x, new IntPtr(1));

View Full Code Here
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
    Method method = clazz.getMethod("test_", DoublePtr.class, IntPtr.class);

    double[] x = new double[9];

    method.invoke(null, new DoublePtr(x, 0), new IntPtr(3));

    System.out.println(x);

    assertThat(x[0], equalTo(1d));
    assertThat(x[4], equalTo(4d));
    assertThat(x[8], equalTo(9d));

    DoublePtr y = new DoublePtr(0);
    method = clazz.getMethod("localarray_", DoublePtr.class);
    method.invoke(null, y);

    assertThat(y.unwrap(), equalTo(110d));

  }
View Full Code Here
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
    Class clazz = Class.forName("org.renjin.stats.stats");
    Method method = clazz.getMethod("R_approx", DoublePtr.class, DoublePtr.class, IntPtr.class, DoublePtr.class, IntPtr.class, IntPtr.class,
            DoublePtr.class, DoublePtr.class, DoublePtr.class);

    DoublePtr x = new DoublePtr(-3.55375188693167, -3.541121482423131, -3.5284910779145924, -3.5158606734060536, -3.5032302688975148, -3.490599864388976, -3.477969459880437, -3.4653390553718983, -3.4527086508633595, -3.4400782463548207, -3.4274478418462815, -3.414817437337743, -3.402187032829204, -3.389556628320665, -3.3769262238121263, -3.3642958193035875, -3.3516654147950486, -3.33903501028651, -3.326404605777971, -3.3137742012694322, -3.3011437967608934, -3.2885133922523546, -3.275882987743816, -3.263252583235277, -3.250622178726738, -3.2379917742181994, -3.2253613697096606, -3.212730965201122, -3.200100560692583, -3.187470156184044, -3.1748397516755054, -3.162209347166966, -3.1495789426584277, -3.1369485381498885, -3.1243181336413497, -3.111687729132811, -3.099057324624272, -3.0864269201157333, -3.0737965156071945, -3.0611661110986557, -3.048535706590117, -3.035905302081578, -3.0232748975730392, -3.0106444930645004, -2.9980140885559616, -2.985383684047423, -2.972753279538884, -2.960122875030345, -2.9474924705218064, -2.9348620660132676, -2.922231661504729, -2.90960125699619, -2.8969708524876507, -2.8843404479791124, -2.871710043470573, -2.8590796389620348, -2.8464492344534955, -2.8338188299449567, -2.821188425436418, -2.808558020927879, -2.7959276164193403, -2.7832972119108015, -2.7706668074022627, -2.758036402893724, -2.745405998385185, -2.7327755938766463, -2.7201451893681075, -2.7075147848595686, -2.69488438035103, -2.682253975842491, -2.6696235713339522, -2.6569931668254134, -2.6443627623168746, -2.6317323578083354, -2.619101953299797, -2.6064715487912578, -2.5938411442827194, -2.58121073977418, -2.5685803352656413, -2.5559499307571025, -2.5433195262485637, -2.530689121740025, -2.518058717231486, -2.5054283127229473, -2.4927979082144085, -2.4801675037058697, -2.467537099197331, -2.454906694688792, -2.4422762901802533, -2.4296458856717145, -2.4170154811631757, -2.404385076654637, -2.3917546721460976, -2.3791242676375592, -2.36649386312902, -2.3538634586204816, -2.3412330541119424, -2.328602649603404, -2.3159722450948648, -2.3033418405863264, -2.290711436077787, -2.278081031569249, -2.2654506270607095, -2.2528202225521707, -2.240189818043632, -2.227559413535093, -2.2149290090265543, -2.2022986045180155, -2.1896682000094767, -2.177037795500938, -2.164407390992399, -2.1517769864838603, -2.1391465819753215, -2.1265161774667822, -2.113885772958244, -2.1012553684497046, -2.0886249639411663, -2.075994559432627, -2.0633641549240886, -2.0507337504155494, -2.038103345907011, -2.025472941398472, -2.0128425368899334, -2.000212132381394, -1.9875817278728554, -1.9749513233643166, -1.9623209188557778, -1.949690514347239, -1.9370601098387001, -1.9244297053301613, -1.9117993008216225, -1.8991688963130837, -1.886538491804545, -1.873908087296006, -1.861277682787467, -1.8486472782789283, -1.8360168737703895, -1.8233864692618507, -1.8107560647533119, -1.798125660244773, -1.7854952557362342, -1.7728648512276954, -1.7602344467191566, -1.7476040422106178, -1.7349736377020788, -1.72234323319354, -1.7097128286850012, -1.6970824241764624, -1.6844520196679236, -1.6718216151593848, -1.659191210650846, -1.6465608061423072, -1.6339304016337683, -1.6212999971252295, -1.6086695926166907, -1.5960391881081517, -1.583408783599613, -1.570778379091074, -1.5581479745825353, -1.5455175700739967, -1.5328871655654575, -1.5202567610569186, -1.5076263565483798, -1.494995952039841, -1.4823655475313022, -1.4697351430227634, -1.4571047385142246, -1.4444743340056858, -1.431843929497147, -1.4192135249886082, -1.4065831204800694, -1.3939527159715306, -1.3813223114629918, -1.368691906954453, -1.3560615024459142, -1.3434310979373754, -1.3308006934288366, -1.3181702889202978, -1.305539884411759, -1.2929094799032201, -1.2802790753946813, -1.2676486708861425, -1.2550182663776033, -1.2423878618690645, -1.2297574573605257, -1.2171270528519869, -1.204496648343448, -1.1918662438349092, -1.1792358393263704, -1.1666054348178316, -1.1539750303092928, -1.141344625800754, -1.1287142212922152, -1.1160838167836764, -1.1034534122751376, -1.0908230077665988, -1.07819260325806, -1.0655621987495212, -1.0529317942409824, -1.0403013897324436, -1.0276709852239048, -1.015040580715366, -1.0024101762068272, -0.9897797716982879, -0.9771493671897491, -0.9645189626812103, -0.9518885581726715, -0.9392581536641327, -0.9266277491555939, -0.9139973446470551, -0.9013669401385163, -0.8887365356299775, -0.8761061311214386, -0.8634757266128998, -0.850845322104361, -0.8382149175958222, -0.8255845130872834, -0.8129541085787446, -0.8003237040702058, -0.787693299561667, -0.7750628950531282, -0.7624324905445894, -0.7498020860360506, -0.7371716815275118, -0.724541277018973, -0.7119108725104337, -0.6992804680018949, -0.6866500634933561, -0.6740196589848173, -0.6613892544762785, -0.6487588499677397, -0.6361284454592009, -0.6234980409506621, -0.6108676364421233, -0.5982372319335845, -0.5856068274250457, -0.5729764229165069, -0.560346018407968, -0.5477156138994292, -0.5350852093908904, -0.5224548048823516, -0.5098244003738128, -0.497193995865274, -0.4845635913567352, -0.4719331868481964, -0.4593027823396576, -0.44667237783111835, -0.43404197332257954, -0.42141156881404074, -0.40878116430550193, -0.3961507597969631, -0.3835203552884243, -0.3708899507798855, -0.3582595462713467, -0.3456291417628079, -0.3329987372542691, -0.3203683327457303, -0.3077379282371915, -0.2951075237286527, -0.28247711922011387, -0.26984671471157506, -0.25721631020303626, -0.24458590569449745, -0.23195550118595865, -0.21932509667741984, -0.20669469216888103, -0.19406428766034223, -0.18143388315180298, -0.16880347864326417, -0.15617307413472536, -0.14354266962618656, -0.13091226511764775, -0.11828186060910895, -0.10565145610057014, -0.09302105159203133, -0.08039064708349253, -0.06776024257495372, -0.055129838066414916, -0.04249943355787611, -0.029869029049337303, -0.017238624540798497, -0.004608220032259691, 0.008022184476279115, 0.02065258898481792, 0.03328299349335673, 0.04591339800189553, 0.05854380251043434, 0.07117420701897315, 0.0838046115275124, 0.0964350160360512, 0.10906542054459001, 0.12169582505312881, 0.13432622956166762, 0.14695663407020643, 0.15958703857874523, 0.17221744308728404, 0.18484784759582285, 0.19747825210436165, 0.21010865661290046, 0.22273906112143926, 0.23536946562997807, 0.24799987013851688, 0.2606302746470557, 0.2732606791555945, 0.2858910836641333, 0.2985214881726721, 0.3111518926812109, 0.3237822971897497, 0.3364127016982885, 0.3490431062068273, 0.3616735107153666, 0.3743039152239054, 0.3869343197324442, 0.399564724240983, 0.4121951287495218, 0.4248255332580606, 0.4374559377665994, 0.4500863422751382, 0.4627167467836766, 0.47534715129221583, 0.4879775558007551, 0.5006079603092934, 0.5132383648178327, 0.525868769326371, 0.5384991738349103, 0.5511295783434487, 0.5637599828519879, 0.5763903873605263, 0.5890207918690655, 0.6016511963776039, 0.6142816008861431, 0.6269120053946815, 0.6395424099032208, 0.6521728144117591, 0.6648032189202984, 0.6774336234288367, 0.690064027937376, 0.7026944324459143, 0.7153248369544536, 0.727955241462992, 0.7405856459715312, 0.7532160504800696, 0.7658464549886088, 0.7784768594971481, 0.7911072640056864, 0.8037376685142257, 0.816368073022764, 0.8289984775313033, 0.8416288820398417, 0.8542592865483809, 0.8668896910569193, 0.8795200955654585, 0.8921505000739969, 0.9047809045825361, 0.9174113090910745, 0.9300417135996137, 0.9426721181081521, 0.9553025226166914, 0.9679329271252297, 0.980563331633769, 0.9931937361423073, 1.0058241406508466, 1.018454545159385, 1.0310849496679242, 1.0437153541764634, 1.0563457586850018, 1.068976163193541, 1.0816065677020794, 1.0942369722106187, 1.106867376719157, 1.1194977812276963, 1.1321281857362346, 1.1447585902447739, 1.1573889947533123, 1.1700193992618515, 1.1826498037703899, 1.1952802082789291, 1.2079106127874675, 1.2205410172960067, 1.233171421804545, 1.2458018263130843, 1.2584322308216227, 1.271062635330162, 1.2836930398387003, 1.2963234443472396, 1.3089538488557788, 1.3215842533643172, 1.3342146578728564, 1.3468450623813948, 1.359475466889934, 1.3721058713984724, 1.3847362759070116, 1.39736668041555, 1.4099970849240893, 1.4226274894326276, 1.4352578939411669, 1.4478882984497052, 1.4605187029582445, 1.4731491074667828, 1.485779511975322, 1.4984099164838605, 1.5110403209923997, 1.523670725500938, 1.5363011300094773, 1.5489315345180157, 1.561561939026555, 1.5741923435350942, 1.5868227480436325, 1.5994531525521718, 1.6120835570607102, 1.6247139615692494, 1.6373443660777878, 1.649974770586327, 1.6626051750948654, 1.6752355796034046, 1.687865984111943, 1.7004963886204822, 1.7131267931290206, 1.7257571976375599, 1.7383876021460982, 1.7510180066546375, 1.7636484111631758, 1.776278815671715, 1.7889092201802534, 1.8015396246887927, 1.814170029197331, 1.8268004337058703, 1.8394308382144096, 1.852061242722948, 1.8646916472314872, 1.8773220517400255, 1.8899524562485648, 1.9025828607571031, 1.9152132652656424, 1.9278436697741808, 1.94047407428272, 1.9531044787912584, 1.9657348832997976, 1.978365287808336, 1.9909956923168752, 2.0036260968254136, 2.016256501333953, 2.028886905842491, 2.0415173103510305, 2.054147714859569, 2.066778119368108, 2.0794085238766464, 2.0920389283851857, 2.104669332893724, 2.1172997374022633, 2.1299301419108025, 2.142560546419341, 2.15519095092788, 2.1678213554364185, 2.1804517599449578, 2.193082164453496, 2.2057125689620354, 2.2183429734705737, 2.230973377979113, 2.2436037824876514, 2.2562341869961906, 2.268864591504729, 2.281494996013268, 2.2941254005218066, 2.306755805030346, 2.319386209538884, 2.3320166140474234, 2.344647018555962, 2.357277423064501, 2.3699078275730394, 2.3825382320815787, 2.395168636590118, 2.4077990410986563, 2.4204294456071955, 2.433059850115734, 2.445690254624273, 2.4583206591328115, 2.4709510636413508, 2.483581468149889, 2.4962118726584284, 2.5088422771669667, 2.521472681675506, 2.5341030861840443, 2.5467334906925836, 2.559363895201122, 2.571994299709661, 2.5846247042181996, 2.597255108726739, 2.609885513235277, 2.6225159177438164, 2.635146322252355, 2.647776726760894, 2.6604071312694333, 2.6730375357779717, 2.685667940286511, 2.6982983447950493, 2.7109287493035885, 2.723559153812127, 2.736189558320666, 2.7488199628292045, 2.7614503673377437, 2.774080771846282, 2.7867111763548214, 2.7993415808633597, 2.811971985371899, 2.8246023898804373, 2.8372327943889766, 2.849863198897515, 2.862493603406054, 2.8751240079145925, 2.887754412423132, 2.90038481693167);
    DoublePtr y = new DoublePtr(3.167312549387513E-12, 4.202389304597265E-12, 5.56650949293247E-12, 7.36164861708799E-12, 9.719736300539683E-12, 1.281221830018442E-11, 1.686118692584282E-11, 2.2153582787676207E-11, 2.905975200057087E-11, 3.805680597046557E-11, 4.975831031928113E-11, 6.49519067003057E-11, 8.464675488317752E-11, 1.1013409108306949E-10, 1.4306265373742466E-10, 1.8553411584854018E-10, 2.4022311223559356E-10, 3.105266772884807E-10, 4.007528059402077E-10, 5.163542926567288E-10, 6.642211676510801E-10, 8.53044052062657E-10, 1.093765310961059E-9, 1.4001381859474193E-9, 1.7894181761346495E-9, 2.2832168204700576E-9, 2.9085525238281562E-9, 3.6991444005152196E-9, 4.6969983319433695E-9, 5.954350741632641E-9, 7.536044538403175E-9, 9.52242778379242E-9, 1.201288318125604E-8, 1.5130117769768248E-8, 1.9025365442792985E-8, 2.388468479247452E-8, 2.993656652433563E-8, 3.746110623786825E-8, 4.680104058463197E-8, 5.837500027111586E-8, 7.269339155624444E-8, 9.037738995382183E-8, 1.1218160984177716E-7, 1.3902110447550076E-7, 1.7200345993340083E-7, 2.1246686243703294E-7, 2.620251595142342E-7, 3.2262108668607015E-7, 3.965890083071355E-7, 4.867287166851475E-7, 5.963920547830126E-7, 7.29584372312353E-7, 8.910831012093334E-7, 1.0865760384851098E-6, 1.3228222601746609E-6, 1.6078389607210308E-6, 1.951117912950273E-6, 2.3638756881244616E-6, 2.859342250069452E-6, 3.4530930564311E-6, 4.163430351034059E-6, 5.011819925931915E-6, 6.023390257632599E-6, 7.227501583058349E-6, 8.658393175056678E-6, 1.0355917792907732E-5, 1.2366373023410537E-5, 1.4743439979605921E-5, 1.7549240576598957E-5, 2.0855525357590943E-5, 2.4745004567200413E-5, 2.931283586696254E-5, 3.466828272969541E-5, 4.093655812392044E-5, 4.82608685782801E-5, 5.6804674081971374E-5, 6.675417949906365E-5, 7.832107322482823E-5, 9.174552866275665E-5, 1.0729948371459436E-4, 1.2529021282122604E-4, 1.4606420513572915E-4, 1.7001136110542103E-4, 1.9756951806596673E-4, 2.2922931335350727E-4, 2.655393908986489E-4, 3.071119542349815E-4, 3.546286653127173E-4, 4.0884688441587824E-4, 4.7060624183020705E-4, 5.408355266679696E-4, 6.205598724291286E-4, 7.109082124511015E-4, 8.131209713946874E-4, 9.285579513384976E-4, 0.0010587063629483306, 0.0012051889435955726, 0.001369772095279255, 0.0015543739658324326, 0.0017610723872659648, 0.0019921125753185123, 0.0022499144844789487, 0.0025370797030580677, 0.002856397763480595, 0.0032108517340140377, 0.0036036229498469796, 0.004038094733970966, 0.0045178549519339015, 0.005046697239435315, 0.005628620738159163, 0.006267828173423598, 0.006968722107396033, 0.007735899204005785, 0.008574142346502642, 0.009488410456051071, 0.010483825870004468, 0.011565659151718765, 0.012739311220062373, 0.014010292706242993, 0.015384200468243764, 0.016866691219031442, 0.018463452253706936, 0.020180169292801795, 0.022022491493796863, 0.023995993720418954, 0.02610613619904719, 0.02835822173326353, 0.030757350690775953, 0.03330837402113021, 0.03601584460724707, 0.03888396729826524, 0.04191654801477185, 0.045116942359560416, 0.04848800420683736, 0.05203203477953987, 0.05575073275736774, 0.05964514598650174, 0.06371562538503439, 0.06796178165515065, 0.07238244542339906, 0.07697563143336822, 0.08173850741019045, 0.08666736820308071, 0.09175761579024069, 0.09700374569967327, 0.10239934035966143, 0.10793706984388855, 0.11360870041859228, 0.11940511123306542, 0.12531631942071653, 0.13133151379640395, 0.13743909724762726, 0.14362673782331228, 0.14988142842540791, 0.15618955490649006, 0.16253697227232178, 0.16890908858320752, 0.17529095604345227, 0.18166736866576677, 0.18802296579857303, 0.1943423407103657, 0.2006101533380677, 0.20681124622711433, 0.21293076262117916, 0.2189542656002635, 0.2248678571184491, 0.230658295757937, 0.23631311199487592, 0.24182071976554612, 0.247170523129133, 0.2523530168458019, 0.2573598797260661, 0.26218405965928926, 0.2668198492951214, 0.2712629514310663, 0.27551053325133656, 0.2795612686655905, 0.28341536810982904, 0.28707459529422974, 0.2905422705124995, 0.29382326026276795, 0.29692395306941627, 0.29985222153675717, 0.3026173708073746, 0.3052300737384033, 0.3077022932463591, 0.310047192403637, 0.3122790329959093, 0.3144130633679325, 0.31646539649437516, 0.31845287931106947, 0.32039295442956706, 0.32230351543323166, 0.32420275701570384, 0.32610902127199154, 0.3280406414883983, 0.330015784799934, 0.3320522950928396, 0.33416753752562633, 0.3363782460249761, 0.33870037508345197, 0.34114895714484583, 0.34373796681081337, 0.34648019303997946, 0.34938712043873277, 0.35246882066229174, 0.3557338548561704, 0.35918918797273414, 0.3628401156959657, 0.3666902046006648, 0.3707412460609084, 0.3749932243074513, 0.379444298915644, 0.38409080188510253, 0.38892724935053113, 0.3939463678405103, 0.3991391348784375, 0.40449483359793287, 0.4100011209246431, 0.41564410875835167, 0.42140845747444744, 0.4272774809530733, 0.43323326223858016, 0.4392567788323082, 0.44532803652921227, 0.451426210624575, 0.45752979324209103, 0.4636167454701095, 0.46966465293987747, 0.47565088343933454, 0.48155274512935314, 0.4873476439172558, 0.4930132385457299, 0.4985275919745833, 0.5038693176685758, 0.5090177194570864, 0.5139529237006188, 0.5186560025848891, 0.5231090874648863, 0.5272954712980761, 0.5311996993366318, 0.5348076473918493, 0.5381065871379493, 0.5410852380853329, 0.5437338060227311, 0.5460440079011509, 0.5480090833073434, 0.5496237928479686, 0.5508844039347822, 0.551788664623131, 0.5523357663079346, 0.5525262962203632, 0.5523621807919741, 0.5518466210587177, 0.5509840213628578, 0.5497799126746397, 0.5482408718960858, 0.5463744385255964, 0.5441890300535278, 0.541693857425578, 0.5388988418530354, 0.5358145341676896, 0.5324520378158772, 0.5288229364626209, 0.5249392270354676, 0.52081325888113, 0.5164576795394876, 0.5118853874622492, 0.5071094918211825, 0.5021432793670327, 0.49700018811882424, 0.4916937874879827, 0.4862377642762934, 0.4806459138346454, 0.47493213553406866, 0.4691104315846939, 0.463194908144523, 0.45719977759041475, 0.4511393607800914, 0.44502808811738725, 0.43888049824392505, 0.43271123321893756, 0.4265350291144593, 0.4203667010444772, 0.41422112176217835, 0.4081131930970025, 0.4020578096601682, 0.39606981442066125, 0.39016394593997816, 0.38435477724955075, 0.3786566465558804, 0.3730835801610101, 0.3676492081860183, 0.3623666738787485, 0.35724853747009633, 0.3523066757121821, 0.34755217838318603, 0.3429952431744237, 0.33864507048264514, 0.3345097597122704, 0.3305962087464957, 0.32691001827162364, 0.32345540263478656, 0.32023510888122525, 0.3172503455537441, 0.3145007227447413, 0.31198420477165656, 0.3096970767016392, 0.30763392578300797, 0.3057876386523684, 0.30414941498011916, 0.30270879799689, 0.3014537221128102, 0.30037057760417396, 0.2994442921019306, 0.2986584283774015, 0.2979952976865915, 0.29743608770920693, 0.29696100390564006, 0.29654942291813435, 0.2961800564642184, 0.2958311240140912, 0.29548053241136346, 0.29510606049043286, 0.2946855466653344, 0.2941970774153016, 0.2936191745720895, 0.29293097932352863, 0.2921124308864489, 0.291144437869252, 0.29000904043877274, 0.288689561526, 0.28717074544867155, 0.2854388824933295, 0.28348191818242074, 0.2812895461505107, 0.2788532837644918, 0.276166529842531, 0.2732246040520283, 0.2700247677946467, 0.26656622661314605, 0.2628501143770171, 0.25887945971860105, 0.25465913539553553, 0.2501957914462387, 0.2454977731802667, 0.24057502520259255, 0.23543898280833087, 0.23010245220069503, 0.22457948107893644, 0.21888522121393839, 0.2130357846767052, 0.20704809540921346, 0.20093973782839367, 0.19472880413311766, 0.18843374194205226, 0.18207320382845493, 0.1756659002380503, 0.1692304571798717, 0.16278527996940795, 0.15634842418071315, 0.14993747483159592, 0.14356943468591202, 0.1372606224116846, 0.13102658118558716, 0.12488199818549055, 0.11884063526545875, 0.11291527096380945, 0.10711765385649165, 0.10145846713678695, 0.0959473041796827, 0.09059265473648762, 0.08540190130340741, 0.08038132511769772, 0.07553612115725397, 0.07087042145444972, 0.06638732598284194, 0.062088940335957146, 0.05797641939050602, 0.05405001613159193, 0.050309134814207894, 0.04675238764279667, 0.043377654168048556, 0.04018214262646668, 0.037162452482539486, 0.03431463747453366, 0.0316342685118883, 0.029116495823826832, 0.026756109814026104, 0.02454760013393514, 0.02248521254659024, 0.020563003212582198, 0.0187748900893028, 0.01711470119292386, 0.015576219529023362, 0.014153224551735188, 0.012839530062233217, 0.0116290185048126, 0.010515671662469169, 0.009493597793428421, 0.00855705528538225, 0.0077004729351568876, 0.00691846698815093, 0.006205855094202567, 0.005557667354683439, 0.0049691546497464085, 0.0044357944449843435, 0.0039532942835397485, 0.0035175931732168283, 0.0031248610786894157, 0.0027714967267782747, 0.002454123928316054, 0.002169586613639006, 0.0019149427705642751, 0.0016874574641320996, 0.0014845951067048728, 0.0013040111355019967, 0.0011435432425561508, 0.0010012022896482616, 8.751630282199755E-4, 7.637547317630807E-4, 6.654518359128199E-4, 5.788646695608984E-4, 5.027303488779874E-4, 4.3590389528291206E-4, 3.773496281990575E-4, 3.261328739453867E-4, 2.814120233581706E-4, 2.4243096275915226E-4, 2.08511895666467E-4, 1.7904856619997144E-4, 1.5349988943012696E-4, 1.3138398894041594E-4, 1.122726375863005E-4, 9.578609379483902E-5, 8.158832271989983E-5, 6.938258909918817E-5, 5.8907406705689495E-5, 4.993282779716779E-5, 4.225705489574824E-5, 3.570335652848558E-5, 3.011726817881088E-5, 2.5364059603905616E-5, 2.132644980940234E-5, 1.7902551314121643E-5, 1.500402584307637E-5, 1.255443422025577E-5, 1.0487763973286525E-5, 8.747118978323642E-6, 7.283556339443553E-6, 6.055056601304842E-6, 5.025614310177895E-6, 4.164436856642084E-6, 3.4452404427814942E-6, 2.8456328999490466E-6, 2.3465739422690035E-6, 1.93190425928913E-6, 1.5879356331724437E-6, 1.3030950022918653E-6, 1.0676160807215895E-6, 8.732727915031213E-7, 7.131493634654484E-7, 5.814424939576401E-7, 4.732914839072899E-7, 3.846327113754544E-7, 3.1207523028264905E-7, 2.5279465817873437E-7, 2.044428599745629E-7, 1.6507124143971819E-7, 1.3306574031535234E-7, 1.0709184768142865E-7, 8.604821022384357E-8, 6.902755600446397E-8, 5.5283856492671646E-8, 4.420478634525882E-8, 3.528867441315864E-8, 2.8125252626853836E-8, 2.2379609720957205E-8, 1.7778844396687532E-8, 1.4100984838116837E-8, 1.1165809496692504E-8, 8.827257190299363E-9, 6.967165224503499E-9, 5.490111245380944E-9, 4.319175476695384E-9, 3.3924634136548423E-9, 2.660259779107462E-9, 2.082703628340423E-9, 1.6278911615354191E-9, 1.2703333262968944E-9, 9.8970193342397E-10, 7.698133856738661E-10, 5.978067115990738E-10, 4.6347939831967797E-10, 3.587518538080416E-10, 2.772376019530546E-10, 2.1389680304739755E-10, 1.6475948383387617E-10, 1.267040500296801E-10, 9.728023941946162E-11, 7.456804618222179E-11, 5.7065657754762356E-11, 4.360042882289861E-11, 3.3258312770456655E-11, 2.5328179834999037E-11, 1.9257527697067817E-11, 1.461805899878672E-11, 1.1078373785602437E-11, 8.382100569193085E-12, 6.3317684428909615E-12, 4.775143961761705E-12, 3.5953739985217226E-12);

    System.out.println(x.array[111] );



    Assert.assertTrue(x.array.length == y.array.length);

    IntPtr nxy = new IntPtr(x.array.length);
   // DoublePtr xout = new DoublePtr(-2.30767524297072, -2.29992185076731, -2.2921684585639, -2.28441506636049, -2.27666167415708, -2.26890828195368, -2.26115488975027, -2.25340149754686, -2.24564810534345, -2.23789471314004, -2.23014132093664, -2.22238792873323, -2.21463453652982, -2.20688114432641, -2.199127752123, -2.1913743599196, -2.18362096771619, -2.17586757551278, -2.16811418330937, -2.16036079110597, -2.15260739890256, -2.14485400669915, -2.13710061449574, -2.12934722229233, -2.12159383008893, -2.11384043788552, -2.10608704568211, -2.0983336534787, -2.0905802612753, -2.08282686907189, -2.07507347686848, -2.06732008466507, -2.05956669246166, -2.05181330025826, -2.04405990805485, -2.03630651585144, -2.02855312364803, -2.02079973144462, -2.01304633924122, -2.00529294703781, -1.9975395548344, -1.98978616263099, -1.98203277042758, -1.97427937822418, -1.96652598602077, -1.95877259381736, -1.95101920161395, -1.94326580941054, -1.93551241720714, -1.92775902500373, -1.92000563280032, -1.91225224059691, -1.90449884839351, -1.8967454561901, -1.88899206398669, -1.88123867178328, -1.87348527957987, -1.86573188737647, -1.85797849517306, -1.85022510296965, -1.84247171076624, -1.83471831856283, -1.82696492635943, -1.81921153415602, -1.81145814195261, -1.8037047497492, -1.79595135754579, -1.78819796534239, -1.78044457313898, -1.77269118093557, -1.76493778873216, -1.75718439652876, -1.74943100432535, -1.74167761212194, -1.73392421991853, -1.72617082771512, -1.71841743551172, -1.71066404330831, -1.7029106511049, -1.69515725890149, -1.68740386669808, -1.67965047449468, -1.67189708229127, -1.66414369008786, -1.65639029788445, -1.64863690568104, -1.64088351347764, -1.63313012127423, -1.62537672907082, -1.61762333686741, -1.60986994466401, -1.6021165524606, -1.59436316025719, -1.58660976805378, -1.57885637585037, -1.57110298364697, -1.56334959144356, -1.55559619924015, -1.54784280703674, -1.54008941483333, -1.53233602262993, -1.52458263042652, -1.51682923822311, -1.5090758460197, -1.5013224538163, -1.49356906161289, -1.48581566940948, -1.47806227720607, -1.47030888500266, -1.46255549279926, -1.45480210059585, -1.44704870839244, -1.43929531618903, -1.43154192398562, -1.42378853178222, -1.41603513957881, -1.4082817473754, -1.40052835517199, -1.39277496296858, -1.38502157076518, -1.37726817856177, -1.36951478635836, -1.36176139415495, -1.35400800195155, -1.34625460974814, -1.33850121754473, -1.33074782534132, -1.32299443313791, -1.31524104093451, -1.3074876487311, -1.29973425652769, -1.29198086432428, -1.28422747212087, -1.27647407991747, -1.26872068771406, -1.26096729551065, -1.25321390330724, -1.24546051110383, -1.23770711890043, -1.22995372669702, -1.22220033449361, -1.2144469422902, -1.2066935500868, -1.19894015788339, -1.19118676567998, -1.18343337347657, -1.17567998127316, -1.16792658906976, -1.16017319686635, -1.15241980466294, -1.14466641245953, -1.13691302025612, -1.12915962805272, -1.12140623584931, -1.1136528436459, -1.10589945144249, -1.09814605923908, -1.09039266703568, -1.08263927483227, -1.07488588262886, -1.06713249042545, -1.05937909822205, -1.05162570601864, -1.04387231381523, -1.03611892161182, -1.02836552940841, -1.02061213720501, -1.0128587450016, -1.00510535279819, -0.99735196059478, -0.98959856839137, -0.98184517618797, -0.97409178398456, -0.96633839178115, -0.95858499957774, -0.95083160737434, -0.94307821517093, -0.93532482296752, -0.92757143076411, -0.9198180385607, -0.9120646463573, -0.90431125415389, -0.89655786195048, -0.88880446974707, -0.88105107754366, -0.87329768534026, -0.86554429313685, -0.85779090093344, -0.85003750873003, -0.84228411652662, -0.83453072432322, -0.82677733211981, -0.8190239399164, -0.81127054771299, -0.80351715550958, -0.79576376330618, -0.78801037110277, -0.78025697889936, -0.77250358669595, -0.76475019449255, -0.75699680228914, -0.74924341008573, -0.74149001788232, -0.73373662567891, -0.72598323347551, -0.7182298412721, -0.71047644906869, -0.70272305686528, -0.69496966466187, -0.68721627245847, -0.67946288025506, -0.67170948805165, -0.66395609584824, -0.65620270364484, -0.64844931144143, -0.64069591923802, -0.63294252703461, -0.6251891348312, -0.6174357426278, -0.60968235042439, -0.60192895822098, -0.59417556601757, -0.58642217381416, -0.57866878161076, -0.57091538940735, -0.56316199720394, -0.55540860500053, -0.54765521279712, -0.53990182059372, -0.53214842839031, -0.5243950361869, -0.51664164398349, -0.50888825178009, -0.50113485957668, -0.49338146737327, -0.48562807516986, -0.47787468296645, -0.47012129076305, -0.46236789855964, -0.45461450635623, -0.44686111415282, -0.43910772194941, -0.43135432974601, -0.4236009375426, -0.41584754533919, -0.40809415313578, -0.40034076093237, -0.39258736872897, -0.38483397652556, -0.37708058432215, -0.36932719211874, -0.36157379991534, -0.35382040771193, -0.34606701550852, -0.33831362330511, -0.3305602311017, -0.3228068388983, -0.31505344669489, -0.30730005449148, -0.29954666228807, -0.29179327008466, -0.28403987788126, -0.27628648567785, -0.26853309347444, -0.26077970127103, -0.25302630906762, -0.24527291686422, -0.23751952466081, -0.2297661324574, -0.22201274025399, -0.21425934805059, -0.20650595584718, -0.19875256364377, -0.19099917144036, -0.18324577923695, -0.17549238703355, -0.16773899483014, -0.15998560262673, -0.15223221042332, -0.14447881821991, -0.13672542601651, -0.1289720338131, -0.12121864160969, -0.11346524940628, -0.10571185720287, -0.09795846499947, -0.09020507279606, -0.08245168059265, -0.07469828838924, -0.06694489618584, -0.05919150398243, -0.05143811177902, -0.04368471957561, -0.0359313273722, -0.0281779351688, -0.02042454296539, -0.01267115076198, -0.00491775855857, 0.00283563364484, 0.01058902584824, 0.01834241805165, 0.02609581025506, 0.03384920245847, 0.04160259466187, 0.04935598686528, 0.05710937906869, 0.0648627712721, 0.07261616347551, 0.08036955567891, 0.08812294788232, 0.09587634008573, 0.10362973228914, 0.11138312449255, 0.11913651669595, 0.12688990889936, 0.13464330110277, 0.14239669330618, 0.15015008550959, 0.15790347771299, 0.1656568699164, 0.17341026211981, 0.18116365432322, 0.18891704652662, 0.19667043873003, 0.20442383093344, 0.21217722313685, 0.21993061534026, 0.22768400754366, 0.23543739974707, 0.24319079195048, 0.25094418415389, 0.2586975763573, 0.2664509685607, 0.27420436076411, 0.28195775296752, 0.28971114517093, 0.29746453737434, 0.30521792957774, 0.31297132178115, 0.32072471398456, 0.32847810618797, 0.33623149839137, 0.34398489059478, 0.35173828279819, 0.3594916750016, 0.36724506720501, 0.37499845940841, 0.38275185161182, 0.39050524381523, 0.39825863601864, 0.40601202822205, 0.41376542042545, 0.42151881262886, 0.42927220483227, 0.43702559703568, 0.44477898923909, 0.45253238144249, 0.4602857736459, 0.46803916584931, 0.47579255805272, 0.48354595025612, 0.49129934245953, 0.49905273466294, 0.50680612686635, 0.51455951906976, 0.52231291127316, 0.53006630347657, 0.53781969567998, 0.54557308788339, 0.5533264800868, 0.5610798722902, 0.56883326449361, 0.57658665669702, 0.58434004890043, 0.59209344110384, 0.59984683330724, 0.60760022551065, 0.61535361771406, 0.62310700991747, 0.63086040212087, 0.63861379432428, 0.64636718652769, 0.6541205787311, 0.66187397093451, 0.66962736313791, 0.67738075534132, 0.68513414754473, 0.69288753974814, 0.70064093195155, 0.70839432415495, 0.71614771635836, 0.72390110856177, 0.73165450076518, 0.73940789296859, 0.74716128517199, 0.7549146773754, 0.76266806957881, 0.77042146178222, 0.77817485398562, 0.78592824618903, 0.79368163839244, 0.80143503059585, 0.80918842279926, 0.81694181500266, 0.82469520720607, 0.83244859940948, 0.84020199161289, 0.8479553838163, 0.8557087760197, 0.86346216822311, 0.87121556042652, 0.87896895262993, 0.88672234483334, 0.89447573703674, 0.90222912924015, 0.90998252144356, 0.91773591364697, 0.92548930585037, 0.93324269805378, 0.94099609025719, 0.9487494824606, 0.95650287466401, 0.96425626686741, 0.97200965907082, 0.97976305127423, 0.98751644347764, 0.99526983568105, 1.00302322788445, 1.01077662008786, 1.01853001229127, 1.02628340449468, 1.03403679669808, 1.04179018890149, 1.0495435811049, 1.05729697330831, 1.06505036551172, 1.07280375771512, 1.08055714991853, 1.08831054212194, 1.09606393432535, 1.10381732652876, 1.11157071873216, 1.11932411093557, 1.12707750313898, 1.13483089534239, 1.1425842875458, 1.1503376797492, 1.15809107195261, 1.16584446415602, 1.17359785635943, 1.18135124856283, 1.18910464076624, 1.19685803296965, 1.20461142517306, 1.21236481737647, 1.22011820957987, 1.22787160178328, 1.23562499398669, 1.2433783861901, 1.25113177839351, 1.25888517059691, 1.26663856280032, 1.27439195500373, 1.28214534720714, 1.28989873941055, 1.29765213161395, 1.30540552381736, 1.31315891602077, 1.32091230822418, 1.32866570042758, 1.33641909263099, 1.3441724848344, 1.35192587703781, 1.35967926924122, 1.36743266144462, 1.37518605364803, 1.38293944585144, 1.39069283805485, 1.39844623025826, 1.40619962246166, 1.41395301466507, 1.42170640686848, 1.42945979907189, 1.4372131912753, 1.4449665834787, 1.45271997568211, 1.46047336788552, 1.46822676008893, 1.47598015229233, 1.48373354449574, 1.49148693669915, 1.49924032890256, 1.50699372110597, 1.51474711330937, 1.52250050551278, 1.53025389771619, 1.5380072899196, 1.54576068212301, 1.55351407432641, 1.56126746652982, 1.56902085873323, 1.57677425093664, 1.58452764314005, 1.59228103534345, 1.60003442754686, 1.60778781975027, 1.61554121195368, 1.62329460415708, 1.63104799636049, 1.6388013885639, 1.64655478076731, 1.65430817297072);
    DoublePtr xout = new DoublePtr(-2.30767524297072);

    IntPtr nout = new IntPtr(xout.array.length);
    IntPtr interpolationMethod = new IntPtr(1);
    DoublePtr yleft = new DoublePtr(DoubleVector.NA);
    DoublePtr yright = new DoublePtr(DoubleVector.NA);
    DoublePtr f = new DoublePtr(0);

    method.invoke(null, x, y, nxy, xout, nout, interpolationMethod, yleft, yright, f);

    System.out.println(xout);
View Full Code Here
120
121
122
123
124
125
126
  public static DoublePtr doublePtrFromVector(SEXP sexp) {
    if(!(sexp instanceof AtomicVector)) {
      throw new EvalException("expected atomic vector");
    }
    return new DoublePtr(((AtomicVector) sexp).toDoubleArray());
  }
View Full Code Here
195
196
197
198
199
200
201
202
203
204
205
    for(int i=0;i!=callArguments.length();++i) {
      AtomicVector vector = (AtomicVector) callArguments.get(i);
      if(fortranTypes[i].equals(DoublePtr.class)) {
        double[] array = vector.toDoubleArray();
        fortranArgs[i] = new DoublePtr(array, 0);
        returnValues.add(callArguments.getName(i), DoubleArrayVector.unsafe(array, vector.getAttributes()));

      } else if(fortranTypes[i].equals(IntPtr.class)) {
        int[] array = vector.toIntArray();
        fortranArgs[i] = new IntPtr(array, 0);
View Full Code Here
TOP

Related Classes of org.renjin.gcc.runtime.DoublePtr

  • org.renjin.appl.DqrslTest
  • org.renjin.gcc.BasicTest
  • org.renjin.gcc.Dqrdc2Test
  • org.renjin.gcc.Gcc472Test
  • org.renjin.primitives.Native
  • org.renjin.stats.ApproxTest
    • Copyright © 2018 www.massapicom. All rights reserved.
    All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.