Searched defs:ramg_freeBC (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_tools.f | 343 subroutine ramg_freeBC(amg_F,ilwork,BC,iBC,iper) subroutine
348 integer,intent(inout),dimension(nshg) :: amg_F
349 integer,intent(in),dimension(nlwork) :: ilwork
350 integer,intent(in),dimension(nshg) :: iBC,iper
351 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
352 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg,numtask
353 integer :: i,p
354 integer,dimension(nshg,2) :: tmpout
356 character :: filename*80
357 integer :: nentry,nshg,iglobal,ilocal,icf,iproc
|