Home
last modified time | relevance | path

Searched refs:AIJ (Results 1 – 25 of 123) sorted by relevance

12345

/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dmb01vd.f145 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 Ddplpup.f131 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 Dsplpup.f131 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 Dspinit.f32 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 Ddpinit.f33 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 Ddfulmt.f2 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 Dfulmat.f2 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 Ddusrmt.f2 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 Dsplpup.f115 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 Dspinit.f18 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 Dfulmat.f1 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 Dso_res_sym.F2 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 Dmaij.c55 *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 DBackflow_ee.h108 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 DBackflow_eI.h138 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 DBackflow_eI_spin.h189 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 Ddo_readAIJ215 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 Ddo_readAIJ18 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 Ddo_readAIJ215 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 Ddo_readAIJ18 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 Ddo_readAIJ215 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 Ddo_readAIJ18 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 Ddo_readAIJ215 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 Ddo_readAIJ18 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 Dconsts.f341 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

12345