| /dports/math/mumps/mumps-5.1.2/src/ |
| H A D | tools_common.F | 624 INTEGER, DIMENSION (:), ALLOCATABLE :: IPOOL,TNSTK local
632 ALLOCATE( IPOOL(NBLEAF), TNSTK(NSTEPS), stat=allocok )
641 TNSTK(I) = NE(I)
690 TMP_SWAP=TNSTK(STEP(INODE))
691 TNSTK(STEP(INODE))=TNSTK(POSTORDER)
692 TNSTK(POSTORDER)=TMP_SWAP
717 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
718 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
726 DEALLOCATE(IPOOL,TNSTK)
|
| H A D | cana_reordertree.F | 38 INTEGER, DIMENSION (:), ALLOCATABLE :: IPOOL,TNSTK local
110 TNSTK(I) = NE(I)
275 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
276 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
705 DEALLOCATE(TNSTK)
840 & TNSTK(NSTEPS), stat=allocok )
850 TNSTK(I) = NE(I)
1116 TNSTK(I) = NE(I)
1159 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
1160 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | sana_reordertree.F | 38 INTEGER, DIMENSION (:), ALLOCATABLE :: IPOOL,TNSTK local
110 TNSTK(I) = NE(I)
275 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
276 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
705 DEALLOCATE(TNSTK)
840 & TNSTK(NSTEPS), stat=allocok )
850 TNSTK(I) = NE(I)
1116 TNSTK(I) = NE(I)
1159 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
1160 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | zana_reordertree.F | 38 INTEGER, DIMENSION (:), ALLOCATABLE :: IPOOL,TNSTK local
110 TNSTK(I) = NE(I)
275 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
276 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
705 DEALLOCATE(TNSTK)
840 & TNSTK(NSTEPS), stat=allocok )
850 TNSTK(I) = NE(I)
1116 TNSTK(I) = NE(I)
1159 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
1160 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | dana_reordertree.F | 38 INTEGER, DIMENSION (:), ALLOCATABLE :: IPOOL,TNSTK local
110 TNSTK(I) = NE(I)
275 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
276 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
705 DEALLOCATE(TNSTK)
840 & TNSTK(NSTEPS), stat=allocok )
850 TNSTK(I) = NE(I)
1116 TNSTK(I) = NE(I)
1159 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
1160 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | dana_dist_m.F | 56 INTEGER, ALLOCATABLE, DIMENSION(:) :: TNSTK, IPOOL, LSTKI local
110 ALLOCATE( LSTKR(NSTEPS), TNSTK(NSTEPS), IPOOL(NSTEPS),
125 TNSTK = NE
816 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
817 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
852 DEALLOCATE( LSTKR, TNSTK, IPOOL,
|
| H A D | cana_dist_m.F | 56 INTEGER, ALLOCATABLE, DIMENSION(:) :: TNSTK, IPOOL, LSTKI local
110 ALLOCATE( LSTKR(NSTEPS), TNSTK(NSTEPS), IPOOL(NSTEPS),
125 TNSTK = NE
816 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
817 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
852 DEALLOCATE( LSTKR, TNSTK, IPOOL,
|
| H A D | zana_dist_m.F | 56 INTEGER, ALLOCATABLE, DIMENSION(:) :: TNSTK, IPOOL, LSTKI local
110 ALLOCATE( LSTKR(NSTEPS), TNSTK(NSTEPS), IPOOL(NSTEPS),
125 TNSTK = NE
816 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
817 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
852 DEALLOCATE( LSTKR, TNSTK, IPOOL,
|
| H A D | sana_dist_m.F | 56 INTEGER, ALLOCATABLE, DIMENSION(:) :: TNSTK, IPOOL, LSTKI local
110 ALLOCATE( LSTKR(NSTEPS), TNSTK(NSTEPS), IPOOL(NSTEPS),
125 TNSTK = NE
816 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
817 IF ( TNSTK(STEP(IFATH)) .EQ. 0 ) THEN
852 DEALLOCATE( LSTKR, TNSTK, IPOOL,
|
| H A D | cana_aux_ELT.F | 837 INTEGER, DIMENSION(:), ALLOCATABLE :: TNSTK, IPOOL local
840 ALLOCATE(TNSTK( N ), stat=allocok)
852 TNSTK = NE
921 TNSTK(IFATH) = TNSTK(IFATH) - 1
922 IF ( TNSTK(IFATH) .EQ. 0 ) THEN
948 DEALLOCATE(TNSTK, IPOOL)
|
| H A D | zana_aux_ELT.F | 837 INTEGER, DIMENSION(:), ALLOCATABLE :: TNSTK, IPOOL local
840 ALLOCATE(TNSTK( N ), stat=allocok)
852 TNSTK = NE
921 TNSTK(IFATH) = TNSTK(IFATH) - 1
922 IF ( TNSTK(IFATH) .EQ. 0 ) THEN
948 DEALLOCATE(TNSTK, IPOOL)
|
| H A D | sana_aux_ELT.F | 837 INTEGER, DIMENSION(:), ALLOCATABLE :: TNSTK, IPOOL local
840 ALLOCATE(TNSTK( N ), stat=allocok)
852 TNSTK = NE
921 TNSTK(IFATH) = TNSTK(IFATH) - 1
922 IF ( TNSTK(IFATH) .EQ. 0 ) THEN
948 DEALLOCATE(TNSTK, IPOOL)
|
| H A D | dana_aux_ELT.F | 837 INTEGER, DIMENSION(:), ALLOCATABLE :: TNSTK, IPOOL local
840 ALLOCATE(TNSTK( N ), stat=allocok)
852 TNSTK = NE
921 TNSTK(IFATH) = TNSTK(IFATH) - 1
922 IF ( TNSTK(IFATH) .EQ. 0 ) THEN
948 DEALLOCATE(TNSTK, IPOOL)
|
| /dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
| H A D | cmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5670 TNSTK(I) = NE(I)
5835 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6264 DEALLOCATE(TNSTK)
6396 TNSTK(I) = NE(I)
6662 TNSTK(I) = NE(I)
6705 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6706 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | dmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5663 TNSTK(I) = NE(I)
5828 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6257 DEALLOCATE(TNSTK)
6389 TNSTK(I) = NE(I)
6655 TNSTK(I) = NE(I)
6698 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6699 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | zmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5670 TNSTK(I) = NE(I)
5835 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6264 DEALLOCATE(TNSTK)
6396 TNSTK(I) = NE(I)
6662 TNSTK(I) = NE(I)
6705 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6706 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | smumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5663 TNSTK(I) = NE(I)
5828 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6257 DEALLOCATE(TNSTK)
6389 TNSTK(I) = NE(I)
6655 TNSTK(I) = NE(I)
6698 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6699 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| /dports/math/coinmumps/MUMPS_4.10.0/src/ |
| H A D | dmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5663 TNSTK(I) = NE(I)
5828 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6257 DEALLOCATE(TNSTK)
6389 TNSTK(I) = NE(I)
6655 TNSTK(I) = NE(I)
6698 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6699 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | smumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5663 TNSTK(I) = NE(I)
5828 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6257 DEALLOCATE(TNSTK)
6389 TNSTK(I) = NE(I)
6655 TNSTK(I) = NE(I)
6698 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6699 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | zmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5670 TNSTK(I) = NE(I)
5835 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6264 DEALLOCATE(TNSTK)
6396 TNSTK(I) = NE(I)
6662 TNSTK(I) = NE(I)
6705 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6706 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | cmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5670 TNSTK(I) = NE(I)
5835 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6264 DEALLOCATE(TNSTK)
6396 TNSTK(I) = NE(I)
6662 TNSTK(I) = NE(I)
6705 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6706 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| /dports/math/mumps4/MUMPS_4.10.0/src/ |
| H A D | cmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5670 TNSTK(I) = NE(I)
5835 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6264 DEALLOCATE(TNSTK)
6396 TNSTK(I) = NE(I)
6662 TNSTK(I) = NE(I)
6705 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6706 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | dmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5663 TNSTK(I) = NE(I)
5828 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6257 DEALLOCATE(TNSTK)
6389 TNSTK(I) = NE(I)
6655 TNSTK(I) = NE(I)
6698 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6699 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | zmumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5670 TNSTK(I) = NE(I)
5835 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6264 DEALLOCATE(TNSTK)
6396 TNSTK(I) = NE(I)
6662 TNSTK(I) = NE(I)
6705 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6706 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|
| H A D | smumps_part4.F | 149 TNSTK = NE
834 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
870 DEALLOCATE( LSTKR, TNSTK, IPOOL,
5663 TNSTK(I) = NE(I)
5828 TNSTK(STEP(IFATH)) = TNSTK(STEP(IFATH)) - 1
6257 DEALLOCATE(TNSTK)
6389 TNSTK(I) = NE(I)
6655 TNSTK(I) = NE(I)
6698 TNSTK(STEP(IFATH))=TNSTK(STEP(IFATH))-1
6699 IF(TNSTK(STEP(IFATH)).EQ.0) THEN
[all …]
|