Lines Matching refs:ntspts

30         allocate (statptts(ntspts,2))
31         allocate (parptts( ntspts,nsd))
32         allocate (varts(   ntspts,ndof))
40         allocate (ivarts(    ntspts*ndof))
41         allocate (ivartsg(   ntspts*ndof))
42         allocate (vartssoln( ntspts*ndof))
43         allocate (vartssolng(ntspts*ndof))
44         allocate (vartsbuff( ntspts,ndof,nbuff))
89           read(626,*) ntspts, freq, tolpt, iterat, nbuff
96           call MPI_Bcast(ntspts, 1, MPI_INTEGER,          master,
108         allocate (ptts(    ntspts,nsd))
113           do jj=1,ntspts        ! read coordinate data where solution desired
121           call MPI_Bcast(ptts, ntspts*nsd, MPI_DOUBLE_PRECISION,
159            do jj = 1, ntspts 
167      &           ndof*ntspts
199             do jj = 1, ntspts
205             do k=1,ndof*ntspts
210             call MPI_REDUCE(vartssoln, vartssolng, ndof*ntspts,
214             call MPI_REDUCE(ivarts, ivartsg, ndof*ntspts,
221                do jj = 1, ntspts
241             do jj = 1, ntspts
294      &                                         , jj=1, ntspts) !loop over probe points
354         allocate (statptts(ntspts,2))
355         allocate (ptts(ntspts,nsd))
356         allocate (parptts(ntspts,nsd))
357         allocate (varts(ntspts,ndof))