Lines Matching refs:nshg
118 & c_loc(nshg),ione, dataInt, iotype)
196 fncorpsize = nshg
204 do i = 1,nshg
222 fncorpsize = nshg
224 maxowned=nshg
226 iownnodes=nshg
227 do i =1,nshg
232 allocate(ltg(nshg))
233 do i =1,nshg
239 nshg0 = nshg
299 & c_loc(nshg),ione, dataInt, iotype)
301 allocate( nBC(nshg) )
303 allocate( nBCread(nshg) )
307 & c_loc(nBCread), nshg, dataInt, iotype)
370 & c_loc(nshg), ione, dataInt, iotype)
371 allocate( point2iper(nshg) )
372 allocate( iperread(nshg) )
375 & c_loc(iperread), nshg, dataInt, iotype)
439 & c_loc(nshg), ione, dataInt, iotype);
441 allocate (point2ifath(nshg))
445 & c_loc(point2ifath), nshg, dataInt, iotype)
452 nfath=nshg
455 allocate (point2ifath(nshg))
456 do i=1,nshg
499 allocate( qold(nshg,ndof) )
507 if (nshg2 .ne. nshg)
508 & call error ('restar ', 'nshg ', nshg)
509 allocate( qread(nshg,ndof2) )
510 iqsiz=nshg*ndof2
536 allocate( acold(nshg,ndof) )
542 if (nshg2 .ne. nshg)
543 & call error ('restar ', 'nshg ', nshg)
544 allocate( acread(nshg,ndof2) )
546 iacsiz=nshg*ndof2
576 if (nshg2 .ne. nshg)
577 & call error ('restar ', 'nshg ', nshg)
581 allocate( uold(nshg,nsd) )
582 allocate( uread(nshg,nsd) )
584 iusiz=nshg*nsd
592 allocate( uold(nshg,nsd) )
627 integer iBC(nshg)