235       subroutine reconstruct( rmass, qres, iBC, iper, ilwork, vsize )  argument
239       integer vsize  local
240       dimension rmass(nshg), qres( nshg, vsize),
247           call commu ( qres  , ilwork,  vsize  , 'in ')
273        do i=1,vsize 
278           call commu (qres, ilwork, vsize, 'out')    
288         subroutine local_gradient ( vector,   vsize, shgl,   xl,   argument
296         integer vsize  local
298         dimension vector(npro,nshl,vsize), 
300      &            gradient(npro,vsize*3),     shg(npro,nshl,nsd), 
379             do j = 1, vsize
380                k = (i-1)*vsize+j