Lines Matching refs:nbls1
2 subroutine conbuf2_der_ne(firstc,nbls,nbls1,xt1,lt1,lt2,buf2,indx, argument
18 dimension xt1(nbls1*lt1*lt2)
20 dimension aax(nbls1),bbx(nbls1),ccx(nbls1)
33 do i=1,nbls1
42 ijklxt = nbls1*ijkl1
43 do i=1,nbls1
57 ijklxt = nbls1*ijkl1
58 do i=1,nbls1
74 ijklxt = nbls1*ijkl1
75 do i=1,nbls1
89 ijklxt = nbls1*ijkl1
90 do i=1,nbls1
104 do i=1,nbls1
109 subroutine conbuf2_der_eq(firstc,nbls,nbls1,xt1,lt1,lt2,buf2,indx, argument
128 dimension aax(nbls1),bbx(nbls1),ccx(nbls1)
139 if (nbls1 .ne. nbls) call errquit('conbuf2_der_eq: ne!',nbls,