/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/ |
H A D | mb01vd.f | 145 DOUBLE PRECISION AIJ local 254 AIJ = A(I,J) 286 AIJ = A(I,J) 374 AIJ = A(I,J) 402 AIJ = A(I,J) 488 AIJ = A(I,J) 519 AIJ = A(I,J) 613 AIJ = A(J,I) 645 AIJ = A(J,I) 733 AIJ = A(J,I) [all …]
|
/dports/math/slatec/src/ |
H A D | dplpup.f | 131 AIJ = ZERO 148 AMX = ABS(AIJ) 149 AMN = ABS(AIJ) 152 AMX = ABS(AIJ) 154 AMN = ABS(AIJ) 177 IF (INDEX.EQ.I) AIJ=AIJ+XVAL 193 AMX = ABS(AIJ) 194 AMN = ABS(AIJ) 196 ELSEIF (ABS(AIJ).GT.AMX) THEN 197 AMX = ABS(AIJ) [all …]
|
H A D | splpup.f | 131 AIJ = ZERO 148 AMX = ABS(AIJ) 149 AMN = ABS(AIJ) 152 AMX = ABS(AIJ) 154 AMN = ABS(AIJ) 177 IF (INDEX.EQ.I) AIJ=AIJ+XVAL 193 AMX = ABS(AIJ) 194 AMN = ABS(AIJ) 196 ELSEIF (ABS(AIJ).GT.AMX) THEN 197 AMX = ABS(AIJ) [all …]
|
H A D | spinit.f | 32 REAL AIJ,AMAT(*),ANORM,BL(*),BU(*),CMAX, 66 20011 CALL PNNZRS(I,AIJ,IPLACE,AMAT,IMAT,J) 70 CMAX=MAX(CMAX,ABS(AIJ)) 90 20023 CALL PNNZRS(I,AIJ,IPLACE,AMAT,IMAT,J) 94 PRIMAL(J)=PRIMAL(J)+AIJ 95 CSUM = CSUM+ABS(AIJ) 155 20051 CALL PNNZRS(I,AIJ,IPLACE,AMAT,IMAT,J) 159 RHS(I)=SCALR*AIJ+RHS(I)
|
H A D | dpinit.f | 33 DOUBLE PRECISION AIJ,AMAT(*),ANORM,BL(*),BU(*),CMAX, 68 20011 CALL DPNNZR(I,AIJ,IPLACE,AMAT,IMAT,J) 72 CMAX=MAX(CMAX,ABS(AIJ)) 92 20023 CALL DPNNZR(I,AIJ,IPLACE,AMAT,IMAT,J) 96 PRIMAL(J)=PRIMAL(J)+AIJ 97 CSUM = CSUM+ABS(AIJ) 157 20051 CALL DPNNZR(I,AIJ,IPLACE,AMAT,IMAT,J) 161 RHS(I)=SCALR*AIJ+RHS(I)
|
H A D | dfulmt.f | 2 SUBROUTINE DFULMT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 37 DOUBLE PRECISION AIJ,ZERO,DATTRV(*),PRGOPT(*) 78 80 AIJ = DATTRV(IFLAG(4)*(J-1)+I) 80 IF (.NOT.(AIJ.EQ.ZERO)) GO TO 90
|
H A D | fulmat.f | 2 SUBROUTINE FULMAT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 36 REAL AIJ,ZERO,DATTRV(*),PRGOPT(*) 77 80 AIJ = DATTRV(IFLAG(4)*(J-1)+I) 79 IF (.NOT.(AIJ.EQ.ZERO)) GO TO 90
|
H A D | dusrmt.f | 2 SUBROUTINE DUSRMT (I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 20 DOUBLE PRECISION PRGOPT(*),DATTRV(*),AIJ 58 AIJ=DATTRV(L)
|
/dports/math/cmlib/cmlib-3.0_8/src/splp/ |
H A D | splpup.f | 115 20032 AIJ=ZERO 116 CALL USRMAT(I,J,AIJ,INDCAT,PRGOPT,DATTRV,IFLAG) 138 CALL PCHNGS(I,AIJ,IPLACE,AMAT,IMAT,J) 143 IF (INDEX.EQ.I) AIJ=AIJ+XVAL 144 CALL PCHNGS(I,AIJ,IPLACE,AMAT,IMAT,J) 163 AMX=ABS(AIJ) 164 AMN=ABS(AIJ) 171 20055 IF (.NOT.(ABS(AIJ).GT.AMX)) GO TO 10004 172 AMX=ABS(AIJ) 176 10004 IF (.NOT.(ABS(AIJ).LT.AMN)) GO TO 10005 [all …]
|
H A D | spinit.f | 18 REAL AIJ,AMAT(*),ANORM,BL(*),BU(*),CMAX, 53 20011 CALL PNNZRS(I,AIJ,IPLACE,AMAT,IMAT,J) 57 20014 CMAX=AMAX1(CMAX,ABS(AIJ)) 77 20023 CALL PNNZRS(I,AIJ,IPLACE,AMAT,IMAT,J) 81 20026 PRIMAL(J)=PRIMAL(J)+AIJ 82 CSUM = CSUM+ABS(AIJ) 142 20051 CALL PNNZRS(I,AIJ,IPLACE,AMAT,IMAT,J) 146 20054 RHS(I)=SCALR*AIJ+RHS(I)
|
H A D | fulmat.f | 1 SUBROUTINE FULMAT(I, J, AIJ, INDCAT, PRGOPT, DATTRV, IFLAG) argument 22 REAL AIJ,ZERO,DATTRV(*),PRGOPT(*) 63 80 AIJ = DATTRV(IFLAG(4)*(J-1)+I) 65 IF (.NOT.(AIJ.EQ.ZERO)) GO TO 90
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/soppa/ |
H A D | so_res_sym.F | 2 SUBROUTINE SO_RES_SYM(RES1E,LRES1E,RES1D,LRES1D,AIJ,LAIJ,AAB, 25 DIMENSION RES1E(LRES1E), RES1D(LRES1D), AIJ(LAIJ), AAB(LAAB) 60 & -HALF,TR1E(KOFF1),NTOTA,AIJ(KOFF2),NTOTI,ONE, 64 & -HALF,TR1E(KOFF1),NTOTA,AIJ(KOFF4),NTOTJ,ONE, 69 & -HALF,TR1D(KOFF1),NTOTA,AIJ(KOFF2),NTOTI,ONE, 73 & -HALF,TR1D(KOFF1),NTOTA,AIJ(KOFF4),NTOTJ,ONE,
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/maij/ |
H A D | maij.c | 55 *B = b->AIJ; in MatMAIJGetAIJ() 182 b->AIJ = NULL; in MatCreate_MAIJ() 2816 ierr = (*b->AIJ->ops->mult)(b->AIJ,xx,yy);CHKERRQ(ierr); in MatMult_MPIMAIJ_dof() 2829 ierr = (*b->AIJ->ops->multtranspose)(b->AIJ,xx,yy);CHKERRQ(ierr); in MatMultTranspose_MPIMAIJ_dof() 2843 ierr = (*b->AIJ->ops->multadd)(b->AIJ,xx,yy,zz);CHKERRQ(ierr); in MatMultAdd_MPIMAIJ_dof() 2856 ierr = (*b->AIJ->ops->multtransposeadd)(b->AIJ,xx,yy,zz);CHKERRQ(ierr); in MatMultTransposeAdd_MPIMAIJ_dof() 3065 Mat P =pp->AIJ; in MatPtAPNumeric_SeqAIJ_SeqMAIJ() 3253 Mat a = b->AIJ,B; in MatConvert_SeqMAIJ_SeqAIJ() 3300 Mat MatAIJ = ((Mat_SeqMAIJ*)maij->AIJ->data)->AIJ,B; in MatConvert_MPIMAIJ_MPIAIJ() 3317 dnz[dof*i+j] = AIJ->ilen[i]; in MatConvert_MPIMAIJ_MPIAIJ() [all …]
|
/dports/science/qmcpack/qmcpack-3.11.0/src/QMCWaveFunctions/Fermion/ |
H A D | Backflow_ee.h | 108 FirstOfA = &(AIJ(0, 0)[0]); in registerData() 171 num = AIJ.rows(); in acceptMove() 174 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 175 AIJ(i, iat) = AIJ_temp[i]; in acceptMove() 185 num = AIJ.rows(); in acceptMove() 188 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 189 AIJ(i, iat) = AIJ_temp[i]; in acceptMove() 205 num = AIJ.rows(); in acceptMove() 208 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 209 AIJ(i, iat) = AIJ_temp[i]; in acceptMove() [all …]
|
H A D | Backflow_eI.h | 138 num = AIJ.cols(); in acceptMove() 140 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 146 num = AIJ.cols(); in acceptMove() 148 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 157 num = AIJ.cols(); in acceptMove() 159 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 181 FirstOfA = &(AIJ(0, 0)[0]); in registerData() 253 HessType& hess = AIJ(jel, iat); in evaluate() 343 Amat(iat, iat) += (hess - AIJ(iat, j)); in evaluatePbyP() 450 HessType& hess = AIJ(jel, iat); in evaluateWithDerivatives()
|
H A D | Backflow_eI_spin.h | 189 num = AIJ.cols(); in acceptMove() 191 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 197 num = AIJ.cols(); in acceptMove() 199 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 208 num = AIJ.cols(); in acceptMove() 210 AIJ(iat, i) = AIJ_temp[i]; in acceptMove() 232 FirstOfA = &(AIJ(0, 0)[0]); in registerData()
|
/dports/math/spooles-mpich/spooles.2.2/InpMtx/drivers/ |
H A D | do_readAIJ2 | 15 set inFile = $matrices/$matrix/AIJ$dataType.raw 18 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxf 19 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxb
|
H A D | do_readAIJ | 18 set inFile = $matrices/$matrix/AIJ$dataType.raw 22 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxf 23 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxb
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/InpMtx/drivers/ |
H A D | do_readAIJ2 | 15 set inFile = $matrices/$matrix/AIJ$dataType.raw 18 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxf 19 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxb
|
H A D | do_readAIJ | 18 set inFile = $matrices/$matrix/AIJ$dataType.raw 22 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxf 23 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxb
|
/dports/math/spooles/spooles.2.2/InpMtx/drivers/ |
H A D | do_readAIJ2 | 15 set inFile = $matrices/$matrix/AIJ$dataType.raw 18 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxf 19 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxb
|
H A D | do_readAIJ | 18 set inFile = $matrices/$matrix/AIJ$dataType.raw 22 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxf 23 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxb
|
/dports/math/spooles/spooles.2.2_SHARED/InpMtx/drivers/ |
H A D | do_readAIJ2 | 15 set inFile = $matrices/$matrix/AIJ$dataType.raw 18 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxf 19 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxb
|
H A D | do_readAIJ | 18 set inFile = $matrices/$matrix/AIJ$dataType.raw 22 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxf 23 set outFile = $matrices/$matrix/AIJ$dataType.inpmtxb
|
/dports/biology/mopac/mopac7-1.15/fortran/ |
H A D | consts.f | 341 AIJ=0.D0 363 AIJ=AIJ+1.D0/SQRT(Y1*Y1+Y2*Y2+Y3*Y3) 374 AIJ=AIJ+((DIRVEC(1,J2)*RJ-XX(1))**2 381 AIJ=AIJ/NARI/NARJ 383 AIJ=1.D0/SQRT(DIST) 385 ABCMAT(IPS+(JPS-1)*NPS)=AIJ 386 ABCMAT(JPS+(IPS-1)*NPS)=AIJ
|