| /dports/math/mumps/mumps-5.1.2/src/ |
| H A D | zfac_process_contrib_type1.F | 47 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
65 & NBROWS_PACKET, 1, MPI_INTEGER,
96 SIZE_PACKET = (NBROWS_PACKET * (NBROWS_PACKET+1))/2 +
97 & NBROWS_ALREADY_SENT * NBROWS_PACKET
100 SIZE_PACKET = NBROWS_PACKET * FLCONT
102 IF (NBROWS_PACKET.NE.0) THEN
110 IF (NBROWS_ALREADY_SENT+NBROWS_PACKET == FLCONT) THEN
|
| H A D | cfac_process_contrib_type1.F | 47 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
65 & NBROWS_PACKET, 1, MPI_INTEGER,
96 SIZE_PACKET = (NBROWS_PACKET * (NBROWS_PACKET+1))/2 +
97 & NBROWS_ALREADY_SENT * NBROWS_PACKET
100 SIZE_PACKET = NBROWS_PACKET * FLCONT
102 IF (NBROWS_PACKET.NE.0) THEN
110 IF (NBROWS_ALREADY_SENT+NBROWS_PACKET == FLCONT) THEN
|
| H A D | dfac_process_contrib_type1.F | 47 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
65 & NBROWS_PACKET, 1, MPI_INTEGER,
96 SIZE_PACKET = (NBROWS_PACKET * (NBROWS_PACKET+1))/2 +
97 & NBROWS_ALREADY_SENT * NBROWS_PACKET
100 SIZE_PACKET = NBROWS_PACKET * FLCONT
102 IF (NBROWS_PACKET.NE.0) THEN
110 IF (NBROWS_ALREADY_SENT+NBROWS_PACKET == FLCONT) THEN
|
| H A D | sfac_process_contrib_type1.F | 47 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
65 & NBROWS_PACKET, 1, MPI_INTEGER,
96 SIZE_PACKET = (NBROWS_PACKET * (NBROWS_PACKET+1))/2 +
97 & NBROWS_ALREADY_SENT * NBROWS_PACKET
100 SIZE_PACKET = NBROWS_PACKET * FLCONT
102 IF (NBROWS_PACKET.NE.0) THEN
110 IF (NBROWS_ALREADY_SENT+NBROWS_PACKET == FLCONT) THEN
|
| H A D | zfac_process_contrib_type3.F | 61 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
79 & NBROWS_PACKET, 1, MPI_INTEGER,
94 IF (NBROWS_ALREADY_SENT + NBROWS_PACKET .EQ. NSUBSET_ROW
123 IF (NBROWS_ALREADY_SENT + NBROWS_PACKET .EQ.
204 LREQI = NBROWS_PACKET + NSUBSET_COL_EFF
205 LREQA = int(NBROWS_PACKET,8) * int(NSUBSET_COL_EFF,8)
228 CALL ZMUMPS_ASS_ROOT( NBROWS_PACKET, NSUBSET_COL_EFF,
230 & IW( IWPOSCB + NBROWS_PACKET + 1 ),
237 CALL ZMUMPS_ASS_ROOT( NBROWS_PACKET, NSUBSET_COL_EFF,
239 & IW( IWPOSCB + NBROWS_PACKET + 1 ),
|
| H A D | cfac_process_contrib_type3.F | 61 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
79 & NBROWS_PACKET, 1, MPI_INTEGER,
94 IF (NBROWS_ALREADY_SENT + NBROWS_PACKET .EQ. NSUBSET_ROW
123 IF (NBROWS_ALREADY_SENT + NBROWS_PACKET .EQ.
204 LREQI = NBROWS_PACKET + NSUBSET_COL_EFF
205 LREQA = int(NBROWS_PACKET,8) * int(NSUBSET_COL_EFF,8)
228 CALL CMUMPS_ASS_ROOT( NBROWS_PACKET, NSUBSET_COL_EFF,
230 & IW( IWPOSCB + NBROWS_PACKET + 1 ),
237 CALL CMUMPS_ASS_ROOT( NBROWS_PACKET, NSUBSET_COL_EFF,
239 & IW( IWPOSCB + NBROWS_PACKET + 1 ),
|
| H A D | dfac_process_contrib_type3.F | 61 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
79 & NBROWS_PACKET, 1, MPI_INTEGER,
94 IF (NBROWS_ALREADY_SENT + NBROWS_PACKET .EQ. NSUBSET_ROW
123 IF (NBROWS_ALREADY_SENT + NBROWS_PACKET .EQ.
204 LREQI = NBROWS_PACKET + NSUBSET_COL_EFF
205 LREQA = int(NBROWS_PACKET,8) * int(NSUBSET_COL_EFF,8)
228 CALL DMUMPS_ASS_ROOT( NBROWS_PACKET, NSUBSET_COL_EFF,
230 & IW( IWPOSCB + NBROWS_PACKET + 1 ),
237 CALL DMUMPS_ASS_ROOT( NBROWS_PACKET, NSUBSET_COL_EFF,
239 & IW( IWPOSCB + NBROWS_PACKET + 1 ),
|
| H A D | sfac_process_contrib_type3.F | 61 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
79 & NBROWS_PACKET, 1, MPI_INTEGER,
94 IF (NBROWS_ALREADY_SENT + NBROWS_PACKET .EQ. NSUBSET_ROW
123 IF (NBROWS_ALREADY_SENT + NBROWS_PACKET .EQ.
204 LREQI = NBROWS_PACKET + NSUBSET_COL_EFF
205 LREQA = int(NBROWS_PACKET,8) * int(NSUBSET_COL_EFF,8)
228 CALL SMUMPS_ASS_ROOT( NBROWS_PACKET, NSUBSET_COL_EFF,
230 & IW( IWPOSCB + NBROWS_PACKET + 1 ),
237 CALL SMUMPS_ASS_ROOT( NBROWS_PACKET, NSUBSET_COL_EFF,
239 & IW( IWPOSCB + NBROWS_PACKET + 1 ),
|
| H A D | zfac_process_contrib_type2.F | 72 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
101 & NBROWS_PACKET, 1,
133 LREQI = LROW + NBROWS_PACKET
135 LREQI = NBROWS_PACKET
179 INDCOL = IWPOS + NBROWS_PACKET
190 DO I = 1, NBROWS_PACKET
196 IF ( NBROWS_ALREADY_SENT + NBROWS_PACKET == NBROW ) THEN
221 DO I=1,NBROWS_PACKET
246 & NBROWS_PACKET, STEP, PTRIST,
249 DO I=1,NBROWS_PACKET
[all …]
|
| H A D | cfac_process_contrib_type2.F | 72 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
101 & NBROWS_PACKET, 1,
133 LREQI = LROW + NBROWS_PACKET
135 LREQI = NBROWS_PACKET
179 INDCOL = IWPOS + NBROWS_PACKET
190 DO I = 1, NBROWS_PACKET
196 IF ( NBROWS_ALREADY_SENT + NBROWS_PACKET == NBROW ) THEN
221 DO I=1,NBROWS_PACKET
246 & NBROWS_PACKET, STEP, PTRIST,
249 DO I=1,NBROWS_PACKET
[all …]
|
| H A D | sfac_process_contrib_type2.F | 72 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
101 & NBROWS_PACKET, 1,
133 LREQI = LROW + NBROWS_PACKET
135 LREQI = NBROWS_PACKET
179 INDCOL = IWPOS + NBROWS_PACKET
190 DO I = 1, NBROWS_PACKET
196 IF ( NBROWS_ALREADY_SENT + NBROWS_PACKET == NBROW ) THEN
221 DO I=1,NBROWS_PACKET
246 & NBROWS_PACKET, STEP, PTRIST,
249 DO I=1,NBROWS_PACKET
[all …]
|
| H A D | dfac_process_contrib_type2.F | 72 INTEGER NBROWS_ALREADY_SENT, NBROWS_PACKET local
101 & NBROWS_PACKET, 1,
133 LREQI = LROW + NBROWS_PACKET
135 LREQI = NBROWS_PACKET
179 INDCOL = IWPOS + NBROWS_PACKET
190 DO I = 1, NBROWS_PACKET
196 IF ( NBROWS_ALREADY_SENT + NBROWS_PACKET == NBROW ) THEN
221 DO I=1,NBROWS_PACKET
246 & NBROWS_PACKET, STEP, PTRIST,
249 DO I=1,NBROWS_PACKET
[all …]
|
| H A D | zmumps_comm_buffer.F | 258 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
905 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
906 NBROWS_PACKET = max(NBROWS_PACKET, 0)
925 NBROWS_PACKET = NBROWS_PACKET - 1
1156 NBROWS_PACKET = 0
1191 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1201 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| /dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
| H A D | zmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | dmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | cmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | smumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| /dports/math/coinmumps/MUMPS_4.10.0/src/ |
| H A D | cmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | smumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | zmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | dmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| /dports/math/mumps4/MUMPS_4.10.0/src/ |
| H A D | cmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | zmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | dmumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|
| H A D | smumps_comm_buffer.F | 262 NBROWS_PACKET = 0
287 SIZECB = (NBROWS_ALREADY_SENT*NBROWS_PACKET)+(NBROWS_PACKET
296 NBROWS_PACKET = NBROWS_PACKET - 1
321 NBROWS_PACKET = NBROWS_PACKET - 1
819 NBROWS_PACKET = min(NBROWS_PACKET, NROW - NBROWS_ALREADY_SENT)
820 NBROWS_PACKET = max(NBROWS_PACKET, 0)
839 NBROWS_PACKET = NBROWS_PACKET - 1
1069 NBROWS_PACKET = 0
1104 & NBROWS_PACKET + ( NBROWS_PACKET * ( NBROWS_PACKET + 1) ) / 2
1114 NBROWS_PACKET = NBROWS_PACKET -1
[all …]
|