Home
last modified time | relevance | path

Searched refs:data_double (Results 1 – 25 of 66) sorted by relevance

123

/dports/astro/oskar/OSKAR-2.8.0/oskar/binary/test/
H A DTest_binary.c40 double* data_double = 0; in main() local
51 data_double = (double*) calloc(num_elements_double, sizeof(double)); in main()
60 data_double[i] = i + 1000.0; in main()
91 data_double[i] = i * 1234.0; in main()
94 4, 0, 3, size_double, &data_double[0], &status); in main()
99 free(data_double); in main()
126 4, 0, 3, size_double, &data_double[0], &status); in main()
130 ASSERT_DOUBLE_EQ(i * 1234.0, data_double[i]); in main()
136 free(data_double); in main()
150 ASSERT_DOUBLE_EQ(i + 1000.0, data_double[i]); in main()
[all …]
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_PartRdWr/
H A Dcgwrite.F26 real*8 data_double(27) variable
78 if (coord.eq.1) data_double(pos) = i
79 if (coord.eq.2) data_double(pos) = -i
80 if (coord.eq.3) data_double(pos) = i
84 & coordname(coord), rmin, rmax, data_double, C,
100 if (coord.eq.1) data_double(pos) = -i
101 if (coord.eq.2) data_double(pos) = i
102 if (coord.eq.3) data_double(pos) = -i
106 & coordname(coord), rmin, rmax, data_double, C,
H A Dcgread.F28 double precision data_double(NNODES) variable
108 & RealDouble, range_min, range_max, data_double, ier)
111 write(6,109)'first point:',data_double(1)
112 write(6,109)'last point :',data_double(size(1)-range_min(1)+1)
/dports/science/cgnslib/CGNS-4.1.2/src/tests/
H A Dcgread_f03.F9076 DOUBLE PRECISION data_double(100000)
474 WRITE(6,106) (data_double(i),i=1,2)
475 WRITE(6,106) (data_double(i),i=num-1,num)
525 data_double, ier)
940 WRITE(6,124) data_double(1)
987 data_double, ier)
1006 ' first point:', data_double(1),data_double(2), &
1007 data_double(3), &
1009 data_double(3*npnts-1), &
1010 data_double(3*npnts)
[all …]
H A Dcgread.F9058 double precision data_double(100000)
268 call cg_array_read_f(iarray, data_double, ier)
270 write(6,106) (data_double(n),n=1,dim_vals(1))
442 write(6,106) (data_double(i),i=1,2)
443 write(6,106) (data_double(i),i=num-1,num)
908 write(6,124) data_double(1)
955 & data_double, ier)
974 & ' first point:', data_double(1),data_double(2),
975 & data_double(3),
978 & data_double(3*npnts)
[all …]
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_Links/
H A Dcgread.F51 double precision data_double(100000) variable
262 call cg_array_read_f(iarray, data_double, ier)
264 write(6,106) (data_double(n),n=1,dim_vals(1))
360 & (data_double(n),n=1,5)
381 & (data_double(n),n=1,2)
459 write(6,106) (data_double(i),i=1,2)
959 write(6,124) data_double(1)
1007 & data_double, ier)
1026 & ' first point:', data_double(1),data_double(2),
1027 & data_double(3),
[all …]
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test1/
H A Dcgread.F56 double precision data_double(100000) variable
263 call cg_array_read_f(iarray, data_double, ier)
265 write(6,106) (data_double(n),n=1,dim_vals(1))
437 write(6,106) (data_double(i),i=1,2)
438 write(6,106) (data_double(i),i=num-1,num)
905 write(6,124) data_double(1)
952 & data_double, ier)
971 & ' first point:', data_double(1),data_double(2),
972 & data_double(3),
975 & data_double(3*npnts)
[all …]
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_UserDefinedData/
H A Dcgread.F60 double precision data_double(100000) variable
269 call cg_array_read_f(iarray, data_double, ier)
271 write(6,106) (data_double(n),n=1,dim_vals(1))
443 write(6,106) (data_double(i),i=1,2)
444 write(6,106) (data_double(i),i=num-1,num)
925 write(6,124) data_double(1)
972 & data_double, ier)
991 & ' first point:', data_double(1),data_double(2),
992 & data_double(3),
995 & data_double(3*npnts)
[all …]
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_mixed_elements/
H A Dcgmodify.F22 double precision data_double(27) variable
72 if (coord.eq.1) data_double(pos) = (i-1)*5
73 if (coord.eq.2) data_double(pos) = (j-1)*5
74 if (coord.eq.3) data_double(pos) = (k-1)*5
84 & index_dim, size, data_double, ier)
H A Dcgwrite.F23 double precision data_double(27) variable
73 if (coord.eq.1) data_double(pos) = (i-1)*5
74 if (coord.eq.2) data_double(pos) = (j-1)*5
75 if (coord.eq.3) data_double(pos) = (k-1)*5
85 & index_dim, size, data_double, ier)
H A Dcgread.F9028 double precision data_double(NNODES) variable
107 RealDouble, range_min, range_max, data_double, ier)
110 write(6,109)'first point:',data_double(1)
111 write(6,109)'last point :',data_double(size(1))
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_UD_BCData/
H A Dcgread.F61 double precision data_double(100000) variable
272 call cg_array_read_f(iarray, data_double, ier)
274 write(6,106) (data_double(n),n=1,dim_vals(1))
446 write(6,106) (data_double(i),i=1,2)
447 write(6,106) (data_double(i),i=num-1,num)
994 write(6,124) data_double(1)
1041 & data_double, ier)
1060 & ' first point:', data_double(1),data_double(2),
1061 & data_double(3),
1064 & data_double(3*npnts)
[all …]
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_motion/
H A Dcgread.F9024 double precision data_double(100000) variable
136 call cg_array_read_f(iarray, data_double, ier)
138 write(6,106)' data=',(data_double(i),i=1,num)
273 call cg_array_read_f(iarray, data_double, ier)
275 write(6,106) 'first pts:',(data_double(i),i=1,2)
276 write(6,106) 'last pts:',(data_double(i),i=num-1,num)
338 call cg_array_read_f(iarray, data_double, ier)
340 write(6,106) ' first pts:',(data_double(i),i=1,2)
416 call cg_array_read_f(iarray, data_double, ier)
419 (data_double(i),i=1,dim_vals(1))
[all …]
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_mixed_grid/
H A Dcgmodify.F35 double precision data_double(200*3), interpolants(3,9) variable
121 if (coord.eq.1) data_double(pos) = (i-1)*5 +
123 if (coord.eq.2) data_double(pos) = (j-1)*5
124 if (coord.eq.3) data_double(pos) = (k-1)*5
133 & index_dim, size, data_double, ier)
140 data_double(n) = 1.0 + n/10.0
146 & 'DummySolution', data_double, field_no, ier)
H A Dcgwrite.F36 double precision data_double(200*3), interpolants(3,9) variable
125 if (coord.eq.1) data_double(pos) = (i-1)*5 +
127 if (coord.eq.2) data_double(pos) = (j-1)*5
128 if (coord.eq.3) data_double(pos) = (k-1)*5
137 & index_dim, size, data_double, ier)
144 data_double(n) = 1.0 + n/10.0
150 & 'DummySolution', data_double, field_no, ier)
H A Dcgread.F9039 double precision data_double(NNODES) variable
256 RealDouble, range_min, range_max, data_double, ier)
258 write(6,114)coordname(i),'=',data_double(1)
360 call cg_array_read_f(1, data_double, ier)
366 data_double(pos)
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_Family/
H A Dcgwrite.F36 double precision data_double(200*3), interpolants(3,9) variable
127 if (coord.eq.1) data_double(pos) = (i-1)*5 +
129 if (coord.eq.2) data_double(pos) = (j-1)*5
130 if (coord.eq.3) data_double(pos) = (k-1)*5
139 & index_dim, size, data_double, ier)
146 data_double(n) = 1.0 + n/10.0
152 & 'DummySolution', data_double, field_no, ier)
H A Dcgread.F9039 double precision data_double(NNODES) variable
328 RealDouble, range_min, range_max, data_double, ier)
330 write(6,114)coordname(i),'=',data_double(1)
432 call cg_array_read_f(1, data_double, ier)
438 data_double(pos)
/dports/x11/babl/babl-0.1.88/babl/
H A Dbabl-palette.c53 double *data_double; member
312 pal->data_double = babl_malloc (4 * sizeof(double) * count); in make_pal()
319 data, pal->data_double, count); in make_pal()
336 babl_free (pal->data_double); in babl_palette_free()
366 pal.data_double = defpal_double; in default_palette()
371 pal.data, pal.data_double, pal.count); in default_palette()
496 palpx = ((double *)pal->data_double) + idx * 4; in pal_to_rgba()
527 palpx = ((double *)pal->data_double) + idx * 4; in pala_to_rgba()
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_EM/
H A Dcgread.F9038 double precision data_double(100000) variable
255 call cg_array_read_f(iarray, data_double, ier)
257 write(6,106) (data_double(n),n=1,dim_vals(1))
360 call cg_array_read_f(iarray, data_double, ier)
362 write(6,106) (data_double(n),n=1,dim_vals(1))
/dports/science/hdf5-18/hdf5-1.8.21/test/
H A Denum.c139 double data_double[NELMTS(data1)]; in test_conv() local
188 … if(H5Dread(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, data_double) < 0) FAIL_STACK_ERROR in test_conv()
191 if((int)data1[i] != (int)data_double[i]) { in test_conv()
195 (unsigned long)i, (int)(data_double[i])); in test_conv()
232 … if(H5Dread(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, data_double) < 0) FAIL_STACK_ERROR in test_conv()
235 if((int)data1[i] != (int)data_double[i]) { in test_conv()
239 (unsigned long)i, (int)(data_double[i])); in test_conv()
/dports/science/hdf5/hdf5-1.10.6/test/
H A Denum.c139 double data_double[NELMTS(data1)]; in test_conv() local
188 … if(H5Dread(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, data_double) < 0) FAIL_STACK_ERROR in test_conv()
191 if((int)data1[i] != (int)data_double[i]) { in test_conv()
195 (unsigned long)i, (int)(data_double[i])); in test_conv()
232 … if(H5Dread(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, data_double) < 0) FAIL_STACK_ERROR in test_conv()
235 if((int)data1[i] != (int)data_double[i]) { in test_conv()
239 (unsigned long)i, (int)(data_double[i])); in test_conv()
/dports/math/libmesh/libmesh-1.6.2/contrib/netcdf/netcdf-c-4.6.2/hdf4_test/
H A Dtst_hdf4_extra.c70 double data_double[LAT_LEN * LON_LEN]; in main() local
101 if (nc_get_vara_double(ncid, 0, start, count, data_double)) ERR; in main()
103 if (data_double[i] != (double)i) ERR; in main()
/dports/science/netcdf/netcdf-c-4.7.4/hdf4_test/
H A Dtst_hdf4_extra.c70 double data_double[LAT_LEN * LON_LEN]; in main() local
101 if (nc_get_vara_double(ncid, 0, start, count, data_double)) ERR; in main()
103 if (data_double[i] != (double)i) ERR; in main()
/dports/science/cgnslib/CGNS-4.1.2/src/examples/fortran/Test_chemistry/
H A Dcgread.F9036 double precision data_double(100000) variable
240 call cg_array_read_f(iarray, data_double, ier)
242 write(6,106) (data_double(n),n=1,dim_vals(1))

123