/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zfac_process_contrib_type3.F | 62 INTEGER NSUPROW, NSUPCOL, BBPCBP local 74 & NSUPCOL, 1, MPI_INTEGER, COMM, IERR ) 85 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 89 NSUPCOL_EFF = NSUPCOL 163 & (min(NSUPROW, NSUPCOL) .GT. 0) 165 LREQI = NSUPROW+NSUPCOL 166 LREQA = int(NSUPROW,8) * int(NSUPCOL,8) 187 CALL ZMUMPS_ASS_ROOT( NSUPROW, NSUPCOL, 189 & IW( IWPOSCB + NSUPROW + 1 ), NSUPCOL,
|
H A D | cfac_process_contrib_type3.F | 62 INTEGER NSUPROW, NSUPCOL, BBPCBP local 74 & NSUPCOL, 1, MPI_INTEGER, COMM, IERR ) 85 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 89 NSUPCOL_EFF = NSUPCOL 163 & (min(NSUPROW, NSUPCOL) .GT. 0) 165 LREQI = NSUPROW+NSUPCOL 166 LREQA = int(NSUPROW,8) * int(NSUPCOL,8) 187 CALL CMUMPS_ASS_ROOT( NSUPROW, NSUPCOL, 189 & IW( IWPOSCB + NSUPROW + 1 ), NSUPCOL,
|
H A D | dfac_process_contrib_type3.F | 62 INTEGER NSUPROW, NSUPCOL, BBPCBP local 74 & NSUPCOL, 1, MPI_INTEGER, COMM, IERR ) 85 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 89 NSUPCOL_EFF = NSUPCOL 163 & (min(NSUPROW, NSUPCOL) .GT. 0) 165 LREQI = NSUPROW+NSUPCOL 166 LREQA = int(NSUPROW,8) * int(NSUPCOL,8) 187 CALL DMUMPS_ASS_ROOT( NSUPROW, NSUPCOL, 189 & IW( IWPOSCB + NSUPROW + 1 ), NSUPCOL,
|
H A D | sfac_process_contrib_type3.F | 62 INTEGER NSUPROW, NSUPCOL, BBPCBP local 74 & NSUPCOL, 1, MPI_INTEGER, COMM, IERR ) 85 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 89 NSUPCOL_EFF = NSUPCOL 163 & (min(NSUPROW, NSUPCOL) .GT. 0) 165 LREQI = NSUPROW+NSUPCOL 166 LREQA = int(NSUPROW,8) * int(NSUPCOL,8) 187 CALL SMUMPS_ASS_ROOT( NSUPROW, NSUPCOL, 189 & IW( IWPOSCB + NSUPROW + 1 ), NSUPCOL,
|
H A D | ztype3_root.F | 18 INTEGER NCOL_SON, NROW_SON, NSUPCOL local 29 DO J = 1, NCOL_SON-NSUPCOL 33 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 181 NSUPCOL = 0 191 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 206 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 225 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 598 INTEGER NSUPROW, NSUPCOL local 617 DO JSUB = 1, NSUBSET_COL-NSUPCOL 647 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
H A D | dtype3_root.F | 18 INTEGER NCOL_SON, NROW_SON, NSUPCOL local 29 DO J = 1, NCOL_SON-NSUPCOL 33 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 181 NSUPCOL = 0 191 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 206 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 225 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 598 INTEGER NSUPROW, NSUPCOL local 617 DO JSUB = 1, NSUBSET_COL-NSUPCOL 647 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
H A D | stype3_root.F | 18 INTEGER NCOL_SON, NROW_SON, NSUPCOL local 29 DO J = 1, NCOL_SON-NSUPCOL 33 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 181 NSUPCOL = 0 191 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 206 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 225 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 598 INTEGER NSUPROW, NSUPCOL local 617 DO JSUB = 1, NSUBSET_COL-NSUPCOL 647 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
H A D | ctype3_root.F | 18 INTEGER NCOL_SON, NROW_SON, NSUPCOL local 29 DO J = 1, NCOL_SON-NSUPCOL 33 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 181 NSUPCOL = 0 191 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 206 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 225 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 598 INTEGER NSUPROW, NSUPCOL local 617 DO JSUB = 1, NSUBSET_COL-NSUPCOL 647 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, 1749 INTEGER NSUPROW, NSUPCOL 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | dmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, 1749 INTEGER NSUPROW, NSUPCOL 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | cmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, 1749 INTEGER NSUPROW, NSUPCOL 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | smumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, 1749 INTEGER NSUPROW, NSUPCOL 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | zmumps_part6.F | 3194 INTEGER NCOL_SON, NROW_SON, NSUPCOL 3205 DO J = 1, NCOL_SON-NSUPCOL 3209 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 3344 NSUPCOL = 0 3354 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3369 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3388 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3711 INTEGER NSUPROW, NSUPCOL 3730 DO JSUB = 1, NSUBSET_COL-NSUPCOL 3760 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
H A D | smumps_part6.F | 3212 INTEGER NCOL_SON, NROW_SON, NSUPCOL 3223 DO J = 1, NCOL_SON-NSUPCOL 3227 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 3362 NSUPCOL = 0 3372 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3387 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3406 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3729 INTEGER NSUPROW, NSUPCOL 3748 DO JSUB = 1, NSUBSET_COL-NSUPCOL 3778 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
H A D | cmumps_part6.F | 3194 INTEGER NCOL_SON, NROW_SON, NSUPCOL 3205 DO J = 1, NCOL_SON-NSUPCOL 3209 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 3344 NSUPCOL = 0 3354 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3369 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3388 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3711 INTEGER NSUPROW, NSUPCOL 3730 DO JSUB = 1, NSUBSET_COL-NSUPCOL 3760 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
H A D | dmumps_part6.F | 3212 INTEGER NCOL_SON, NROW_SON, NSUPCOL 3223 DO J = 1, NCOL_SON-NSUPCOL 3227 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 3362 NSUPCOL = 0 3372 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3387 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3406 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3729 INTEGER NSUPROW, NSUPCOL 3748 DO JSUB = 1, NSUBSET_COL-NSUPCOL 3778 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, 1749 INTEGER NSUPROW, NSUPCOL 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | smumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, 1749 INTEGER NSUPROW, NSUPCOL 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | zmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, 1749 INTEGER NSUPROW, NSUPCOL 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | dmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, 1749 INTEGER NSUPROW, NSUPCOL 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | dmumps_part6.F | 3212 INTEGER NCOL_SON, NROW_SON, NSUPCOL 3223 DO J = 1, NCOL_SON-NSUPCOL 3227 DO J = NCOL_SON-NSUPCOL+1, NCOL_SON 3362 NSUPCOL = 0 3372 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3387 & NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3406 NSUPCOL(JCOL+1) = NSUPCOL(JCOL+1) + 1 3729 INTEGER NSUPROW, NSUPCOL 3748 DO JSUB = 1, NSUBSET_COL-NSUPCOL 3778 DO JSUB = 1, NSUBSET_COL -NSUPCOL [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, argument 1749 INTEGER NSUPROW, NSUPCOL local 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | zmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, argument 1749 INTEGER NSUPROW, NSUPCOL local 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | dmumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, argument 1749 INTEGER NSUPROW, NSUPCOL local 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|
H A D | smumps_comm_buffer.F | 1735 & NSUPROW, NSUPCOL, argument 1749 INTEGER NSUPROW, NSUPCOL local 1784 & min(NSUPROW,NSUPCOL) .GT.0) THEN 1787 CALL MPI_PACK_SIZE(NSUPCOL, MPI_INTEGER, COMM, 1790 CALL MPI_PACK_SIZE(NSUPROW*NSUPCOL, 1797 NSUBSET_COL_EFF = NSUBSET_COL - NSUPCOL 1801 NSUPCOL_EFF = NSUPCOL 1875 CALL MPI_PACK( NSUPCOL, 1, MPI_INTEGER, 1889 & min(NSUPROW, NSUPCOL) .GT. 0) THEN 1900 DO ISUB = NSUBSET_COL-NSUPCOL+1, NSUBSET_COL [all …]
|