/dports/math/slatec/src/ |
H A D | rpqr79.f | 2 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 D | cpqr79.f | 2 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 D | dpolft.f | 2 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 D | polfit.f | 2 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 D | rpqr79.f | 1 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 D | cpqr79.f | 1 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 D | rpqr79 | 2 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 D | cpqr79 | 2 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 D | sirave.F | 124 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 D | cpolz.f | 1 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 D | zpolz.f | 1 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 D | dilupm.f | 1 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 D | silupm.f | 1 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 D | idsm.f | 534 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 D | sckchb.f | 22 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 D | dckchb.f | 22 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 D | drdpfit.f | 18 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 D | drspfit.f | 18 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 D | drdaccum.f | 21 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 D | drdilup.f | 14 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 D | drsilup.f | 14 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 D | drsaccum.f | 21 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 D | dpolft.f | 2 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 D | polfit.f | 2 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 D | lucita_davidson_driver.F | 375 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 …]
|