/dports/astro/oskar/OSKAR-2.8.0/oskar/binary/test/ |
H A D | Test_binary.c | 40 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 D | cgwrite.F | 26 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 D | cgread.F | 28 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 D | cgread_f03.F90 | 76 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 D | cgread.F90 | 58 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 D | cgread.F | 51 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 D | cgread.F | 56 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 D | cgread.F | 60 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 D | cgmodify.F | 22 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 D | cgwrite.F | 23 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 D | cgread.F90 | 28 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 D | cgread.F | 61 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 D | cgread.F90 | 24 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 D | cgmodify.F | 35 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 D | cgwrite.F | 36 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 D | cgread.F90 | 39 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 D | cgwrite.F | 36 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 D | cgread.F90 | 39 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 D | babl-palette.c | 53 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 D | cgread.F90 | 38 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 D | enum.c | 139 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 D | enum.c | 139 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 D | tst_hdf4_extra.c | 70 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 D | tst_hdf4_extra.c | 70 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 D | cgread.F90 | 36 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))
|