/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | smumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | dmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | cmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | zmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | zmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | cmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | smumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | dmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | dmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | zmumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
H A D | smumps_part5.F | 2135 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 2184 CALL MPI_RECV( REQPTR( I+1, 1 ), 1, 2189 REQPTR( 1, 1 ) = 1 2191 REQPTR( 1, 1 ) = id%NZ_loc + 1 2194 REQPTR( I, 1 ) = REQPTR( I, 1 ) + REQPTR( I-1, 1 ) 2203 IF ( REQPTR( I + 1, 1 ) - REQPTR( I, 1 ) .NE. 0 ) THEN 2206 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2210 & REQPTR( I + 1, 1 ) - REQPTR( I, 1 ), 2214 REQPTR(I, 2) = MPI_REQUEST_NULL 2215 REQPTR(I, 3) = MPI_REQUEST_NULL [all …]
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cana_driver.F | 2997 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 3073 ALLOCATE( REQPTR( id%NPROCS-1, 2 ), STAT = IERR ) 3190 & I, COLLECT_IRN, id%COMM, REQPTR(I,1), IERR ) 3193 & I, COLLECT_JCN, id%COMM, REQPTR(I,2), IERR ) 3195 REQPTR( I,1 ) = MPI_REQUEST_NULL 3196 REQPTR( I,2 ) = MPI_REQUEST_NULL 3207 & ( 2 * (id%NPROCS-1), REQPTR( 1, 1 ), INDX, 3213 DEALLOCATE( REQPTR )
|
H A D | dana_driver.F | 2997 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 3073 ALLOCATE( REQPTR( id%NPROCS-1, 2 ), STAT = IERR ) 3190 & I, COLLECT_IRN, id%COMM, REQPTR(I,1), IERR ) 3193 & I, COLLECT_JCN, id%COMM, REQPTR(I,2), IERR ) 3195 REQPTR( I,1 ) = MPI_REQUEST_NULL 3196 REQPTR( I,2 ) = MPI_REQUEST_NULL 3207 & ( 2 * (id%NPROCS-1), REQPTR( 1, 1 ), INDX, 3213 DEALLOCATE( REQPTR )
|
H A D | zana_driver.F | 2997 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 3073 ALLOCATE( REQPTR( id%NPROCS-1, 2 ), STAT = IERR ) 3190 & I, COLLECT_IRN, id%COMM, REQPTR(I,1), IERR ) 3193 & I, COLLECT_JCN, id%COMM, REQPTR(I,2), IERR ) 3195 REQPTR( I,1 ) = MPI_REQUEST_NULL 3196 REQPTR( I,2 ) = MPI_REQUEST_NULL 3207 & ( 2 * (id%NPROCS-1), REQPTR( 1, 1 ), INDX, 3213 DEALLOCATE( REQPTR )
|
H A D | sana_driver.F | 2997 INTEGER, ALLOCATABLE :: REQPTR(:,:) local 3073 ALLOCATE( REQPTR( id%NPROCS-1, 2 ), STAT = IERR ) 3190 & I, COLLECT_IRN, id%COMM, REQPTR(I,1), IERR ) 3193 & I, COLLECT_JCN, id%COMM, REQPTR(I,2), IERR ) 3195 REQPTR( I,1 ) = MPI_REQUEST_NULL 3196 REQPTR( I,2 ) = MPI_REQUEST_NULL 3207 & ( 2 * (id%NPROCS-1), REQPTR( 1, 1 ), INDX, 3213 DEALLOCATE( REQPTR )
|