/dports/math/math77/MATH77/ |
H A D | dilupmd.f | 244 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 D | silupmd.f | 244 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 D | dilupm.f | 447 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 D | silupm.f | 447 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 D | dhint.f | 1 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 D | shint.f | 1 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 D | hecmw_adapt_item_sr.f90 | 20 & 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 D | qmd_ran1.F | 6 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 D | qmd_ran1.F | 6 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 D | gasdev.F | 41 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 D | gasdev.F | 41 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 D | drdilup.f | 10 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 D | drsilup.f | 10 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 D | drdilupm.f | 14 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 D | drsilupm.f | 14 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 D | drdhint.f | 7 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 D | drshint.f | 7 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 D | MSfUnifRand.c | 52 #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 D | gen_fst4wave.f90 | 5 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 D | Random.cpp | 49 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 D | Random.h | 33 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 D | gen_ft8wave.f90 | 6 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 D | Random.cpp | 85 #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 D | units.c | 62 #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 D | checklinks.c | 42 for (i = 0 ; i < NTAB (linkcheck) ; i++) in check_links() 51 if (i >= NTAB (linkcheck)) in check_links()
|