Home
last modified time | relevance | path

Searched refs:JPTR (Results 1 – 15 of 15) sorted by relevance

/dports/math/cmlib/cmlib-3.0_8/src/splp/
H A Dmc20as.f1 SUBROUTINE MC20AS(NC, MAXA, A, INUM, JPTR, JNUM, JDISP) argument
19 DIMENSION JPTR(NC)
24 JPTR(J) = 0
29 JPTR(J) = JPTR(J) + 1
34 KR = K + JPTR(J)
35 JPTR(J) = K
53 LOC = JPTR(JCE)
54 JPTR(JCE) = JPTR(JCE) + 1
76 JB = JPTR(J)
77 JPTR(J) = JA
/dports/math/slatec/src/
H A Dmc20as.f2 SUBROUTINE MC20AS (NC, MAXA, A, INUM, JPTR, JNUM, JDISP) argument
33 DIMENSION JPTR(NC)
38 JPTR(J) = 0
43 JPTR(J) = JPTR(J) + 1
48 KR = K + JPTR(J)
49 JPTR(J) = K
67 LOC = JPTR(JCE)
68 JPTR(JCE) = JPTR(JCE) + 1
90 JB = JPTR(J)
91 JPTR(J) = JA
H A Dmc20ad.f2 SUBROUTINE MC20AD (NC, MAXA, A, INUM, JPTR, JNUM, JDISP) argument
33 DIMENSION JPTR(NC)
38 JPTR(J) = 0
43 JPTR(J) = JPTR(J) + 1
48 KR = K + JPTR(J)
49 JPTR(J) = K
67 LOC = JPTR(JCE)
68 JPTR(JCE) = JPTR(JCE) + 1
90 JB = JPTR(J)
91 JPTR(J) = JA
/dports/math/algae/algae-4.3.6/src/
H A Dgpskca.f1412 JPTR = RSTART (NODE)
1416 JPTR = JPTR + 1
1972 JPTR = RSTART (LVLLSL)
1975 CONNEJ = CONNEC (JPTR)
1977 JPTR = JPTR + 1
2039 JPTR = JPTR + 1
2243 JPTR = RSTART (I)
2249 JNODE = CONNEC(JPTR)
2250 JPTR = JPTR + 1
2343 JPTR = RSTART (I)
[all …]
/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpcgbtrf.f376 $ ICTXT_SAVE, IDUM3, J, JA_NEW, JPTR, L, LAF_MIN, local
756 JPTR = J-(LN+1)+2*BW+1-LBWL + LN*LLDA
767 CALL CSWAP( LNJ, A(LPTR),LDB, A(JPTR), LDB )
776 CALL CGERU(LMJ,LNJ,-CONE, A(LPTR),1, A(JPTR),LDB,
777 $ A(JPTR+1),LDB)
H A Dpsgbtrf.f373 $ ICTXT_NEW, ICTXT_SAVE, IDUM3, J, JA_NEW, JPTR,
744 JPTR = J - ( LN+1 ) + 2*BW + 1 - LBWL + LN*LLDA
755 CALL SSWAP( LNJ, A( LPTR ), LDB, A( JPTR ), LDB )
764 CALL SGER( LMJ, LNJ, -ONE, A( LPTR ), 1, A( JPTR ), LDB,
765 $ A( JPTR+1 ), LDB )
H A Dpzgbtrf.f376 $ ICTXT_SAVE, IDUM3, J, JA_NEW, JPTR, L, LAF_MIN,
756 JPTR = J-(LN+1)+2*BW+1-LBWL + LN*LLDA
767 CALL ZSWAP( LNJ, A(LPTR),LDB, A(JPTR), LDB )
776 CALL ZGERU(LMJ,LNJ,-CONE, A(LPTR),1, A(JPTR),LDB,
777 $ A(JPTR+1),LDB)
H A Dpdgbtrf.f373 $ ICTXT_NEW, ICTXT_SAVE, IDUM3, J, JA_NEW, JPTR, local
744 JPTR = J - ( LN+1 ) + 2*BW + 1 - LBWL + LN*LLDA
755 CALL DSWAP( LNJ, A( LPTR ), LDB, A( JPTR ), LDB )
764 CALL DGER( LMJ, LNJ, -ONE, A( LPTR ), 1, A( JPTR ), LDB,
765 $ A( JPTR+1 ), LDB )
/dports/math/scilab/scilab-6.1.1/scilab/modules/sparse/src/fortran/
H A Dsymfct.f1436 & JPTR , JSUP , JWIDTH, KNZ , KNZBEG,
1505 DO 200 JPTR = JNZEND, JNZBEG, -1
1506 NEWI = LINDX(JPTR)
1526 DO 500 JPTR = JNZBEG, JNZEND
1527 NEWI = LINDX(JPTR)
/dports/science/siconos/siconos-4.4.0/externals/hairer/
H A Dlinsp.f2400 SUBROUTINE MC20AD(NC,MAXA,A,INUM,JPTR,JNUM,JDISP) argument
2404 DIMENSION JPTR(NC)
2411 60 JPTR(J)=0
2415 JPTR(J)=JPTR(J)+1
2420 KR=K+JPTR(J)
2421 JPTR(J)=K
2438 LOC=JPTR(JCE)
2439 JPTR(JCE)=JPTR(JCE)+1
2460 JB=JPTR(J)
2461 JPTR(J)=JA
/dports/math/mumps/mumps-5.1.2/src/
H A Dmumps_sol_es.F222 INTEGER :: I, ICOL, JPTR, J, JAM1, node, bound local
244 DO JPTR = IRHS_PTR(I), IRHS_PTR(I+1)-1
245 J = IRHS_SPARSE(JPTR)
/dports/math/R-cran-SparseM/SparseM/src/
H A Dcholesky.f5611 & JPTR , JSUP , JWIDTH, KNZ , KNZBEG,
5680 DO 200 JPTR = JNZEND, JNZBEG, -1
5681 NEWI = LINDX(JPTR)
5701 DO 500 JPTR = JNZBEG, JNZEND
5702 NEWI = LINDX(JPTR)
/dports/math/R-cran-quantreg/quantreg/src/
H A Dcholesky.f5609 & JPTR , JSUP , JWIDTH, KNZ , KNZBEG,
5678 DO 200 JPTR = JNZEND, JNZBEG, -1
5679 NEWI = LINDX(JPTR)
5699 DO 500 JPTR = JNZBEG, JNZEND
5700 NEWI = LINDX(JPTR)
/dports/editors/neovim/neovim-0.6.1/runtime/syntax/
H A Dj.vim26 …FWINCE IFWINE IFWOW64 JB01 JBOXED JCHAR JCHAR2 JCHAR4 JCMPX JFL JINT JLIB JPTR JSB JSIZES JSTR JST…
/dports/editors/vim/vim-8.2.3745/runtime/syntax/
H A Dj.vim26 …FWINCE IFWINE IFWOW64 JB01 JBOXED JCHAR JCHAR2 JCHAR4 JCMPX JFL JINT JLIB JPTR JSB JSIZES JSTR JST…