Searched defs:REDUC2 (Results 1 – 5 of 5) sorted by relevance
| /dports/math/cmlib/cmlib-3.0_8/src/eispack/ |
| H A D | reduc2.f | 1 SUBROUTINE REDUC2(NM,N,A,B,DL,IERR) subroutine
84 40 IF (J .NE. I) GO TO 60
89 60 B(J,I) = X / Y
90 80 CONTINUE
93 100 DO 200 I = 1, NN
109 180 A(I,J) = X
110 200 CONTINUE
123 280 A(I,J) = X
124 300 CONTINUE
128 1000 IERR = 7 * N + 1
[all …]
|
| /dports/math/slatec/src/ |
| H A D | reduc2.f | 2 SUBROUTINE REDUC2 (NM, N, A, B, DL, IERR) subroutine
96 40 IF (J .NE. I) GO TO 60
101 60 B(J,I) = X / Y
102 80 CONTINUE
105 100 DO 200 I = 1, NN
121 180 A(I,J) = X
122 200 CONTINUE
135 280 A(I,J) = X
136 300 CONTINUE
140 1000 IERR = 7 * N + 1
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
| H A D | eispack.F | 8409 20 X = X - B(I,K) * B(J,K)
8411 40 IF (J .NE. I) GO TO 60
8416 60 B(J,I) = X / Y
8417 80 CONTINUE
8420 100 DO 200 I = 1, NN
8436 180 A(I,J) = X
8437 200 CONTINUE
8450 280 A(I,J) = X
8451 300 CONTINUE
8455 1000 IERR = 7 * N + 1
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
| H A D | eispack.F | 8405 20 X = X - B(I,K) * B(J,K)
8407 40 IF (J .NE. I) GO TO 60
8412 60 B(J,I) = X / Y
8413 80 CONTINUE
8416 100 DO 200 I = 1, NN
8432 180 A(I,J) = X
8433 200 CONTINUE
8446 280 A(I,J) = X
8447 300 CONTINUE
8451 1000 IERR = 7 * N + 1
[all …]
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pdpack/ |
| H A D | eispack.F | 8410 20 X = X - B(I,K) * B(J,K)
8412 40 IF (J .NE. I) GO TO 60
8417 60 B(J,I) = X / Y
8418 80 CONTINUE
8421 100 DO 200 I = 1, NN
8437 180 A(I,J) = X
8438 200 CONTINUE
8451 280 A(I,J) = X
8452 300 CONTINUE
8456 1000 IERR = 7 * N + 1
[all …]
|