Searched refs:isupb (Results 1 – 6 of 6) sorted by relevance
75 common /superbl/ isupb,ibl,kbl100 isupb=0108 isupb=ibl12+kbl122 maxsize=mxsize(isupb)2029 isbl_size=isbl_s(isupb)2049 isbl_size=isbl_s(isupb)2068 if(ibeg.le.isupb .and. isupb.le.iend) then2135 isbl_size=isbl_s(isupb)2145 if(ibeg.le.isupb .and. isupb.le.iend) then2179 if(ibeg.le.isupb .and. isupb.le.iend) then[all …]
1014 isupb=01023 isupb=isupb+ibl1030 isupb=isupb+1 1031 isbl_part(isupb)=11032 isbl_size=isbl_s(isupb)1044 maxm_size=maxsize(isupb)1063 maxm_size=maxsize(isupb)1064 maxm_pair=maxpair(isupb)1133 isupb=iibl+kbl1134 isbl_size=isbl_s(isupb)[all …]
269 subroutine precalc2_1(isupb,bl,mmax,mmax1,nhabcd,nfumax,1306 subroutine precalc2_2(isupb,bl,mmax,mmax1,nfumax,
75 common /superbl/ isupb,ibl,kbl local100 isupb=0108 isupb=ibl12+kbl122 maxsize=mxsize(isupb)2029 isbl_size=isbl_s(isupb)2049 isbl_size=isbl_s(isupb)2068 if(ibeg.le.isupb .and. isupb.le.iend) then2135 isbl_size=isbl_s(isupb)2145 if(ibeg.le.isupb .and. isupb.le.iend) then2179 if(ibeg.le.isupb .and. isupb.le.iend) then[all …]
269 subroutine precalc2_1(isupb,bl,mmax,mmax1,nhabcd,nfumax, argument1306 subroutine precalc2_2(isupb,bl,mmax,mmax1,nfumax, argument