/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | cmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | zmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | dmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | smumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | zmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | cmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | dmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | smumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | dmumps_load.F | 5624 INTEGER SBTR_NB_LEAF,POS,K,allocok,L local 5646 SBTR_NB_LEAF=MY_NB_LEAF(J) 5648 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5652 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5659 DO K=1,SBTR_NB_LEAF 5662 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5663 POOL(K)=POOL(K+SBTR_NB_LEAF) 5666 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5674 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | cmumps_load.F | 5624 INTEGER SBTR_NB_LEAF,POS,K,allocok,L local 5646 SBTR_NB_LEAF=MY_NB_LEAF(J) 5648 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5652 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5659 DO K=1,SBTR_NB_LEAF 5662 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5663 POOL(K)=POOL(K+SBTR_NB_LEAF) 5666 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5674 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | zmumps_load.F | 5624 INTEGER SBTR_NB_LEAF,POS,K,allocok,L local 5646 SBTR_NB_LEAF=MY_NB_LEAF(J) 5648 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5652 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5659 DO K=1,SBTR_NB_LEAF 5662 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5663 POOL(K)=POOL(K+SBTR_NB_LEAF) 5666 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5674 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | smumps_load.F | 5624 INTEGER SBTR_NB_LEAF,POS,K,allocok,L local 5646 SBTR_NB_LEAF=MY_NB_LEAF(J) 5648 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5652 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5659 DO K=1,SBTR_NB_LEAF 5662 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5663 POOL(K)=POOL(K+SBTR_NB_LEAF) 5666 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5674 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L local 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | dmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L local 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | smumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L local 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|
H A D | zmumps_load.F | 5675 INTEGER SBTR_NB_LEAF,POS,K,allocok,L local 5697 SBTR_NB_LEAF=MY_NB_LEAF(J) 5699 IF(POOL(POS+SBTR_NB_LEAF).NE.MY_FIRST_LEAF(J))THEN 5703 ALLOCATE (TMP_SBTR(SBTR_NB_LEAF), stat=allocok) 5710 DO K=1,SBTR_NB_LEAF 5713 DO K=POS+1,NBINSUBTREE-SBTR_NB_LEAF 5714 POOL(K)=POOL(K+SBTR_NB_LEAF) 5717 DO K=NBINSUBTREE-SBTR_NB_LEAF+1,NBINSUBTREE 5725 SBTR_FIRST_POS_IN_POOL(J)=NBINSUBTREE-SBTR_NB_LEAF
|