Actual source code: petscmat.h

petsc-3.5.4 2015-05-23
Report Typos and Errors
  1: !
  2: !
  3: !  Include file for Fortran use of the Mat package in PETSc
  4: !
 5:  #include finclude/petscmatdef.h

  7: !
  8: !  Flag for matrix assembly
  9: !
 10:       PetscEnum MAT_FLUSH_ASSEMBLY
 11:       PetscEnum MAT_FINAL_ASSEMBLY

 13:       parameter(MAT_FLUSH_ASSEMBLY=1,MAT_FINAL_ASSEMBLY=0)
 14: !
 15: !
 16: !
 17:       PetscEnum MAT_FACTOR_NONE
 18:       PetscEnum MAT_FACTOR_LU
 19:       PetscEnum MAT_FACTOR_CHOLESKY
 20:       PetscEnum MAT_FACTOR_ILU
 21:       PetscEnum MAT_FACTOR_ICC

 23:       parameter(MAT_FACTOR_NONE=0,MAT_FACTOR_LU=1)
 24:       parameter(MAT_FACTOR_CHOLESKY=2,MAT_FACTOR_ILU=3)
 25:       parameter(MAT_FACTOR_ICC=4)

 27: ! MatGetSubMatrixOption
 28:       PetscEnum MAT_DO_NOT_GET_VALUES
 29:       PetscEnum MAT_GET_VALUES
 30:       parameter(MAT_DO_NOT_GET_VALUES=0,MAT_GET_VALUES=1)

 32: !
 33: !  Matrix options; must match those in include/petscmat.h
 34: !
 35:       PetscEnum MAT_OPTION_MIN
 36:       PetscEnum MAT_ROW_ORIENTED
 37:       PetscEnum MAT_NEW_NONZERO_LOCATIONS
 38:       PetscEnum MAT_SYMMETRIC
 39:       PetscEnum MAT_STRUCTURALLY_SYMMETRIC
 40:       PetscEnum MAT_NEW_DIAGONALS
 41:       PetscEnum MAT_IGNORE_OFF_PROC_ENTRIES
 42:       PetscEnum MAT_NEW_NONZERO_LOCATION_ERR
 43:       PetscEnum MAT_NEW_NONZERO_ALLOCATION_ERR
 44:       PetscEnum MAT_USE_HASH_TABLE
 45:       PetscEnum MAT_KEEP_NONZERO_PATTERN
 46:       PetscEnum MAT_IGNORE_ZERO_ENTRIES
 47:       PetscEnum MAT_USE_INODES
 48:       PetscEnum MAT_HERMITIAN
 49:       PetscEnum MAT_SYMMETRY_ETERNAL
 50:       PetscEnum MAT_DUMMY
 51:       PetscEnum MAT_IGNORE_LOWER_TRIANGULAR
 52:       PetscEnum MAT_ERROR_LOWER_TRIANGULAR
 53:       PetscEnum MAT_GETROW_UPPERTRIANGULAR
 54:       PetscEnum MAT_UNUSED_NONZERO_LOCATION_ERR
 55:       PetscEnum MAT_SPD
 56:       PetscEnum MAT_NO_OFF_PROC_ENTRIES
 57:       PetscEnum MAT_NO_OFF_PROC_ZERO_ROWS
 58:       PetscEnum MAT_DIAGBLOCK_CSR
 59:       PetscEnum MAT_OFFDIAGBLOCK_CSR
 60:       PetscEnum MAT_CSR
 61:       PetscEnum MAT_DIAGBLOCK_DIA
 62:       PetscEnum MAT_OFFDIAGBLOCK_DIA
 63:       PetscEnum MAT_DIA
 64:       PetscEnum MAT_DIAGBLOCK_ELL
 65:       PetscEnum MAT_OFFDIAGBLOCK_ELL
 66:       PetscEnum MAT_ELL
 67:       PetscEnum MAT_DIAGBLOCK_HYB
 68:       PetscEnum MAT_OFFDIAGBLOCK_HYB
 69:       PetscEnum MAT_HYB
 70:       PetscEnum MAT_OPTION_MAX

 72:       parameter (MAT_OPTION_MIN=-5)
 73:       parameter (MAT_NEW_NONZERO_LOCATION_ERR=-4)
 74:       parameter (MAT_UNUSED_NONZERO_LOCATION_ERR=-3)
 75:       parameter (MAT_NEW_NONZERO_ALLOCATION_ERR=-2)
 76:       parameter (MAT_ROW_ORIENTED=-1)
 77:       parameter (MAT_SYMMETRIC=1)
 78:       parameter (MAT_STRUCTURALLY_SYMMETRIC=2)
 79:       parameter (MAT_NEW_DIAGONALS=3)
 80:       parameter (MAT_IGNORE_OFF_PROC_ENTRIES=4)
 81:       parameter (MAT_USE_HASH_TABLE=5)
 82:       parameter (MAT_KEEP_NONZERO_PATTERN=6)
 83:       parameter (MAT_IGNORE_ZERO_ENTRIES=7)
 84:       parameter (MAT_USE_INODES=8)
 85:       parameter (MAT_HERMITIAN=9)
 86:       parameter (MAT_SYMMETRY_ETERNAL=10)
 87:       parameter (MAT_DUMMY=11)
 88:       parameter (MAT_IGNORE_LOWER_TRIANGULAR=12)
 89:       parameter (MAT_ERROR_LOWER_TRIANGULAR=13)
 90:       parameter (MAT_GETROW_UPPERTRIANGULAR=14)
 91:       parameter (MAT_SPD=15)
 92:       parameter (MAT_NO_OFF_PROC_ZERO_ROWS=16)
 93:       parameter (MAT_NO_OFF_PROC_ENTRIES=17)
 94:       parameter (MAT_NEW_NONZERO_LOCATIONS=18)
 95:       parameter (MAT_OPTION_MAX=19)
 96: !
 97: !  MatFactorShiftType
 98: !
 99:       PetscEnum MAT_SHIFT_NONE
