Searched refs:ncoords (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/test/ |
| H A D | phIOread.f | 18 integer, target, dimension(2) :: numpts, ncoords variable
46 ncoords(i) = numpts(1)*numpts(2)
49 & c_loc(coords(i)%ptr(1,1)), ncoords(i), dataDbl, iotype)
53 if( ncoords(1) .ne. ncoords(2) ) then
54 write (*,*) 'rank ncoords', rank, ncoords
|