Home
last modified time | relevance | path

Searched refs:NTAB (Results 1 – 25 of 112) sorted by relevance

12345

/dports/math/math77/MATH77/
H A Ddilupmd.f244 if (NTAB(NDIMI) .lt. 0) NTAB(NTABM+I) = NTABM+NDIMI
247 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + 2
249 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + L
261 NTAB(NTABXT) = -NTAB(I)
296 NTAB(L) = NTAB(L) + NTAB(L-1)
311 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + 2*K
313 NTAB(NTABXT+I+1) = NTAB(NTABXT+I)+NTAB(J+K)
380 KNT(I) = NTAB(LR(I)+1) - NTAB(LR(I))
406 if (NTAB(I) .lt. 0) NUP(-NTAB(I)) = I
420 KNT(K) = NTAB(LR(K)+1) - NTAB(LR(K))
[all …]
H A Dsilupmd.f244 if (NTAB(NDIMI) .lt. 0) NTAB(NTABM+I) = NTABM+NDIMI
247 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + 2
249 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + L
261 NTAB(NTABXT) = -NTAB(I)
296 NTAB(L) = NTAB(L) + NTAB(L-1)
311 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + 2*K
313 NTAB(NTABXT+I+1) = NTAB(NTABXT+I)+NTAB(J+K)
380 KNT(I) = NTAB(LR(I)+1) - NTAB(LR(I))
406 if (NTAB(I) .lt. 0) NUP(-NTAB(I)) = I
420 KNT(K) = NTAB(LR(K)+1) - NTAB(LR(K))
[all …]
H A Ddilupm.f447 if (NTAB(NDIMI) .lt. 0) NTAB(NTABM+I) = NTABM+NDIMI
450 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + 2
452 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + L
464 NTAB(NTABXT) = -NTAB(I)
490 NTAB(L) = NTAB(L) + NTAB(L-1)
505 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + 2*K
507 NTAB(NTABXT+I+1) = NTAB(NTABXT+I)+NTAB(J+K)
753 IPRAG = NTAB(K) - NTAB(K-1)
757 IP(KDIM+1) = NTAB(NTAB(NTABM+KDIM)+IP(KDIM)+IX-1)
768 NT = NTAB(K+IX) - NTAB(K+IX-1)
[all …]
H A Dsilupm.f447 if (NTAB(NDIMI) .lt. 0) NTAB(NTABM+I) = NTABM+NDIMI
450 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + 2
452 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + L
464 NTAB(NTABXT) = -NTAB(I)
490 NTAB(L) = NTAB(L) + NTAB(L-1)
505 NTAB(NTABXT+I+1) = NTAB(NTABXT+I) + 2*K
507 NTAB(NTABXT+I+1) = NTAB(NTABXT+I)+NTAB(J+K)
753 IPRAG = NTAB(K) - NTAB(K-1)
757 IP(KDIM+1) = NTAB(NTAB(NTABM+KDIM)+IP(KDIM)+IX-1)
768 NT = NTAB(K+IX) - NTAB(K+IX-1)
[all …]
H A Ddhint.f1 double precision function DHINT (X,NDERIV,NTAB,XTAB,YTAB,YPTAB)
53 integer NDERIV, NTAB, LOOK, LOOK1 local
54 double precision XTAB(NTAB), YTAB(NTAB), YPTAB(NTAB)
65 IF( LOOK .GE. NTAB ) LOOK = max(1,NTAB/2)
74 30 IF(LOOK .eq. NTAB-1) GO TO 40
76 IF(LOOK .eq. NTAB-1) GO TO 40
82 IF( LOOK .gt. NTAB .or. LOOK .lt. 2 ) LOOK = max(2,NTAB/2)
88 45 IF(LOOK .eq. NTAB ) GO TO 60
H A Dshint.f1 real function SHINT (X,NDERIV,NTAB,XTAB,YTAB,YPTAB)
53 integer NDERIV, NTAB, LOOK, LOOK1 local
54 real XTAB(NTAB), YTAB(NTAB), YPTAB(NTAB)
65 IF( LOOK .GE. NTAB ) LOOK = max(1,NTAB/2)
74 30 IF(LOOK .eq. NTAB-1) GO TO 40
76 IF(LOOK .eq. NTAB-1) GO TO 40
82 IF( LOOK .gt. NTAB .or. LOOK .lt. 2 ) LOOK = max(2,NTAB/2)
88 45 IF(LOOK .eq. NTAB ) GO TO 60
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/operations/adaptation/
H A Dhecmw_adapt_item_sr.f9020 & WS, WR, SOLVER_COMM, my_rank, NTAB) argument
30 integer(kind=kint ), dimension(N*NTAB) :: WS, WR
57 is= (k-1)*NTAB
58 do jj= 1, NTAB
62 is= istart*NTAB
63 call MPI_ISEND (WS(is+1), NTAB*inum, MPI_INTEGER, &
73 is= istart*NTAB
74 call MPI_IRECV (WR(is+1), NTAB*inum, MPI_INTEGER, &
85 is= (k-1)*NTAB
86 do jj= 1, NTAB
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/qmd/
H A Dqmd_ran1.F6 integer idum,IA,IM,IQ,IR,NTAB,NDIV
10 & NTAB=32,NDIV=1+(IM-1)/NTAB,EPS=1.2e-7,RNMX=1.-EPS)
12 integer j,k,iv(NTAB),iy
14 data iv /NTAB*0/, iy /0/
18 do 11 j=NTAB+8,1,-1
22 if (j.le.NTAB) iv(j)=idum
/dports/science/nwchem-data/nwchem-7.0.2-release/src/qmd/
H A Dqmd_ran1.F6 integer idum,IA,IM,IQ,IR,NTAB,NDIV
10 & NTAB=32,NDIV=1+(IM-1)/NTAB,EPS=1.2e-7,RNMX=1.-EPS)
12 integer j,k,iv(NTAB),iy
14 data iv /NTAB*0/, iy /0/
18 do 11 j=NTAB+8,1,-1
22 if (j.le.NTAB) iv(j)=idum
/dports/science/nwchem-data/nwchem-7.0.2-release/src/leps/
H A Dgasdev.F41 INTEGER idum,IM1,IM2,IMM1,IA1,IA2,IQ1,IQ2,IR1,IR2,NTAB,NDIV
45 2 NTAB=32,NDIV=1+IMM1/NTAB,EPS=1.2e-7,RNMX=1.-EPS)
46 INTEGER idum2,j,k,iv(NTAB),iy
48 DATA idum2/123456789/, iv/NTAB*0/, iy/0/
52 do 11 j=NTAB+8,1,-1
56 if (j.le.NTAB) iv(j)=idum
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/leps/
H A Dgasdev.F41 INTEGER idum,IM1,IM2,IMM1,IA1,IA2,IQ1,IQ2,IR1,IR2,NTAB,NDIV
45 2 NTAB=32,NDIV=1+IMM1/NTAB,EPS=1.2e-7,RNMX=1.-EPS)
46 INTEGER idum2,j,k,iv(NTAB),iy
48 DATA idum2/123456789/, iv/NTAB*0/, iy/0/
52 do 11 j=NTAB+8,1,-1
56 if (j.le.NTAB) iv(j)=idum
/dports/math/math77/MATH77/demo/
H A Ddrdilup.f10 integer NTAB, NX, NDEG1, NDEG2 variable
11 parameter (NTAB=40, NX=3, NDEG1=2, NDEG2=10)
12 double precision XT(2), YT(NTAB), X(NX), Y, EOPT(1), H, ANS
23 do 10 I = 1, NTAB
30 call DILUP (X(I), Y, NTAB, XT, YT, NDEG, LUP, IOPT, EOPT)
H A Ddrsilup.f10 integer NTAB, NX, NDEG1, NDEG2 variable
11 parameter (NTAB=40, NX=3, NDEG1=2, NDEG2=10)
12 real XT(2), YT(NTAB), X(NX), Y, EOPT(1), H, ANS
23 do 10 I = 1, NTAB
30 call SILUP (X(I), Y, NTAB, XT, YT, NDEG, LUP, IOPT, EOPT)
H A Ddrdilupm.f14 integer I, J, IOPT(4), NTAB(NDIMT), NDEG(NDIM), LUP(NDIM) variable
23 data NTAB(1), NTAB(2), NTAB(3) / ND1, ND2, 0 /
42 call DILUPM (NDIM,X,Y,NTAB,XT,YT,NDEG,LUP,IOPT,EOPT)
H A Ddrsilupm.f14 integer I, J, IOPT(4), NTAB(NDIMT), NDEG(NDIM), LUP(NDIM) variable
23 data NTAB(1), NTAB(2), NTAB(3) / ND1, ND2, 0 /
42 call SILUPM (NDIM,X,Y,NTAB,XT,YT,NDEG,LUP,IOPT,EOPT)
H A Ddrdhint.f7 integer I, J, NTAB variable
13 data NTAB / 3 /
31 YINT = DHINT(X,0,NTAB,XTAB,YTAB,YPTAB)
32 YPINT = DHINT(X,1,NTAB,XTAB,YTAB,YPTAB)
H A Ddrshint.f7 integer I, J, NTAB variable
13 data NTAB / 3 /
31 YINT = SHINT(X,0,NTAB,XTAB,YTAB,YPTAB)
32 YPINT = SHINT(X,1,NTAB,XTAB,YTAB,YPTAB)
/dports/audio/afsp/AFsp-v8r2/libtsp/MS/
H A DMSfUnifRand.c52 #define NTAB 32 macro
53 #define NDIV (1 + (M-1) / NTAB)
60 static long int iv[NTAB];
136 for (j = NTAB + 7; j >= 0; --j) { in MSrandSeed()
141 if (j < NTAB) in MSrandSeed()
/dports/comms/wsjtz/wsjtx/lib/fst4/
H A Dgen_fst4wave.f905 parameter(NTAB=65536)
7 complex cwave(nwave),ctab(0:NTAB-1)
21 do i=0,NTAB-1
22 phi=i*twopi/NTAB
62 i=phi*float(NTAB)/twopi
63 i=iand(i,NTAB-1)
/dports/science/plumed/plumed2-2.7.2/src/tools/
H A DRandom.cpp49 for(unsigned i=0; i<NTAB; i++) iv[i]=0; in Random()
82 for (j=NTAB+7; j>=0; j--) { in U01()
86 if (j < NTAB) iv[j] = idum; in U01()
103 for(int i=0; i<NTAB; i++) { in WriteStateFull()
114 for (int i = 0; i < NTAB; i++) in>>iv[i]; in ReadStateFull()
122 for(int i=0; i<NTAB; i++) { in toString()
133 for (int i = 0; i < NTAB; i++) istr>>iv[i]; in fromString()
H A DRandom.h33 static const int IA=16807,IM=2147483647,IQ=127773,IR=2836,NTAB=32; variable
34 static const int NDIV=(1+(IM-1)/NTAB);
44 int iv[NTAB];
/dports/comms/wsjtz/wsjtx/lib/ft8/
H A Dgen_ft8wave.f906 parameter(MAX_SECONDS=20,NTAB=65536)
8 complex cwave(nwave),ctab(0:NTAB-1)
26 do i=0,NTAB-1
27 phi=i*twopi/NTAB
58 i=phi*float(NTAB)/twopi
/dports/biology/bamutil/bamUtil-1.0.15/libStatGen/general/
H A DRandom.cpp85 #define NTAB 32 macro
86 #define NDIV (1+(IM-1)/NTAB)
96 shuffler = new long [NTAB]; in Random()
121 for (int j=NTAB+7; j>=0; j--) // Warm up and set shuffle table in Reset()
126 if (j < NTAB) shuffler[j] = seed; in Reset()
/dports/sysutils/heirloom/heirloom-070715/units/
H A Dunits.c62 #define NTAB 601 macro
76 } table[NTAB];
77 static char names[NTAB*10];
362 for(tp = &table[0]; tp < &table[NTAB]; tp++) { in init()
517 h %= NTAB; in hash()
525 if(tp >= &table[NTAB]) in hash()
/dports/net-mgmt/netmagis-servers/netmagis-2.3.4/topo/lib/
H A Dchecklinks.c42 for (i = 0 ; i < NTAB (linkcheck) ; i++) in check_links()
51 if (i >= NTAB (linkcheck)) in check_links()

12345