100:       PetscEnum MAT_SHIFT_NONZERO
101:       PetscEnum MAT_SHIFT_POSITIVE_DEFINITE
102:       PetscEnum MAT_SHIFT_INBLOCKS
103:       parameter (MAT_SHIFT_NONE=0)
104:       parameter (MAT_SHIFT_NONZERO=1)
105:       parameter (MAT_SHIFT_POSITIVE_DEFINITE=2)
106:       parameter (MAT_SHIFT_INBLOCKS=3)

108: !
109: !  MatDuplicateOption
110: !
111:       PetscEnum MAT_DO_NOT_COPY_VALUES
112:       PetscEnum MAT_COPY_VALUES
113:       PetscEnum MAT_SHARE_NONZERO_PATTERN
114:       parameter (MAT_DO_NOT_COPY_VALUES=0,MAT_COPY_VALUES=1)
115:       parameter (MAT_SHARE_NONZERO_PATTERN=2)
116: !
117: !  Flags for MatCopy, MatAXPY
118: !
119:       PetscEnum DIFFERENT_NONZERO_PATTERN
120:       PetscEnum SUBSET_NONZERO_PATTERN
121:       PetscEnum SAME_NONZERO_PATTERN

123:       parameter (DIFFERENT_NONZERO_PATTERN = 0,SUBSET_NONZERO_PATTERN=1)
124:       parameter (SAME_NONZERO_PATTERN = 2)

126: #if !(PETSC_USE_FORTRAN_DATATYPES_)
127:  #include finclude/petscmatinfosize.h
128: #endif

130:       PetscEnum MAT_INFO_BLOCK_SIZE
131:       PetscEnum MAT_INFO_NZ_ALLOCATED
132:       PetscEnum MAT_INFO_NZ_USED
133:       PetscEnum MAT_INFO_NZ_UNNEEDED
134:       PetscEnum MAT_INFO_MEMORY
135:       PetscEnum MAT_INFO_ASSEMBLIES
136:       PetscEnum MAT_INFO_MALLOCS
137:       PetscEnum MAT_INFO_FILL_RATIO_GIVEN
138:       PetscEnum MAT_INFO_FILL_RATIO_NEEDED
139:       PetscEnum MAT_INFO_FACTOR_MALLOCS

141:       parameter (MAT_INFO_BLOCK_SIZE=1,MAT_INFO_NZ_ALLOCATED=2)
142:       parameter (MAT_INFO_NZ_USED=3,MAT_INFO_NZ_UNNEEDED=4)
143:       parameter (MAT_INFO_MEMORY=5,MAT_INFO_ASSEMBLIES=6)
144:       parameter (MAT_INFO_MALLOCS=7,MAT_INFO_FILL_RATIO_GIVEN=8)
145:       parameter (MAT_INFO_FILL_RATIO_NEEDED=9)
146:       parameter (MAT_INFO_FACTOR_MALLOCS=10)
147: !
148: !  MatReuse
149: !
150:       PetscEnum MAT_INITIAL_MATRIX
151:       PetscEnum MAT_REUSE_MATRIX
152:       PetscEnum MAT_IGNORE_MATRIX

154:       parameter (MAT_INITIAL_MATRIX=0)
155:       parameter (MAT_REUSE_MATRIX=1)
156:       parameter (MAT_IGNORE_MATRIX=2)

