| /dports/math/mumps/mumps-5.1.2/src/ |
| H A D | cana_aux_par.F | 24 INTEGER :: CBLKNBR, N component
475 & SIZES, ord%CBLKNBR)
730 DO I=1, ord%CBLKNBR
1296 ALLOCATE(PERM(CBLKNBR))
1297 TREETAB(CBLKNBR) = -1
1305 LCHILD = CBLKNBR - (CBLKNBR+1)/2
1306 RCHILD = CBLKNBR-1
1308 PERM(CBLKNBR) = CBLKNBR
1320 DO I=1, CBLKNBR
1341 & CBLKNBR, 2*K)
[all …]
|
| H A D | dana_aux_par.F | 24 INTEGER :: CBLKNBR, N component
475 & SIZES, ord%CBLKNBR)
730 DO I=1, ord%CBLKNBR
1296 ALLOCATE(PERM(CBLKNBR))
1297 TREETAB(CBLKNBR) = -1
1305 LCHILD = CBLKNBR - (CBLKNBR+1)/2
1306 RCHILD = CBLKNBR-1
1308 PERM(CBLKNBR) = CBLKNBR
1320 DO I=1, CBLKNBR
1341 & CBLKNBR, 2*K)
[all …]
|
| H A D | zana_aux_par.F | 24 INTEGER :: CBLKNBR, N component
475 & SIZES, ord%CBLKNBR)
730 DO I=1, ord%CBLKNBR
1296 ALLOCATE(PERM(CBLKNBR))
1297 TREETAB(CBLKNBR) = -1
1305 LCHILD = CBLKNBR - (CBLKNBR+1)/2
1306 RCHILD = CBLKNBR-1
1308 PERM(CBLKNBR) = CBLKNBR
1320 DO I=1, CBLKNBR
1341 & CBLKNBR, 2*K)
[all …]
|
| H A D | sana_aux_par.F | 24 INTEGER :: CBLKNBR, N component
475 & SIZES, ord%CBLKNBR)
730 DO I=1, ord%CBLKNBR
1296 ALLOCATE(PERM(CBLKNBR))
1297 TREETAB(CBLKNBR) = -1
1305 LCHILD = CBLKNBR - (CBLKNBR+1)/2
1306 RCHILD = CBLKNBR-1
1308 PERM(CBLKNBR) = CBLKNBR
1320 DO I=1, CBLKNBR
1341 & CBLKNBR, 2*K)
[all …]
|
| /dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
| H A D | zmumps_part2.F | 5718 ALLOCATE(PERM(CBLKNBR))
5719 TREETAB(CBLKNBR) = -1
5720 IF(CBLKNBR .EQ. 1) THEN
5726 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5727 RCHILD = CBLKNBR-1
5729 PERM(CBLKNBR) = CBLKNBR
5734 IF(CBLKNBR .GT. 3) THEN
5741 DO I=1, CBLKNBR
5748 & ROOTN, CBLKNBR, K)
5762 & CBLKNBR, 2*K)
[all …]
|
| H A D | cmumps_part2.F | 5718 ALLOCATE(PERM(CBLKNBR))
5719 TREETAB(CBLKNBR) = -1
5720 IF(CBLKNBR .EQ. 1) THEN
5726 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5727 RCHILD = CBLKNBR-1
5729 PERM(CBLKNBR) = CBLKNBR
5734 IF(CBLKNBR .GT. 3) THEN
5741 DO I=1, CBLKNBR
5748 & ROOTN, CBLKNBR, K)
5762 & CBLKNBR, 2*K)
[all …]
|
| H A D | dmumps_part2.F | 5719 ALLOCATE(PERM(CBLKNBR))
5720 TREETAB(CBLKNBR) = -1
5721 IF(CBLKNBR .EQ. 1) THEN
5727 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5728 RCHILD = CBLKNBR-1
5730 PERM(CBLKNBR) = CBLKNBR
5735 IF(CBLKNBR .GT. 3) THEN
5742 DO I=1, CBLKNBR
5749 & ROOTN, CBLKNBR, K)
5763 & CBLKNBR, 2*K)
[all …]
|
| H A D | smumps_part2.F | 5714 ALLOCATE(PERM(CBLKNBR))
5715 TREETAB(CBLKNBR) = -1
5716 IF(CBLKNBR .EQ. 1) THEN
5722 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5723 RCHILD = CBLKNBR-1
5725 PERM(CBLKNBR) = CBLKNBR
5730 IF(CBLKNBR .GT. 3) THEN
5737 DO I=1, CBLKNBR
5744 & ROOTN, CBLKNBR, K)
5758 & CBLKNBR, 2*K)
[all …]
|
| /dports/math/coinmumps/MUMPS_4.10.0/src/ |
| H A D | cmumps_part2.F | 5718 ALLOCATE(PERM(CBLKNBR))
5719 TREETAB(CBLKNBR) = -1
5720 IF(CBLKNBR .EQ. 1) THEN
5726 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5727 RCHILD = CBLKNBR-1
5729 PERM(CBLKNBR) = CBLKNBR
5734 IF(CBLKNBR .GT. 3) THEN
5741 DO I=1, CBLKNBR
5748 & ROOTN, CBLKNBR, K)
5762 & CBLKNBR, 2*K)
[all …]
|
| H A D | dmumps_part2.F | 5719 ALLOCATE(PERM(CBLKNBR))
5720 TREETAB(CBLKNBR) = -1
5721 IF(CBLKNBR .EQ. 1) THEN
5727 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5728 RCHILD = CBLKNBR-1
5730 PERM(CBLKNBR) = CBLKNBR
5735 IF(CBLKNBR .GT. 3) THEN
5742 DO I=1, CBLKNBR
5749 & ROOTN, CBLKNBR, K)
5763 & CBLKNBR, 2*K)
[all …]
|
| H A D | smumps_part2.F | 5714 ALLOCATE(PERM(CBLKNBR))
5715 TREETAB(CBLKNBR) = -1
5716 IF(CBLKNBR .EQ. 1) THEN
5722 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5723 RCHILD = CBLKNBR-1
5725 PERM(CBLKNBR) = CBLKNBR
5730 IF(CBLKNBR .GT. 3) THEN
5737 DO I=1, CBLKNBR
5744 & ROOTN, CBLKNBR, K)
5758 & CBLKNBR, 2*K)
[all …]
|
| H A D | zmumps_part2.F | 5718 ALLOCATE(PERM(CBLKNBR))
5719 TREETAB(CBLKNBR) = -1
5720 IF(CBLKNBR .EQ. 1) THEN
5726 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5727 RCHILD = CBLKNBR-1
5729 PERM(CBLKNBR) = CBLKNBR
5734 IF(CBLKNBR .GT. 3) THEN
5741 DO I=1, CBLKNBR
5748 & ROOTN, CBLKNBR, K)
5762 & CBLKNBR, 2*K)
[all …]
|
| /dports/math/mumps4/MUMPS_4.10.0/src/ |
| H A D | cmumps_part2.F | 5718 ALLOCATE(PERM(CBLKNBR))
5719 TREETAB(CBLKNBR) = -1
5720 IF(CBLKNBR .EQ. 1) THEN
5726 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5727 RCHILD = CBLKNBR-1
5729 PERM(CBLKNBR) = CBLKNBR
5734 IF(CBLKNBR .GT. 3) THEN
5741 DO I=1, CBLKNBR
5748 & ROOTN, CBLKNBR, K)
5762 & CBLKNBR, 2*K)
[all …]
|
| H A D | dmumps_part2.F | 5714 ALLOCATE(PERM(CBLKNBR))
5715 TREETAB(CBLKNBR) = -1
5716 IF(CBLKNBR .EQ. 1) THEN
5722 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5723 RCHILD = CBLKNBR-1
5725 PERM(CBLKNBR) = CBLKNBR
5730 IF(CBLKNBR .GT. 3) THEN
5737 DO I=1, CBLKNBR
5744 & ROOTN, CBLKNBR, K)
5758 & CBLKNBR, 2*K)
[all …]
|
| H A D | zmumps_part2.F | 5718 ALLOCATE(PERM(CBLKNBR))
5719 TREETAB(CBLKNBR) = -1
5720 IF(CBLKNBR .EQ. 1) THEN
5726 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5727 RCHILD = CBLKNBR-1
5729 PERM(CBLKNBR) = CBLKNBR
5734 IF(CBLKNBR .GT. 3) THEN
5741 DO I=1, CBLKNBR
5748 & ROOTN, CBLKNBR, K)
5762 & CBLKNBR, 2*K)
[all …]
|
| H A D | smumps_part2.F | 5714 ALLOCATE(PERM(CBLKNBR))
5715 TREETAB(CBLKNBR) = -1
5716 IF(CBLKNBR .EQ. 1) THEN
5722 LCHILD = CBLKNBR - (CBLKNBR+1)/2
5723 RCHILD = CBLKNBR-1
5725 PERM(CBLKNBR) = CBLKNBR
5730 IF(CBLKNBR .GT. 3) THEN
5737 DO I=1, CBLKNBR
5744 & ROOTN, CBLKNBR, K)
5758 & CBLKNBR, 2*K)
[all …]
|