Lines Matching refs:itkbeg
33 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
68 itkbeg = 1
91 itag = ilwork(itkbeg+1)
92 iacc = ilwork(itkbeg+2)
93 iother = ilwork(itkbeg+3)
94 numseg = ilwork(itkbeg+4)
95 isgbeg = ilwork(itkbeg+5)
107 k = ilwork(itkbeg+3+2*j) ! row idx
157 itkbeg = itkbeg + 4 + 2*numseg
169 itkbeg = 1
175 itag = ilwork(itkbeg+1)
176 iacc = ilwork(itkbeg+2)
177 iother = ilwork(itkbeg+3)
178 numseg = ilwork(itkbeg+4)
179 isgbeg = ilwork(itkbeg+5)
237 itkbeg = itkbeg + 4 + 2*numseg
655 integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k local
689 itkbeg=1
692 iacc=ilwork(itkbeg+2)
693 iother=ilwork(itkbeg+3) ! starts from 0
694 numseg=ilwork(itkbeg+4)
696 k=ilwork(itkbeg+3+2*j) ! row index
701 itkbeg=itkbeg+4+2*numseg
713 itkbeg = 1
716 iacc = ilwork(itkbeg+2)
717 iother = ilwork(itkbeg+3)+1
723 numseg = ilwork(itkbeg+4)
725 k = ilwork(itkbeg+3+2*j)
731 itkbeg=itkbeg+4+2*numseg
756 integer :: numtask,itag,iacc,iother,numseg,isgbeg,itkbeg variable
831 itkbeg = 1
833 iacc = ilwork(itkbeg+2)
834 iother = ilwork(itkbeg+3)
835 numseg = ilwork(itkbeg+4)
842 isgbeg = ilwork(itkbeg+3+j*2)
843 lenseg = ilwork(itkbeg+4+j*2)
847 itkbeg = itkbeg + 4 + 2*numseg
924 itkbeg=1
926 itag(i)=ilwork(itkbeg+1)
927 itkbeg=itkbeg+4+2*ilwork(itkbeg+4)
929 itkbeg=1
931 iother(i)=amg_ilwork(level)%p(itkbeg+1)
932 numseg(i)=amg_ilwork(level)%p(itkbeg+2)
934 itkbeg=itkbeg+2
936 itkbeg=itkbeg+1
937 tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
973 itkbeg=1
975 numseg(i)=amg_ilwork(level)%p(itkbeg+2)
976 itkbeg=itkbeg+2
978 itkbeg=itkbeg+1
979 global(amg_ilwork(level)%p(itkbeg),:)=tmparray(i)%p(j,:)
1020 itkbeg=1
1022 itag(i)=ilwork(itkbeg+1)
1023 itkbeg=itkbeg+4+2*ilwork(itkbeg+4)
1025 itkbeg=1
1027 iother(i)=amg_ilwork(level)%p(itkbeg+1)
1028 numseg(i)=amg_ilwork(level)%p(itkbeg+2)
1030 itkbeg=itkbeg+2
1032 itkbeg=itkbeg+1
1033 tmparray(i)%p(j,:)=global(amg_ilwork(level)%p(itkbeg),:)
1060 itkbeg=1
1062 numseg(i)=amg_ilwork(level)%p(itkbeg+2)
1063 itkbeg=itkbeg+2
1065 itkbeg=itkbeg+1
1067 global(amg_ilwork(level)%p(itkbeg),:)=
1068 & global(amg_ilwork(level)%p(itkbeg),:)+tmparray(i)%p(j,:)
1070 global(amg_ilwork(level)%p(itkbeg),:)=0