158: !
159: !  MatInfoType
160: !
161:       PetscEnum MAT_LOCAL
162:       PetscEnum MAT_GLOBAL_MAX
163:       PetscEnum MAT_GLOBAL_SUM

165:       parameter (MAT_LOCAL=1,MAT_GLOBAL_MAX=2,MAT_GLOBAL_SUM=3)

167: !
168: !  MatCompositeType
169: !
170:       PetscEnum MAT_COMPOSITE_ADDITIVE
171:       PetscEnum MAT_COMPOSITE_MULTIPLICATIVE

173:       parameter (MAT_COMPOSITE_ADDITIVE = 0)
174:       parameter (MAT_COMPOSITE_MULTIPLICATIVE = 1)
175: #if !(PETSC_USE_FORTRAN_DATATYPES_)
176:  #include finclude/petscmatfactorinfosize.h
177: #endif
178:       PetscEnum MAT_FACTORINFO_LEVELS
179:       PetscEnum MAT_FACTORINFO_FILL
180:       PetscEnum MAT_FACTORINFO_DIAGONAL_FILL
181:       PetscEnum MAT_FACTORINFO_DT
182:       PetscEnum MAT_FACTORINFO_DTCOL
183:       PetscEnum MAT_FACTORINFO_DTCOUNT
184:       PetscEnum MAT_FACTORINFO_DAMPING
185:       PetscEnum MAT_FACTORINFO_SHIFT
186:       PetscEnum MAT_FACTORINFO_ZERO_PIVOT
187:       PetscEnum MAT_FACTORINFO_PIVOT_IN_BLOCKS

189:       parameter (MAT_FACTORINFO_DAMPING = 1)
190:       parameter (MAT_FACTORINFO_SHIFT = 2)
191:       parameter (MAT_FACTORINFO_DIAGONAL_FILL = 3)
192:       parameter (MAT_FACTORINFO_DT = 4)
193:       parameter (MAT_FACTORINFO_DTCOL = 5)
194:       parameter (MAT_FACTORINFO_DTCOUNT = 6)
195:       parameter (MAT_FACTORINFO_LEVELS = 7)
196:       parameter (MAT_FACTORINFO_FILL = 8)
197:       parameter (MAT_FACTORINFO_PIVOT_IN_BLOCKS = 9)
198:       parameter (MAT_FACTORINFO_ZERO_PIVOT = 10)


201: !
202: !  Options for SOR and SSOR
203: !  MatSorType may be bitwise ORd together, so do not change the numbers
204: !
205:       PetscEnum SOR_FORWARD_SWEEP
206:       PetscEnum SOR_BACKWARD_SWEEP
207:       PetscEnum SOR_SYMMETRIC_SWEEP
208:       PetscEnum SOR_LOCAL_FORWARD_SWEEP
209:       PetscEnum SOR_LOCAL_BACKWARD_SWEEP
210:       PetscEnum SOR_LOCAL_SYMMETRIC_SWEEP
211:       PetscEnum SOR_ZERO_INITIAL_GUESS
212:       PetscEnum SOR_EISENSTAT
213:       PetscEnum SOR_APPLY_UPPER
214:       PetscEnum SOR_APPLY_LOWER

