Home
last modified time | relevance | path

Searched refs:NDEG (Results 1 – 25 of 100) sorted by relevance

1234

/dports/math/slatec/src/
H A Drpqr79.f2 SUBROUTINE RPQR79 (NDEG, COEFF, ROOT, IERR, WORK) argument
62 IF (NDEG .LE. 0) THEN
68 IF (NDEG .EQ. 1) THEN
75 KWR = KH+NDEG*NDEG
76 KWI = KWR+NDEG
77 KWEND = KWI+NDEG-1
83 DO 20 K=1,NDEG
84 KCOL = (K-1)*NDEG+1
86 IF (K .NE. NDEG) WORK(KCOL+K) = 1.0E0
89 CALL HQR (NDEG,NDEG,1,NDEG,WORK(KH),WORK(KWR),WORK(KWI),IERR)
[all …]
H A Dcpqr79.f2 SUBROUTINE CPQR79 (NDEG, COEFF, ROOT, IERR, WORK) argument
55 INTEGER NDEG, IERR, K, KHR, KHI, KWR, KWI, KAD, KJ
65 IF (NDEG .LE. 0) THEN
71 IF (NDEG .EQ. 1) THEN
78 KHI = KHR+NDEG*NDEG
80 KWI = KWR+NDEG
86 DO 20 K=1,NDEG
87 KAD = (K-1)*NDEG+1
92 IF (K .NE. NDEG) WORK(KAD+K) = 1.0E0
95 CALL COMQR (NDEG,NDEG,1,NDEG,WORK(KHR),WORK(KHI),WORK(KWR),
[all …]
H A Ddpolft.f2 SUBROUTINE DPOLFT (N, X, Y, W, MAXDEG, NDEG, EPS, R, IERR, A) argument
127 * K4PI,K5,K5PI,KSIG,M,MAXDEG,MOP1,NDEG,NDER,NFAIL
326 NDEG = J
330 NDEG = JPAS
338 NDEG = MAXDEG
342 NDEG = JPAS
345 33 A(K3) = NDEG
350 IF(EPS .GE. 0.0 .OR. NDEG .EQ. MAXDEG) GO TO 36
353 CALL DP1VLU (NDEG,NDER,X(I),R(I),YP,A)
H A Dpolfit.f2 SUBROUTINE POLFIT (N, X, Y, W, MAXDEG, NDEG, EPS, R, IERR, A) argument
321 NDEG = J
325 NDEG = JPAS
333 NDEG = MAXDEG
337 NDEG = JPAS
340 33 A(K3) = NDEG
345 IF(EPS .GE. 0.0 .OR. NDEG .EQ. MAXDEG) GO TO 36
348 CALL PVALUE (NDEG,NDER,X(I),R(I),YP,A)
/dports/math/cmlib/cmlib-3.0_8/src/cpqr79/
H A Drpqr79.f1 SUBROUTINE RPQR79(NDEG,COEFF,ROOT,IERR,WORK) argument
55 IF(NDEG.LT.0) GOTO 6
56 IF(NDEG.EQ.1) GO TO 7
59 KWR=KH+NDEG*NDEG
60 KWI=KWR+NDEG
61 KWEND=KWI+NDEG-1
64 DO 2 K=1,NDEG
65 KCOL=(K-1)*NDEG+1
67 IF(K.EQ.NDEG) GO TO 2
70 CALL HQR(NDEG,NDEG,1,NDEG,WORK(KH),WORK(KWR),WORK(KWI),IERR)
[all …]
H A Dcpqr79.f1 SUBROUTINE CPQR79(NDEG,COEFF,ROOT,IERR,WORK) argument
61 INTEGER NDEG,IERR,K,KHR,KHI,KWR,KWI,KAD,KJ
65 IF(NDEG.LE.0) GO TO 6
66 IF(NDEG.EQ.1) GOTO 7
69 KHI=KHR+NDEG*NDEG
71 KWI=KWR+NDEG
75 DO 2 K =1,NDEG
76 KAD=(K-1)*NDEG+1
81 IF(K.EQ.NDEG) GO TO 2
85 CALL COMQR(NDEG,NDEG,1,NDEG,WORK(KHR),WORK(KHI),WORK(KWR),WORK(KWI
[all …]
/dports/math/cmlib/cmlib-3.0_8/doc/cpqr79/
H A Drpqr792 SUBROUTINE RPQR79(NDEG,COEFF,ROOT,IERR,WORK)
23 C COEFF(NDEG+1),ROOT(NDEG),WORK(NDEG*NDEG+2*NDEG)
26 C NDEG degree of polynomial
29 C Z, i.e. COEFF(1)*(Z**NDEG) + ... + COEFF(NDEG+1)
31 C WORK real work vector of length at least NDEG*(NDEG+2)
43 C 3 NDEG invalid (less than 0).
H A Dcpqr792 SUBROUTINE CPQR79(NDEG,COEFF,ROOT,IERR,WORK)
14 C of degree NDEG with complex coefficients
19 C COEFF(NDEG+1), ROOT(NDEG), WORK(*)
22 C NDEG degree of polynomial
25 C P(Z)= COEFF(1)*(Z**NDEG) + COEFF(NDEG)*Z + COEFF(NDEG+1)
27 C WORK real work array of dimension at least 2*NDEG*(NDEG+1)
39 C 3 NDEG is invalid( .LE. 0)
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/sirius/
H A Dsirave.F124 NDEG = 0
127 NDEG = NDEG + 1
144 AVFAC = NDEG
1118 NDEG = 0
1123 NDEG = NDEG + 1
1257 NDEG = NDEG + 1
1382 NDEG = NDEG + 1
1514 NDEG = NDEG + 1
1634 NDEG = NDEG + 1
1850 NDEG = 0
[all …]
/dports/math/math77/MATH77/
H A Dcpolz.f1 SUBROUTINE CPOLZ(A,NDEG,Z,H,IERR) argument
59 INTEGER I, IERR, I1MACH, J, NDEG, N local
60 REAL B2, C, C95, F, G, H(NDEG,NDEG,2)
65 COMPLEX A(NDEG+1),TEMP,Z(NDEG)
85 IF (NDEG .LE. 0) THEN
101 N = NDEG
121 DO 30 J = NDEG,1,-1
240 CALL SCOMQR(NDEG,N,1,N,H(1,1,1),H(1,1,2),Z,IERR)
H A Dzpolz.f1 SUBROUTINE ZPOLZ(A,NDEG,Z,H,IERR) argument
58 INTEGER I, IERR, I1MACH, J, NDEG, N local
59 DOUBLE PRECISION B2, C, C95, F, G, H(NDEG,NDEG,2)
66 DOUBLE PRECISION A(2,NDEG+1), TEMP(2), Z(2,NDEG)
84 IF (NDEG .LE. 0) THEN
100 N = NDEG
120 DO 30 J = NDEG,1,-1
239 CALL DCOMQR(NDEG,N,1,N,H(1,1,1),H(1,1,2),Z,IERR)
H A Ddilupm.f1 subroutine DILUPM (NDIM,X,Y,NTAB,XT,YT,NDEG,LUP,IOPT,EOPT) argument
596 IOPTI(3) = NDEG(KDIM)
613 1 NDEG(KDIM), LUPC, IOPTI, EOPT)
675 if (mod(NDEG(KDIM), 2) .eq. 1) NDEGEC = NDEG(KDIM)
677 1 NDEG(KDIM), LUPC, IOPTI, EOPT)
722 if (mod(NDEG(KDIM), 2) .eq. 1) NDEGEC = NDEG(KDIM)
725 1 NDEG(KDIM), ID4, IOPTI, EOPT)
809 K = min(MTOTD, NDEG(NDIMI))
822 K = min(MTOTD, NDEG(J))
878 call MESS (MACT(6), MTXTAC, NDEG)
[all …]
H A Dsilupm.f1 subroutine SILUPM (NDIM,X,Y,NTAB,XT,YT,NDEG,LUP,IOPT,EOPT) argument
596 IOPTI(3) = NDEG(KDIM)
613 1 NDEG(KDIM), LUPC, IOPTI, EOPT)
675 if (mod(NDEG(KDIM), 2) .eq. 1) NDEGEC = NDEG(KDIM)
677 1 NDEG(KDIM), LUPC, IOPTI, EOPT)
722 if (mod(NDEG(KDIM), 2) .eq. 1) NDEGEC = NDEG(KDIM)
725 1 NDEG(KDIM), ID4, IOPTI, EOPT)
809 K = min(MTOTD, NDEG(NDIMI))
822 K = min(MTOTD, NDEG(J))
878 call MESS (MACT(6), MTXTAC, NDEG)
[all …]
H A Didsm.f534 NDEG(JP) = 0
571 NDEG(IC) = NDEG(IC) + 1
587 NDEG(JCOL) = NDEG(JCOL) + DEG
596 SUBROUTINE M7SLO(N,INDROW,JPNTR,INDCOL,IPNTR,NDEG,LIST, argument
599 INTEGER INDROW(*),JPNTR(*),INDCOL(*),IPNTR(*),NDEG(N) local
689 LIST(JP) = NDEG(JP)
690 MINDEG = min(MINDEG,NDEG(JP))
717 NUMDEG = NDEG(JP)
1098 CALL N7MSRT(N,N-1,NDEG,-1,IWA4,IWA1,IWA3)
1160 IF (NDEG(JP) .LE. NUMWGT) GO TO 40
[all …]
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/cgcode/src_f77/
H A Dsckchb.f22 NDEG = IPAR(34)
23 NCHB = NDEG+1
26 IF (IOUNIT .GT. 0) WRITE(IOUNIT,5) NDEG, AA, BB
31 IF (NDEG .LT. 0) WRITE(IOUNIT,10)
44 IF ((NDEG .LT. 0) .OR. (MOD(NCHB,2) .EQ. 0)) THEN
H A Ddckchb.f22 NDEG = IPAR(34)
23 NCHB = NDEG+1
26 IF (IOUNIT .GT. 0) WRITE(IOUNIT,5) NDEG, AA, BB
31 IF (NDEG .LT. 0) WRITE(IOUNIT,10)
44 IF ((NDEG .LT. 0) .OR. (MOD(NCHB,2) .EQ. 0)) THEN
/dports/math/math77/MATH77/demo/
H A Ddrdpfit.f18 integer I, M, NDEG, NP3 variable
30 call DPFIT(M,X,Y,SIG,8, .TRUE. , .TRUE. , .TRUE. ,P,NDEG,SIGFAC,W)
31 NP3 = NDEG+3
37 *(21X,3F15.8))', NDEG,SIGFAC,(P(I),I=1,NP3)
52 YFIT = DCPVAL(P,NDEG,X(I))
H A Ddrspfit.f18 integer I, M, NDEG, NP3 variable
30 call SPFIT(M,X,Y,SIG,8, .TRUE. , .TRUE. , .TRUE. ,P,NDEG,SIGFAC,W)
31 NP3 = NDEG+3
37 *(21X,3F15.8))', NDEG,SIGFAC,(P(I),I=1,NP3)
52 YFIT = SCPVAL(P,NDEG,X(I))
H A Ddrdaccum.f21 integer I, IP(NMAX), IR1, IROW, J, KRANK, N, NCOUNT, NDEG, NROWS variable
32 NDEG = N - 1
40 do 10 J = 2, NDEG+1
72 *(21X,3F15.5))', NDEG,RNORM(1),SIGFAC,(P(I),I=1,N+2)
76 YFIT=DMPVAL(P,NDEG,X(I))
H A Ddrdilup.f14 integer I, NDEG, IOPT(3), LUP variable
29 do 20 NDEG = NDEG1, NDEG2
30 call DILUP (X(I), Y, NTAB, XT, YT, NDEG, LUP, IOPT, EOPT)
32 1 IOPT(1), NDEG, X(I), Y, EOPT(1), Y - ANS
H A Ddrsilup.f14 integer I, NDEG, IOPT(3), LUP variable
29 do 20 NDEG = NDEG1, NDEG2
30 call SILUP (X(I), Y, NTAB, XT, YT, NDEG, LUP, IOPT, EOPT)
32 1 IOPT(1), NDEG, X(I), Y, EOPT(1), Y - ANS
H A Ddrsaccum.f21 integer I, IP(NMAX), IR1, IROW, J, KRANK, N, NCOUNT, NDEG, NROWS variable
32 NDEG = N - 1
40 do 10 J = 2, NDEG+1
72 *(21X,3F15.5))', NDEG,RNORM(1),SIGFAC,(P(I),I=1,N+2)
76 YFIT=SMPVAL(P,NDEG,X(I))
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/
H A Ddpolft.f2 SUBROUTINE DPOLFT (N, X, Y, W, MAXDEG, NDEG, EPS, R, IERR, A) argument
127 * K4PI,K5,K5PI,KSIG,M,MAXDEG,MOP1,NDEG,NDER,NFAIL
326 NDEG = J
330 NDEG = JPAS
338 NDEG = MAXDEG
342 NDEG = JPAS
345 33 A(K3) = NDEG
350 IF(EPS .GE. 0.0 .OR. NDEG .EQ. MAXDEG) GO TO 36
353 CALL DP1VLU (NDEG,NDER,X(I),R(I),YP,A)
H A Dpolfit.f2 SUBROUTINE POLFIT (N, X, Y, W, MAXDEG, NDEG, EPS, R, IERR, A) argument
321 NDEG = J
325 NDEG = JPAS
333 NDEG = MAXDEG
337 NDEG = JPAS
340 33 A(K3) = NDEG
345 IF(EPS .GE. 0.0 .OR. NDEG .EQ. MAXDEG) GO TO 36
348 CALL PVALUE (NDEG,NDER,X(I),R(I),YP,A)
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/lucita/
H A Dlucita_davidson_driver.F375 NDEG = 1
378 IF(IBASE-1+NDEG+1 <= NFINDA) THEN
380 NDEG = NDEG + 1
389 IF (INIDEG.EQ.0.AND.NDEG.GT.1) THEN
392 NDEG = 1
396 SCALE = 1.0D0/SQRT(DFLOAT(NDEG))
397 DO 250 II = 1,NDEG
430 IF (INIDEG.EQ.0.AND.NDEG.GT.1) THEN
436 if(.not.plus_combi) NDEG = 1
440 SCALE = 1.0D0/SQRT(DFLOAT(NDEG))
[all …]

1234