Lines Matching refs:facti

880      *                    bfij1,lt3,lt4, facti,npij,lci,
889       dimension facti(npij,*)
894       call convr1(bl,nbls1,ifni,facti,lci,npij,idx1,indx)
905      *            facti, bfij1,lt3,lt4, indx,nbls1, ijenx,klenx)
921       dimension facti(*)
1007      *                   facti,factk,npij,npkl,
1016       dimension facti(npij,*),factk(npkl,*)
1023       call convr2(bl,nbls1,ifni ,facti ,lci ,npij,idx1,
1035      *                   bf2l1,lt3,lt4,facti,factk,indx)
1053       dimension facti(*),factk(*)
1182      *                   facti,factkl, bf3l,lt5,lt6,
1192       dimension facti(npij,*),factkl(npkl,*)
1195       call convr2(bl,nbls1,ifni ,facti ,lci ,npij,idx1,
1207      *                   facti,factkl, bf3l,lt5,lt6, indx)
1224       dimension facti(*), factkl(*)
1331       subroutine convr1(bl,nbls,ifni,facti,lci,npij,idx1,indx)
1336       dimension facti(npij,*)
1344        bl(ifni1+i)=facti(ijpar,lci)
1638      *                      bfij1,lt3,lt4, facti,lci,
1646       dimension facti(*)
1650      *           facti(lci),bfij1,lt3,lt4, indx,nbls1, ijenx,klenx)
1655      *            facti, bfij1,lt3,lt4, indx,nbls1, ijenx,klenx)
1669               facti1=facti
1737      *                     facti,factk,
1745       dimension facti(*),factk(*)
1749      *             bf2l1,lt3,lt4,facti(lci), factk(lck) ,indx)
1755      *                   bf2l1,lt3,lt4,facti,factk,indx)
1784               factik1=facti*factk
1871      *                     facti,factkl, bf3l,lt5,lt6,
1879       dimension facti(*),factkl(*)
1883      *             facti(lci),factkl(lckl), bf3l,lt5,lt6, indx)
1888      *                   facti,factkl, bf3l,lt5,lt6, indx)
1916              factkli=factkl*facti