216:       parameter (SOR_FORWARD_SWEEP=1,SOR_BACKWARD_SWEEP=2)
217:       parameter (SOR_SYMMETRIC_SWEEP=3,SOR_LOCAL_FORWARD_SWEEP=4)
218:       parameter (SOR_LOCAL_BACKWARD_SWEEP=8)
219:       parameter (SOR_LOCAL_SYMMETRIC_SWEEP=12)
220:       parameter (SOR_ZERO_INITIAL_GUESS=16,SOR_EISENSTAT=32)
221:       parameter (SOR_APPLY_UPPER=64,SOR_APPLY_LOWER=128)
222: !
223: !  MatOperation
224: !
225:       PetscEnum MATOP_SET_VALUES
226:       PetscEnum MATOP_GET_ROW
227:       PetscEnum MATOP_RESTORE_ROW
228:       PetscEnum MATOP_MULT
229:       PetscEnum MATOP_MULT_ADD
230:       PetscEnum MATOP_MULT_TRANSPOSE
231:       PetscEnum MATOP_MULT_TRANSPOSE_ADD
232:       PetscEnum MATOP_SOLVE
233:       PetscEnum MATOP_SOLVE_ADD
234:       PetscEnum MATOP_SOLVE_TRANSPOSE
235:       PetscEnum MATOP_SOLVE_TRANSPOSE_ADD
236:       PetscEnum MATOP_LUFACTOR
237:       PetscEnum MATOP_CHOLESKYFACTOR
238:       PetscEnum MATOP_SOR
239:       PetscEnum MATOP_TRANSPOSE
240:       PetscEnum MATOP_GETINFO
241:       PetscEnum MATOP_EQUAL
242:       PetscEnum MATOP_GET_DIAGONAL
243:       PetscEnum MATOP_DIAGONAL_SCALE
244:       PetscEnum MATOP_NORM
245:       PetscEnum MATOP_ASSEMBLY_BEGIN
246:       PetscEnum MATOP_ASSEMBLY_END
247:       PetscEnum MATOP_SET_OPTION
248:       PetscEnum MATOP_ZERO_ENTRIES
249:       PetscEnum MATOP_ZERO_ROWS
250:       PetscEnum MATOP_LUFACTOR_SYMBOLIC
251:       PetscEnum MATOP_LUFACTOR_NUMERIC
252:       PetscEnum MATOP_CHOLESKY_FACTOR_SYMBOLIC
253:       PetscEnum MATOP_CHOLESKY_FACTOR_NUMERIC
254:       PetscEnum MATOP_SETUP_PREALLOCATION
255:       PetscEnum MATOP_ILUFACTOR_SYMBOLIC
256:       PetscEnum MATOP_ICCFACTOR_SYMBOLIC
257: !     PetscEnum MATOP_PLACEHOLDER_32
258: !     PetscEnum MATOP_PLACEHOLDER_33
259:       PetscEnum MATOP_DUPLICATE
260:       PetscEnum MATOP_FORWARD_SOLVE
261:       PetscEnum MATOP_BACKWARD_SOLVE
262:       PetscEnum MATOP_ILUFACTOR
263:       PetscEnum MATOP_ICCFACTOR
264:       PetscEnum MATOP_AXPY
265:       PetscEnum MATOP_GET_SUBMATRICES
266:       PetscEnum MATOP_INCREASE_OVERLAP
267:       PetscEnum MATOP_GET_VALUES
268:       PetscEnum MATOP_COPY
269:       PetscEnum MATOP_GET_ROW_MAX
270:       PetscEnum MATOP_SCALE
271:       PetscEnum MATOP_SHIFT
272:       PetscEnum MATOP_DIAGONAL_SET
273:       PetscEnum MATOP_ZERO_ROWS_COLUMNS
274:       PetscEnum MATOP_SET_RANDOM
275:       PetscEnum MATOP_GET_ROW_IJ
276:       PetscEnum MATOP_RESTORE_ROW_IJ
277:       PetscEnum MATOP_GET_COLUMN_IJ
278:       PetscEnum MATOP_RESTORE_COLUMN_IJ
279:       PetscEnum MATOP_FDCOLORING_CREATE
280:       PetscEnum MATOP_COLORING_PATCH
281:       PetscEnum MATOP_SET_UNFACTORED
282:       PetscEnum MATOP_PERMUTE
283:       PetscEnum MATOP_SET_VALUES_BLOCKED
284:       PetscEnum MATOP_GET_SUBMATRIX
285:       PetscEnum MATOP_DESTROY
286:       PetscEnum MATOP_VIEW
287:       PetscEnum MATOP_CONVERT_FROM
288:       PetscEnum MATOP_MATMAT_MULT
289:       PetscEnum MATOP_MATMAT_MULT_SYMBOLIC
290:       PetscEnum MATOP_MATMAT_MULT_NUMERIC
291:       PetscEnum MATOP_SET_LOCAL_TO_GLOBAL_MAP
292:       PetscEnum MATOP_SET_VALUES_LOCAL
293:       PetscEnum MATOP_ZERO_ROWS_LOCAL
294:       PetscEnum MATOP_GET_ROW_MAX_ABS
295:       PetscEnum MATOP_GET_ROW_MIN_ABS
296:       PetscEnum MATOP_CONVERT
297:       PetscEnum MATOP_SET_COLORING
298: !     PetscEnum MATOP_PLACEHOLDER_73
299:       PetscEnum MATOP_SET_VALUES_ADIFOR
300:       PetscEnum MATOP_FD_COLORING_APPLY
301:       PetscEnum MATOP_SET_FROM_OPTIONS
302:       PetscEnum MATOP_MULT_CONSTRAINED
303:       PetscEnum MATOP_MULT_TRANSPOSE_CONSTRAIN
304:       PetscEnum MATOP_FIND_ZERO_DIAGONALS
305:       PetscEnum MATOP_MULT_MULTIPLE
306:       PetscEnum MATOP_SOLVE_MULTIPLE
307:       PetscEnum MATOP_GET_INERTIA
308:       PetscEnum MATOP_LOAD
309:       PetscEnum MATOP_IS_SYMMETRIC
310:       PetscEnum MATOP_IS_HERMITIAN
311:       PetscEnum MATOP_IS_STRUCTURALLY_SYMMETRIC
312:       PetscEnum MATOP_SET_VALUES_BLOCKEDLOCAL
313:       PetscEnum MATOP_GET_VECS
314:       PetscEnum MATOP_MAT_MULT
315:       PetscEnum MATOP_MAT_MULT_SYMBOLIC
316:       PetscEnum MATOP_MAT_MULT_NUMERIC
317:       PetscEnum MATOP_PTAP
318:       PetscEnum MATOP_PTAP_SYMBOLIC
319:       PetscEnum MATOP_PTAP_NUMERIC
320:       PetscEnum MATOP_MAT_TRANSPOSE_MULT
321:       PetscEnum MATOP_MAT_TRANSPOSE_MULT_SYMBO
322:       PetscEnum MATOP_MAT_TRANSPOSE_MULT_NUMER
323: !     PetscEnum MATOP_PLACEHOLDER_98
324: !     PetscEnum MATOP_PLACEHOLDER_99
325: !     PetscEnum MATOP_PLACEHOLDER_100
326: !     PetscEnum MATOP_PLACEHOLDER_101
327:       PetscEnum MATOP_CONJUGATE
328: !     PetscEnum MATOP_PLACEHOLDER_103
329:       PetscEnum MATOP_SET_VALUES_ROW
330:       PetscEnum MATOP_REAL_PART
331:       PetscEnum MATOP_IMAGINARY_PART
332:       PetscEnum MATOP_GET_ROW_UPPER_TRIANGULAR
333:       PetscEnum MATOP_RESTORE_ROW_UPPER_TRIANG
334:       PetscEnum MATOP_MAT_SOLVE
335:       PetscEnum MATOP_GET_REDUNDANT_MATRIX
336:       PetscEnum MATOP_GET_ROW_MIN
337:       PetscEnum MATOP_GET_COLUMN_VECTOR
338:       PetscEnum MATOP_MISSING_DIAGONAL
339:       PetscEnum MATOP_GET_SEQ_NONZERO_STRUCTUR
340:       PetscEnum MATOP_CREATE
341:       PetscEnum MATOP_GET_GHOSTS
342:       PetscEnum MATOP_GET_LOCAL_SUB_MATRIX
343:       PetscEnum MATOP_RESTORE_LOCALSUB_MATRIX
344:       PetscEnum MATOP_MULT_DIAGONAL_BLOCK
345:       PetscEnum MATOP_HERMITIAN_TRANSPOSE
346:       PetscEnum MATOP_MULT_HERMITIAN_TRANSPOSE
347:       PetscEnum MATOP_MULT_HERMITIAN_TRANS_ADD
348:       PetscEnum MATOP_GET_MULTI_PROC_BLOCK
349:       PetscEnum MATOP_FIND_NONZERO_ROWS
350:       PetscEnum MATOP_GET_COLUMN_NORMS
351:       PetscEnum MATOP_INVERT_BLOCK_DIAGONAL
352: !     PetscEnum MATOP_PLACEHOLDER_127
353:       PetscEnum MATOP_GET_SUB_MATRICES_PARALLE
354:       PetscEnum MATOP_SET_VALUES_BATCH
355:       PetscEnum MATOP_TRANSPOSE_MAT_MULT
356:       PetscEnum MATOP_TRANSPOSE_MAT_MULT_SYMBO
357:       PetscEnum MATOP_TRANSPOSE_MAT_MULT_NUMER
358:       PetscEnum MATOP_TRANSPOSE_COLORING_CREAT
359:       PetscEnum MATOP_TRANS_COLORING_APPLY_SPT
360:       PetscEnum MATOP_TRANS_COLORING_APPLY_DEN
361:       PetscEnum MATOP_RART
362:       PetscEnum MATOP_RART_SYMBOLIC
363:       PetscEnum MATOP_RART_NUMERIC
364:       PetscEnum MATOP_SET_BLOCK_SIZES
365:       PetscEnum MATOP_AYPX
366:       PetscEnum MATOP_RESIDUAL
367:       PetscEnum MATOP_FDCOLORING_SETUP

