Home
last modified time | relevance | path

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

/dports/devel/asl/asl-current/tests/t_47c00/
H A Dt_47c00.asm9 nvar1 db ? define
62 st #5,nvar1
194 be nvar1,#6,targ
200 bne nvar1,#6,targ
206 bge nvar1,#6,targ
212 bgt nvar1,#6,targ
218 ble nvar1,#6,targ
224 blt nvar1,#6,targ
247 shl nvar1,2
252 shr nvar1,2
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dtopology_connectivity_util.F357 nvar1 = 0
368 DO i = 1, nvar1
520 nvar1 = 0
531 DO i = 1, nvar1
674 nvar1 = 0
685 DO i = 1, nvar1
833 nvar1 = 0
844 DO i = 1, nvar1
1012 nvar1 = 0
1023 DO i = 1, nvar1
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dtopology_connectivity_util.F357 nvar1 = 0
368 DO i = 1, nvar1
520 nvar1 = 0
531 DO i = 1, nvar1
674 nvar1 = 0
685 DO i = 1, nvar1
833 nvar1 = 0
844 DO i = 1, nvar1
1012 nvar1 = 0
1023 DO i = 1, nvar1
[all …]
/dports/french/med/med-4.0.0/tests/unittests/f/
H A DUnittest_MEDinterp_3.f42 integer nvar1,maxd1,nmaxc1
44 parameter (nvar1=2,maxd1=1,nmaxc1=3)
85 & (nvar .ne. nvar1) .or.
H A DUnittest_MEDinterp_1.f39 integer nvar1,maxd1,nmaxc1
40 parameter (nvar1=2,maxd1=1,nmaxc1=3)
63 call mipcre(fid,name1,gtype1,cnode1,nvar1,
H A DUnittest_MEDinterp_2.f39 integer nvar1,maxd1,nmaxc1
41 parameter (nvar1=2,maxd1=1,nmaxc1=3)
79 & (nvar .ne. nvar1) .or.
/dports/science/xtb/xtb-6.4.1/src/
H A Doptimizer.f90496 integer :: nvar1,npvar,npvar1 local
530 nvar1 = anc%nvar+1 ! dimension of RF calculation
532 npvar1 = nvar1*(nvar1+1)/2 ! packed size of augmented Hessian
533 allocate(Uaug(nvar1,1),eaug(nvar1),Aaug(npvar1))
672 if (exact .or. nvar1.lt.50) then
673 call solver_sspevx(nvar1,r4dum,Aaug,Uaug,eaug,fail)
678 dsnrm = sqrt(sdot(nvar1,Uaug,1,Uaug,1))
681 call solver_sdavidson(nvar1,r4dum,Aaug,Uaug,eaug,fail,.false.)
683 call solver_sspevx(nvar1,r4dum,Aaug,Uaug,eaug,fail)
686 if (fail .or. abs(Uaug(nvar1,1)).lt.1.e-10) then
[all …]
H A Drelaxation_engine.f90956 integer :: nvar1,npvar,npvar1 local
998 nvar1 = nvar+1 ! dimension of RF calculation
999 npvar = nvar*nvar1/2
1000 npvar1 = nvar1*(1+nvar1)/2
1001 allocate(Uaug(nvar1,1),eaug(nvar1),Aaug(npvar1), source = 0.0_sp)
1011 dsnrm = sqrt(sdot(nvar1,Uaug,1,Uaug,1))
1015 call solver_sdavidson(nvar1,opt%rfthr,Aaug,Uaug,eaug,fail,debug)
1016 if (abs(Uaug(nvar1,1)) .lt. 1.0e-10_sp) error stop "Internal RF error"
1017 displacement = Uaug(:nvar,1) / Uaug(nvar1,1)
/dports/math/fricas/fricas-1.3.7/src/algebra/
H A Dlingrob.spad301 nvar1 : NNI := (#lvar-1)::NNI
303 ll : List Z := [random(11)$Z for i in 1..nvar1]
304 val := val+ +/[ll.i*(lvar.i)::DPoly for i in 1..nvar1]
H A Dmfinfact.spad352 nvar1 := #lvar
374 lval := [ ran(range) for i in 1..nvar1]
H A Dmultfact.spad172 nvar1 := #lvar
197 lval := [ ran(range) for i in 1..nvar1]
/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/
H A Dcommopt.c1357 int nvar1; in is_avail_expr_with_list() local
1369 nvar1 = 0; in is_avail_expr_with_list()
1372 for (j = 0; j < nvar1; j++) in is_avail_expr_with_list()
1377 lst1[nvar1] = lst[i]; in is_avail_expr_with_list()
1378 nvar1++; in is_avail_expr_with_list()
1381 for (i = 0; i < nvar1; i++) { in is_avail_expr_with_list()
/dports/math/fricas/fricas-1.3.7/pre-generated/src/algebra/
H A DLGROBP.lsp955 (#8=#:G570 NIL) (#9=#:G569 NIL) (|nvar1| (|NonNegativeInteger|))
959 (LETT |nvar1|
966 (SEQ (LETT |i| 1) (LETT #8# |nvar1|) G190
975 (SEQ (LETT |i| 1) (LETT #7# |nvar1|) G190
H A DINNMFACT.lsp587 (|testp| (|Boolean|)) (|ctf1| (R)) (|nvar1| (|NonNegativeInteger|))
592 (LETT |nvar1| (LENGTH |lvar|)) (LETT |range| 5)
614 (SEQ (LETT |i| 1) (LETT #24# |nvar1|) G190
H A DMFINFACT.lsp1497 (|testp| #5#) (|ctf1| #2#) (|nvar1| (|NonNegativeInteger|))
1500 (LETT |nvar1| (LENGTH |lvar|)) (LETT |range| 0)
1515 (SEQ (LETT |i| 1) (LETT #31# |nvar1|) G190