Home
last modified time | relevance | path

Searched refs:SBTR_NB_LEAF (Results 1 – 16 of 16) sorted by relevance

/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dcmumps_load.F5675 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 Dzmumps_load.F5675 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 Ddmumps_load.F5675 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 Dsmumps_load.F5675 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 Dzmumps_load.F5675 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 Dcmumps_load.F5675 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 Ddmumps_load.F5675 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 Dsmumps_load.F5675 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 Ddmumps_load.F5624 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 Dcmumps_load.F5624 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 Dzmumps_load.F5624 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 Dsmumps_load.F5624 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 Dcmumps_load.F5675 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 Ddmumps_load.F5675 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 Dsmumps_load.F5675 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 Dzmumps_load.F5675 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