Lines Matching refs:nqi
166 * bl(ixij),nfu(nqi+1),lqij,lnkl,mnbls,
174 ixij0=ixij +mnbls*nfu(nqi+1)*lqij*lnkl
177 * bl(ixij),bl(ixij0),nfu(nqi+1),lqij,lnkl,
186 ixij1=ixij +mnbls*nfu(nqi+1)*lqij*lnkl
188 ixij0=ixij1 + 9*nbls*nfu(nqi+1)*lqij*lnkl
193 * nfu(nqi+1),lqij,lnkl, mnbls,nbls,
216 * bl(ixij),nfu(nqi+1),lnkl,bl(iyij),nfu(nqj+1),
248 * bl(ixij),nfu(nqi+1),lnkl,bl(iyij),bl(izij),nfu(nqj+1),
295 * bl(ixij),nfu(nqi+1),lnkl,bl(iyij),bl(izij),nfu(nqj+1),
337 * bl(ixij),nfu(nqi+1),lnkl,bl(iyij),bl(izij),nfu(nqj+1),
390 * nqi,nqj,nqk,nql,nsij,nskl,
471 * nqi,nqj,nqk,nql,nsij,nskl,
481 nibeg=nfu(nqi)+1
482 niend=nfu(nqi+1)
491 nqix=nqi
504 call horiz12(wij,lt3,lsjl,xab,mnbls,nqi,nqj,nsij1)
560 * nqi,nqj,nqk,nql,nsij,nskl,
577 nibeg=nfu(nqi)+1
578 niend=nfu(nqi+1)
587 nqix=nqi
620 do 11 ij=nqi,nsij
630 call horiz12(wij,lt5,lt6,xab,mnbls,nqi,nqj,nsij1)
634 do 16 ni=nfu(nqi)+1,nfu(nqi+1)
650 do 17 nij=nfu(nqi )+1,nfu(nqi +1)
673 call horiz12(vij,lt5,lt6,xab,mnbls,nqi,nqj,nsij1)
754 * nqi,nqj,nqk,nql,nsij,nskl,
776 nibeg=nfu(nqi)+1
777 niend=nfu(nqi+1)
786 nqix=nqi
848 call horiz12(wij,lt5,lt6,xab,mnbls,nqi,nqj,nsij1)
852 call horiz12(vij,lt5,lt6,xab,mnbls,nqi,nqj,nsij1)
855 call horiz12(uij,lt5,lt6,xab,mnbls,nqi,nqj,nsij1)
860 call horiz12(sij,lt5,lt6,xab,mnbls,nqi,nqj,nsij1)
894 do 108 nij=nfu(nqi )+1,nfu(nqi +1)
970 if( ni.le.nfu(nqi +1).and.nj.le.nfu(nqj +1) ) then
981 if(nj.eq.1.and.ni.ge.nfu(nqi)+1) then
990 if(lcas2(3).eq.1.and.nj.eq.1.and.ni.ge.nfu(nqi)+1) then
1045 * nqi,nqj,nqk,nql,nsij,nskl,
1071 nibeg=nfu(nqi)+1
1072 niend=nfu(nqi+1)
1081 nqix=nqi
1143 call horiz12(wij,lt6,lt7,xab,mnbls,nqi,nqj,nsij1)
1147 call horiz12(vij,lt6,lt7,xab,mnbls,nqi,nqj,nsij1)
1150 call horiz12(uij,lt6,lt7,xab,mnbls,nqi,nqj,nsij1)
1155 call horiz12(sij,lt6,lt7,xab,mnbls,nqi,nqj,nsij1)
1189 do 108 nij=nfu(nqi )+1,nfu(nqi +1)
1231 do 110 nij=nfu(nqi )+1,nfu(nqi +1)
1306 if( ni.le.nfu(nqi +1).and.nj.le.nfu(nqj +1) ) then
1314 if(nj.eq.1.and.ni.ge.nfu(nqi)+1) then
1326 if(nj.eq.1.and.ni.ge.nfu(nqi)+1) then
1419 * nqi,nqj,nqk,nql,nsij,nskl,
1447 niend=nfu(nqi+1)
1494 call horiz12(wij,lt6,lt7,xab,mnbls,nqi,nqj,nsij1)
1497 call horiz12(vij,lt6,lt7,xab,mnbls,nqi,nqj,nsij1)
1498 call horiz12(uij,lt6,lt7,xab,mnbls,nqi,nqj,nsij1)
1501 call horiz12(sij,lt6,lt7,xab,mnbls,nqi,nqj,nsij1)
1522 do 108 nij=nfu(nqi )+1,nfu(nqi +1)
1592 if( ni.le.nfu(nqi +1).and.nj.le.nfu(nqj +1) ) then
1640 subroutine horiz12(wij,lw1,lw2,xab,mnbls,nqi,nqj,nsij1)
1650 do 115 i=nsij1-j,nqi,-1
1682 * nqi,nqj,nqk,nql,nsij,nskl,
1693 nibeg=nfu(nqi)+1
1694 niend=nfu(nqi+1)
1703 nqix=nqi
1717 call horiz12_der1(wij0,wij,lt3,lsjl,xab, nbls,nqi,nqj,nsij1)
1758 subroutine horiz12_der1(wij0,wij,lw1,lw2,xab,nbls,nqi,nqj,nsij1)
1769 do 115 i=nsij1-j,nqi,-1
1831 subroutine horiz34_der1(wij0,wij,lw1,lw2,xab,nbls,nqi,nqj,nsij1)
1842 do 115 i=nsij1-j,nqi,-1
1914 * nqi,nqj,nqk,nql,nsij,nskl,
1929 nibeg=nfu(nqi)+1
1930 niend=nfu(nqi+1)
1939 nqix=nqi
1955 * lt3,lsjl,xab, nbls,nqi,nqj,nsij1)
2000 * lw1,lw2,xab,nbls,nqi,nqj,nsij1)
2012 do 115 i=nsij1-j,nqi,-1
2137 * lw1,lw2,xab,nbls,nqi,nqj,nsij1)
2149 do 115 i=nsij1-j,nqi,-1