Lines Matching defs:ramg_commOut
893 subroutine ramg_commOut(global,level,ilwork,redun,iper,iBC,BC) subroutine
899 integer,intent(in) :: level
900 integer,intent(in) :: redun
902 & :: global
903 integer,intent(in),dimension(nlwork) :: ilwork
904 integer,intent(in),dimension(nshg) :: iBC,iper
905 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
907 integer :: numtask,iacc,itag(ilwork(1)),i,j,m,k
908 integer :: iother(ilwork(1)),ierr,iotheri
909 integer :: numseg(ilwork(1))
910 integer :: mstat(MPI_STATUS_SIZE,ilwork(1))
911 integer :: req(ilwork(1))
912 type(r2d),dimension(ilwork(1)) :: tmparray