/dports/math/cmlib/cmlib-3.0_8/src/splp/ |
H A D | mc20as.f | 1 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 D | mc20as.f | 2 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 D | mc20ad.f | 2 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 D | gpskca.f | 1412 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 D | pcgbtrf.f | 376 $ 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 D | psgbtrf.f | 373 $ 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 D | pzgbtrf.f | 376 $ 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 D | pdgbtrf.f | 373 $ 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 D | symfct.f | 1436 & 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 D | linsp.f | 2400 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 D | mumps_sol_es.F | 222 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 D | cholesky.f | 5611 & 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 D | cholesky.f | 5609 & 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 D | j.vim | 26 …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 D | j.vim | 26 …FWINCE IFWINE IFWOW64 JB01 JBOXED JCHAR JCHAR2 JCHAR4 JCMPX JFL JINT JLIB JPTR JSB JSIZES JSTR JST…
|