369:       parameter(MATOP_SET_VALUES=0)
370:       parameter(MATOP_GET_ROW=1)
371:       parameter(MATOP_RESTORE_ROW=2)
372:       parameter(MATOP_MULT=3)
373:       parameter(MATOP_MULT_ADD=4)
374:       parameter(MATOP_MULT_TRANSPOSE=5)
375:       parameter(MATOP_MULT_TRANSPOSE_ADD=6)
376:       parameter(MATOP_SOLVE=7)
377:       parameter(MATOP_SOLVE_ADD=8)
378:       parameter(MATOP_SOLVE_TRANSPOSE=9)
379:       parameter(MATOP_SOLVE_TRANSPOSE_ADD=10)
380:       parameter(MATOP_LUFACTOR=11)
381:       parameter(MATOP_CHOLESKYFACTOR=12)
382:       parameter(MATOP_SOR=13)
383:       parameter(MATOP_TRANSPOSE=14)
384:       parameter(MATOP_GETINFO=15)
385:       parameter(MATOP_EQUAL=16)
386:       parameter(MATOP_GET_DIAGONAL=17)
387:       parameter(MATOP_DIAGONAL_SCALE=18)
388:       parameter(MATOP_NORM=19)
389:       parameter(MATOP_ASSEMBLY_BEGIN=20)
390:       parameter(MATOP_ASSEMBLY_END=21)
391:       parameter(MATOP_SET_OPTION=22)
392:       parameter(MATOP_ZERO_ENTRIES=23)
393:       parameter(MATOP_ZERO_ROWS=24)
394:       parameter(MATOP_LUFACTOR_SYMBOLIC=25)
395:       parameter(MATOP_LUFACTOR_NUMERIC=26)
396:       parameter(MATOP_CHOLESKY_FACTOR_SYMBOLIC=27)
397:       parameter(MATOP_CHOLESKY_FACTOR_NUMERIC=28)
398:       parameter(MATOP_SETUP_PREALLOCATION=29)
399:       parameter(MATOP_ILUFACTOR_SYMBOLIC=30)
400:       parameter(MATOP_ICCFACTOR_SYMBOLIC=31)
401: !     parameter(MATOP_PLACEHOLDER_32=32)
402: !     parameter(MATOP_PLACEHOLDER_33=33)
403:       parameter(MATOP_DUPLICATE=34)
404:       parameter(MATOP_FORWARD_SOLVE=35)
405:       parameter(MATOP_BACKWARD_SOLVE=36)
406:       parameter(MATOP_ILUFACTOR=37)
407:       parameter(MATOP_ICCFACTOR=38)
408:       parameter(MATOP_AXPY=39)
409:       parameter(MATOP_GET_SUBMATRICES=40)
410:       parameter(MATOP_INCREASE_OVERLAP=41)
411:       parameter(MATOP_GET_VALUES=42)
412:       parameter(MATOP_COPY=43)
413:       parameter(MATOP_GET_ROW_MAX=44)
414:       parameter(MATOP_SCALE=45)
415:       parameter(MATOP_SHIFT=46)
416:       parameter(MATOP_DIAGONAL_SET=47)
417:       parameter(MATOP_ZERO_ROWS_COLUMNS=48)
418:       parameter(MATOP_SET_RANDOM=49)
419:       parameter(MATOP_GET_ROW_IJ=50)
420:       parameter(MATOP_RESTORE_ROW_IJ=51)
421:       parameter(MATOP_GET_COLUMN_IJ=52)
422:       parameter(MATOP_RESTORE_COLUMN_IJ=53)
423:       parameter(MATOP_FDCOLORING_CREATE=54)
424:       parameter(MATOP_COLORING_PATCH=55)
425:       parameter(MATOP_SET_UNFACTORED=56)
426:       parameter(MATOP_PERMUTE=57)
427:       parameter(MATOP_SET_VALUES_BLOCKED=58)
428:       parameter(MATOP_GET_SUBMATRIX=59)
429:       parameter(MATOP_DESTROY=60)
430:       parameter(MATOP_VIEW=61)
431:       parameter(MATOP_CONVERT_FROM=62)
432:       parameter(MATOP_MATMAT_MULT=63)
433:       parameter(MATOP_MATMAT_MULT_SYMBOLIC=64)
434:       parameter(MATOP_MATMAT_MULT_NUMERIC=65)
435:       parameter(MATOP_SET_LOCAL_TO_GLOBAL_MAP=66)
436:       parameter(MATOP_SET_VALUES_LOCAL=67)
437:       parameter(MATOP_ZERO_ROWS_LOCAL=68)
438:       parameter(MATOP_GET_ROW_MAX_ABS=69)
439:       parameter(MATOP_GET_ROW_MIN_ABS=70)
440:       parameter(MATOP_CONVERT=71)
441:       parameter(MATOP_SET_COLORING=72)
442: !     parameter(MATOP_PLACEHOLDER_73=73)
443:       parameter(MATOP_SET_VALUES_ADIFOR=74)
444:       parameter(MATOP_FD_COLORING_APPLY=75)
445:       parameter(MATOP_SET_FROM_OPTIONS=76)
446:       parameter(MATOP_MULT_CONSTRAINED=77)
447:       parameter(MATOP_MULT_TRANSPOSE_CONSTRAIN=78)
448:       parameter(MATOP_FIND_ZERO_DIAGONALS=79)
449:       parameter(MATOP_MULT_MULTIPLE=80)
450:       parameter(MATOP_SOLVE_MULTIPLE=81)
451:       parameter(MATOP_GET_INERTIA=82)
452:       parameter(MATOP_LOAD=83)
453:       parameter(MATOP_IS_SYMMETRIC=84)
454:       parameter(MATOP_IS_HERMITIAN=85)
455:       parameter(MATOP_IS_STRUCTURALLY_SYMMETRIC=86)
456:       parameter(MATOP_SET_VALUES_BLOCKEDLOCAL=87)
457:       parameter(MATOP_GET_VECS=88)
458:       parameter(MATOP_MAT_MULT=89)
459:       parameter(MATOP_MAT_MULT_SYMBOLIC=90)
460:       parameter(MATOP_MAT_MULT_NUMERIC=91)
461:       parameter(MATOP_PTAP=92)
462:       parameter(MATOP_PTAP_SYMBOLIC=93)
463:       parameter(MATOP_PTAP_NUMERIC=94)
464:       parameter(MATOP_MAT_TRANSPOSE_MULT=95)
465:       parameter(MATOP_MAT_TRANSPOSE_MULT_SYMBO=96)
466:       parameter(MATOP_MAT_TRANSPOSE_MULT_NUMER=97)
467: !     parameter(MATOP_PLACEHOLDER_98=98)
468: !     parameter(MATOP_PLACEHOLDER_99=99)
469: !     parameter(MATOP_PLACEHOLDER_100=100)
470: !     parameter(MATOP_PLACEHOLDER_101=101)
471:       parameter(MATOP_CONJUGATE=102)
472: !     parameter(MATOP_PLACEHOLDER_103=103)
473:       parameter(MATOP_SET_VALUES_ROW=104)
474:       parameter(MATOP_REAL_PART=105)
475:       parameter(MATOP_IMAGINARY_PART=106)
476:       parameter(MATOP_GET_ROW_UPPER_TRIANGULAR=107)
477:       parameter(MATOP_RESTORE_ROW_UPPER_TRIANG=108)
478:       parameter(MATOP_MAT_SOLVE=109)
479:       parameter(MATOP_GET_REDUNDANT_MATRIX=110)
480:       parameter(MATOP_GET_ROW_MIN=111)
481:       parameter(MATOP_GET_COLUMN_VECTOR=112)
482:       parameter(MATOP_MISSING_DIAGONAL=113)
483:       parameter(MATOP_GET_SEQ_NONZERO_STRUCTUR=114)
484:       parameter(MATOP_CREATE=115)
485:       parameter(MATOP_GET_GHOSTS=116)
486:       parameter(MATOP_GET_LOCAL_SUB_MATRIX=117)
487:       parameter(MATOP_RESTORE_LOCALSUB_MATRIX=118)
488:       parameter(MATOP_MULT_DIAGONAL_BLOCK=119)
489:       parameter(MATOP_HERMITIAN_TRANSPOSE=120)
490:       parameter(MATOP_MULT_HERMITIAN_TRANSPOSE=121)
491:       parameter(MATOP_MULT_HERMITIAN_TRANS_ADD=122)
492:       parameter(MATOP_GET_MULTI_PROC_BLOCK=123)
493:       parameter(MATOP_FIND_NONZERO_ROWS=124)
494:       parameter(MATOP_GET_COLUMN_NORMS=125)
495:       parameter(MATOP_INVERT_BLOCK_DIAGONAL=126)
496: !     parameter(MATOP_PLACEHOLDER_127=127)
497:       parameter(MATOP_GET_SUB_MATRICES_PARALLE=128)
498:       parameter(MATOP_SET_VALUES_BATCH=129)
499:       parameter(MATOP_TRANSPOSE_MAT_MULT=130)
500:       parameter(MATOP_TRANSPOSE_MAT_MULT_SYMBO=131)
501:       parameter(MATOP_TRANSPOSE_MAT_MULT_NUMER=132)
502:       parameter(MATOP_TRANSPOSE_COLORING_CREAT=133)
503:       parameter(MATOP_TRANS_COLORING_APPLY_SPT=134)
504:       parameter(MATOP_TRANS_COLORING_APPLY_DEN=135)
505:       parameter(MATOP_RART=136)
506:       parameter(MATOP_RART_SYMBOLIC=137)
507:       parameter(MATOP_RART_NUMERIC=138)
508:       parameter(MATOP_SET_BLOCK_SIZES=139)
509:       parameter(MATOP_AYPX=140)
510:       parameter(MATOP_RESIDUAL=141)
511:       parameter(MATOP_FDCOLORING_SETUP=142)
512: !
513: !
514: !
515:       PetscEnum MATRIX_BINARY_FORMAT_DENSE
516:       parameter (MATRIX_BINARY_FORMAT_DENSE=-1)
517: !
518: ! MPChacoGlobalType
519:       PetscEnum MP_CHACO_MULTILEVEL_KL
520:       PetscEnum MP_CHACO_SPECTRAL
521:       PetscEnum MP_CHACO_LINEAR
522:       PetscEnum MP_CHACO_RANDOM
523:       PetscEnum MP_CHACO_SCATTERED
524:       parameter (MP_CHACO_MULTILEVEL_KL=0,MP_CHACO_SPECTRAL=1)
525:       parameter (MP_CHACO_LINEAR=2,MP_CHACO_RANDOM=3)
526:       parameter (MP_CHACO_SCATTERED=4)
527: !
528: ! MPChacoLocalType
529:       PetscEnum MP_CHACO_KERNIGHAN_LIN
530:       PetscEnum MP_CHACO_NONE
531:       parameter (MP_CHACO_KERNIGHAN_LIN=0, MP_CHACO_NONE=1)
532: !
533: ! MPChacoEigenType
534:       PetscEnum MP_CHACO_LANCZOS
535:       PetscEnum MP_CHACO_RQI_SYMMLQ
536:       parameter (MP_CHACO_LANCZOS=0, MP_CHACO_RQI_SYMMLQ=1)
537: !
538: ! MPPTScotchStrategyType
539:       PetscEnum MP_PTSCOTCH_QUALITY
540:       PetscEnum MP_PTSCOTCH_SPEED
541:       PetscEnum MP_PTSCOTCH_BALANCE
542:       PetscEnum MP_PTSCOTCH_SAFETY
543:       PetscEnum MP_PTSCOTCH_SCALABILITY
544:       parameter (MP_PTSCOTCH_QUALITY = 0)
545:       parameter (MP_PTSCOTCH_SPEED = 1)
546:       parameter (MP_PTSCOTCH_BALANCE = 2)
547:       parameter (MP_PTSCOTCH_SAFETY = 3)
548:       parameter (MP_PTSCOTCH_SCALABILITY = 4)

