Home
last modified time | relevance | path

Searched refs:ISTEP (Results 1 – 25 of 311) sorted by relevance

12345678910>>...13

/dports/biology/mopac/mopac7-1.15/fortran/
H A Dthermo.f53 ISTEP=10
74 ISTEP=10
81 IF(ISTEP.LT.1)ISTEP=1
84 IF(ISTEP.EQ.0)ISTEP=1
85 IF(ISTEP.GE.2.AND. ISTEP.LT.5)ISTEP=2
86 IF(ISTEP.GE.5.AND. ISTEP.LT.10)ISTEP=5
87 IF(ISTEP.GE.10.AND. ISTEP.LT.20)ISTEP=10
88 IF(ISTEP.GT.20.AND. ISTEP.LT.50)ISTEP=20
89 IF(ISTEP.GT.50.AND. ISTEP.LT.100)ISTEP=50
90 IF(ISTEP.GT.100)ISTEP=100
[all …]
/dports/math/mumps/mumps-5.1.2/src/
H A Dzsol_c.F1124 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
1623 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
1985 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2155 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2197 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2322 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2365 ISTEP = STEP(DAD(ISTEP))
2429 ISTEP = STEP(DAD(ISTEP))
2451 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2484 ISTEP = STEP(DAD(ISTEP))
[all …]
H A Dcsol_c.F1124 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
1623 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
1985 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2155 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2197 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2322 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2365 ISTEP = STEP(DAD(ISTEP))
2429 ISTEP = STEP(DAD(ISTEP))
2451 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2484 ISTEP = STEP(DAD(ISTEP))
[all …]
H A Dssol_c.F1124 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
1623 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
1985 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2155 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2197 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2322 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2365 ISTEP = STEP(DAD(ISTEP))
2429 ISTEP = STEP(DAD(ISTEP))
2451 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2484 ISTEP = STEP(DAD(ISTEP))
[all …]
H A Ddsol_c.F1124 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
1623 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
1985 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2155 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2197 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2322 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2365 ISTEP = STEP(DAD(ISTEP))
2429 ISTEP = STEP(DAD(ISTEP))
2451 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN
2484 ISTEP = STEP(DAD(ISTEP))
[all …]
H A Dmumps_sol_es.F67 ISTEP = STEP(TMP)
85 ISTEP = STEP(TMP)
94 ISTEP = STEP(TMP)
111 ISTEP = STEP(TMP)
112 IF(DAD(ISTEP).NE.0) THEN
153 INTEGER :: IN, I, ISTEP, TMP local
160 ISTEP = STEP(TMP)
163 Pruned_SONS(ISTEP) = 0
195 ISTEP = STEP(TMP)
356 INTEGER I, ISTEP local
[all …]
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dmumps_sol_es.F99 ISTEP = STEP(TMP)
112 ISTEP = STEP(TMP)
130 ISTEP = STEP(TMP)
131 IF(DAD(ISTEP).NE.0) THEN
172 INTEGER :: IN, I, ISTEP, TMP
179 ISTEP = STEP(TMP)
180 TO_PROCESS(ISTEP) = .TRUE.
182 Pruned_SONS(ISTEP) = 0
214 ISTEP = STEP(TMP)
232 INTEGER I, ISTEP
[all …]
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dmumps_sol_es.F99 ISTEP = STEP(TMP)
112 ISTEP = STEP(TMP)
130 ISTEP = STEP(TMP)
131 IF(DAD(ISTEP).NE.0) THEN
172 INTEGER :: IN, I, ISTEP, TMP local
179 ISTEP = STEP(TMP)
180 TO_PROCESS(ISTEP) = .TRUE.
182 Pruned_SONS(ISTEP) = 0
214 ISTEP = STEP(TMP)
232 INTEGER I, ISTEP local
[all …]
/dports/math/mumps4/MUMPS_4.10.0/src/
H A Dmumps_sol_es.F99 ISTEP = STEP(TMP)
112 ISTEP = STEP(TMP)
130 ISTEP = STEP(TMP)
131 IF(DAD(ISTEP).NE.0) THEN
172 INTEGER :: IN, I, ISTEP, TMP local
179 ISTEP = STEP(TMP)
180 TO_PROCESS(ISTEP) = .TRUE.
182 Pruned_SONS(ISTEP) = 0
214 ISTEP = STEP(TMP)
232 INTEGER I, ISTEP local
[all …]
/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/
H A Dintrv.f58 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE
73 ISTEP = 1
75 ILO = IHI - ISTEP
78 ISTEP = ISTEP*2
84 40 ISTEP = 1
86 IHI = ILO + ISTEP
89 ISTEP = ISTEP*2
/dports/math/cmlib/cmlib-3.0_8/src/bspline/
H A Dintrv.f58 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE
73 ISTEP = 1
75 ILO = IHI - ISTEP
78 ISTEP = ISTEP*2
84 40 ISTEP = 1
86 IHI = ILO + ISTEP
89 ISTEP = ISTEP*2
/dports/math/cmlib/cmlib-3.0_8/src/dbsplin/
H A Ddintrv.f60 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE
75 ISTEP = 1
77 ILO = IHI - ISTEP
80 ISTEP = ISTEP*2
86 40 ISTEP = 1
88 IHI = ILO + ISTEP
91 ISTEP = ISTEP*2
/dports/math/slatec/src/
H A Ddintrv.f63 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE
78 ISTEP = 1
80 ILO = IHI - ISTEP
83 ISTEP = ISTEP*2
89 40 ISTEP = 1
91 IHI = ILO + ISTEP
94 ISTEP = ISTEP*2
H A Dintrv.f62 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE
77 ISTEP = 1
79 ILO = IHI - ISTEP
82 ISTEP = ISTEP*2
88 40 ISTEP = 1
90 IHI = ILO + ISTEP
93 ISTEP = ISTEP*2
/dports/math/cmlib/cmlib-3.0_8/src/fc/
H A Dinterv.f20 30 ISTEP = 1
22 ILO = IHI - ISTEP
25 ISTEP = ISTEP*2
31 40 ISTEP = 1
33 IHI = ILO + ISTEP
36 ISTEP = ISTEP*2
/dports/games/flying/flying-6.20/
H A Dxpball.C436 #define ISTEP 2 macro
439 SetMinSize(2*zfact+2+2*ISTEP,2*zfact+2+2*ISTEP); in SetPointer()
442 int ooy=ISTEP; in SetPointer()
466 oox = x-x_old+ISTEP; in SetPointer()
480 if (ozoom&&(oox<0)||(oox>2*ISTEP)||(ooy<0)||(ooy>2*ISTEP)) { in SetPointer()
482 XCopyPlane(dpy,pmap,win,gc_cursor,ISTEP,ISTEP,2*zfact+2,2*zfact+2, in SetPointer()
483 x_old-zfact-oox+ISTEP, y_old-zfact-ooy+ISTEP, 1 ); in SetPointer()
488 oox = ISTEP; in SetPointer()
489 ooy = ISTEP; in SetPointer()
520 XCopyPlane(dpy,pmap,win,gc_cursor,ISTEP,ISTEP,2*zfact+2,2*zfact+2, in SetPointer()
[all …]
/dports/graphics/pgplot/pgplot/drivers/old/
H A Dikdriv.f539 ISTEP=2
557 ISTEP=64
559 ISTEP=8
561 ISTEP=4
564 ISTEP=1
567 IX=IX-ISTEP
568 IY=IY-ISTEP
571 IY=IY-ISTEP
574 IX=IX+ISTEP
575 IY=IY-ISTEP
[all …]
H A Dardriv.f675 ISTEP=2
682 ISTEP=64
684 ISTEP=8
686 ISTEP=4
689 ISTEP=1
692 IX=IX-ISTEP
693 IY=IY-ISTEP
696 IY=IY-ISTEP
699 IX=IX+ISTEP
700 IY=IY-ISTEP
[all …]
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/heat/
H A Dheat_solve_TRAN.f909 …subroutine heat_solve_TRAN ( hecMESH,hecMAT,fstrRESULT,fstrPARAM,fstrHEAT,ISTEP,total_step,current… argument
19 integer(kind=kint) :: ISTEP, iterALL, i, inod, mnod local
35 if(ISTEP == 1)then
39 do i = 1, ISTEP - 1
45 delta_time_base = fstrHEAT%STEP_DLTIME(ISTEP)
46 end_time = fstrHEAT%STEP_EETIME(ISTEP)
47 DELMIN = fstrHEAT%STEP_DELMIN(ISTEP)
48 DELMAX = fstrHEAT%STEP_DELMAX(ISTEP)
105 …call heat_solve_main(hecMESH, hecMAT, hecMESHmpc, hecMATmpc, fstrPARAM, fstrHEAT, ISTEP, iterALL, …
144 call heat_output_restart(hecMESH, fstrHEAT, ISTEP, total_step, next_time, is_end)
H A Dfstr_solve_heat.f9015 integer(kind=kint) :: ISTEP local
41 do ISTEP = restart_step_num, fstrHEAT%STEPtot
43 if(fstrHEAT%STEP_DLTIME(ISTEP) <= 0.0d0) fstrHEAT%is_steady = 1
46 write(IMSG,"(a,i8,a,i8)")"* Current step / Total step: ", ISTEP, "/", fstrHEAT%STEPtot
47 write(IMSG,"(a,i8)")"* max iteration at each step: ", fstrPARAM%ITMAX(ISTEP)
55 …call heat_solve_TRAN(hecMESH, hecMAT, fstrRESULT, fstrPARAM, fstrHEAT, ISTEP, total_step, start_ti…
H A Dheat_solve_main.f909 …subroutine heat_solve_main(hecMESH, hecMAT, hecMESHmpc, hecMATmpc, fstrPARAM, fstrHEAT, ISTEP, ite… argument
16 integer(kind=kint) :: i, iterALL, ISTEP, bup_n_dof local
47 call heat_check_convergence(hecMESH, fstrHEAT, fstrPARAM, ISTEP, iterALL, is_congerged)
53 subroutine heat_check_convergence(hecMESH, fstrHEAT, fstrPARAM, ISTEP, iterALL, is_congerged) argument
56 integer(kind=kint) :: i, iterALL, iter_max, ISTEP local
65 iter_max = fstrPARAM%itmax(ISTEP)
66 iter_eps = fstrPARAM%eps(ISTEP)
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dsb04nd.f173 INTEGER FWD, I, IBEG, IEND, INCR, IPINCR, ISTEP, JWORK, local
288 ISTEP = 1
291 ISTEP = 1
293 ISTEP = 2
297 IF ( ISTEP.EQ.1 ) THEN
318 I = I + FWD*ISTEP
351 ISTEP = 1
354 ISTEP = 1
356 ISTEP = 2
360 IF ( ISTEP.EQ.1 ) THEN
[all …]
H A Dsb04rd.f173 INTEGER FWD, I, IBEG, IEND, INCR, IPINCR, ISTEP, JWORK,
289 ISTEP = 1
292 ISTEP = 1
294 ISTEP = 2
298 IF ( ISTEP.EQ.1 ) THEN
319 I = I + FWD*ISTEP
352 ISTEP = 1
355 ISTEP = 1
357 ISTEP = 2
361 IF ( ISTEP.EQ.1 ) THEN
[all …]
/dports/misc/libemos/libemos-4.5.9-Source/gribex/
H A Dgsbite.F150 ISTEP = KSIZE + KSKBTW
165 ISHF = ISTEP
177 ISTS = ISTEP/ILCF
280 ISKWS = ISKWS + ISTEP
288 KSKST = KSKST + K*ISTEP
/dports/math/R/R-4.1.2/src/library/stats/src/
H A Dkmns.f351 INTEGER ICOUN,ISTEP,I,L1,L2,J
363 ISTEP = 0
368 if(iTrace .gt. 0 .and. ISTEP .ge. 1 .and. I .eq. 1) ! only from second "round" on
369 + call kmnsQpr(ISTEP, ICOUN, NCP, K, iTrace)
371 ISTEP = ISTEP + 1
372 IF(ISTEP .ge. iMaxQtr) THEN
388 IF (ISTEP .le. NCP(L1)) then
400 IF (ISTEP .lt. NCP(L1) .or. ISTEP .lt. NCP(L2)) then
417 NCP(L1) = ISTEP + M
418 NCP(L2) = ISTEP + M

12345678910>>...13