Searched refs:coords (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/test/ |
| H A D | phIOread.f | 20 type(ptrarr), target, dimension(2) :: coords variable
25 coords(1)%ptr => syncCoords
26 coords(2)%ptr => posixCoords
47 allocate( coords(i)%ptr(numpts(1),numpts(2)) )
49 & c_loc(coords(i)%ptr(1,1)), ncoords(i), dataDbl, iotype)
59 if( coords(1)%ptr(i,j) .ne. coords(2)%ptr(i,j) ) then
65 deallocate(coords(1)%ptr)
66 deallocate(coords(2)%ptr)
|
| H A D | phIOreaddatablock.cc | 24 double* coords[2] = {NULL, NULL}; in main() local
38 coords[i] = (double*) malloc(len[i]*sizeof(double)); in main()
39 phio_readdatablock(file[i], phrase, coords[i], &(len[i]), type, iotype); in main()
56 match = match && ( coords[0][i] == coords[1][i] ); in main()
66 free(coords[i]); in main()
|