550: ! PetscScalarPrecision
551:       PetscEnum PETSC_SCALAR_DOUBLE
552:       PetscEnum PETSC_SCALAR_SINGLE
553:       PetscEnum PETSC_SCALAR_LONG_DOUBLE
554:       parameter (PETSC_SCALAR_DOUBLE=0,PETSC_SCALAR_SINGLE=1)
555:       parameter (PETSC_SCALAR_LONG_DOUBLE=2)


558: !
559: !     CUSP enumerated types
560: !
561: #if defined(PETSC_HAVE_CUSP)
562:       PetscEnum MAT_CUSP_CSR
563:       PetscEnum MAT_CUSP_DIA
564:       PetscEnum MAT_CUSP_ELL
565:       parameter(MAT_CUSP_CSR=0,MAT_CUSP_DIA=1)
566:       parameter(MAT_CUSP_ELL=2)
567:       PetscEnum MAT_CUSP_MULT_DIAG
568:       PetscEnum MAT_CUSP_MULT_OFFDIAG
569:       PetscEnum MAT_CUSP_MULT
570:       PetscEnum MAT_CUSP_ALL
571:       parameter(MAT_CUSP_MULT_DIAG=0)
572:       parameter(MAT_CUSP_MULT_OFFDIAG=1)
573:       parameter(MAT_CUSP_MULT=2)
574:       parameter(MAT_CUSP_ALL=3)
575: #endif


578: !
579: !     CUSPARSE enumerated types
580: !
581: #if defined(PETSC_HAVE_CUDA)
582:       PetscEnum MAT_CUSPARSE_CSR
583:       PetscEnum MAT_CUSPARSE_ELL
584:       PetscEnum MAT_CUSPARSE_HYB
585:       parameter(MAT_CUSPARSE_CSR=0,MAT_CUSPARSE_ELL=1)
586:       parameter(MAT_CUSPARSE_HYB=2)
587:       PetscEnum MAT_CUSPARSE_MULT_DIAG
588:       PetscEnum MAT_CUSPARSE_MULT_OFFDIAG
589:       PetscEnum MAT_CUSPARSE_MULT
590:       PetscEnum MAT_CUSPARSE_ALL
591:       parameter(MAT_CUSPARSE_MULT_DIAG=0)
592:       parameter(MAT_CUSPARSE_MULT_OFFDIAG=1)
593:       parameter(MAT_CUSPARSE_MULT=2)
594:       parameter(MAT_CUSPARSE_ALL=3)
595: #endif
596: !
597: !  End of Fortran include file for the Mat package in PETSc
598: !