1: ! 2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 4: ! Copyright (c) 2002-2018, Universitat Politecnica de Valencia, Spain 5: ! 6: ! This file is part of SLEPc. 7: ! SLEPc is distributed under a 2-clause BSD license (see LICENSE). 8: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 9: ! 10: ! Include file for Fortran use of the DS object in SLEPc 11: ! 12: #include "slepc/finclude/slepcds.h" 14: type tDS 15: PetscFortranAddr:: v 16: end type tDS 18: PetscEnum DS_STATE_RAW 19: PetscEnum DS_STATE_INTERMEDIATE 20: PetscEnum DS_STATE_CONDENSED 21: PetscEnum DS_STATE_TRUNCATED 23: parameter (DS_STATE_RAW = 0) 24: parameter (DS_STATE_INTERMEDIATE = 1) 25: parameter (DS_STATE_CONDENSED = 2) 26: parameter (DS_STATE_TRUNCATED = 3) 28: PetscEnum DS_MAT_A 29: PetscEnum DS_MAT_B 30: PetscEnum DS_MAT_C 31: PetscEnum DS_MAT_T 32: PetscEnum DS_MAT_D 33: PetscEnum DS_MAT_F 34: PetscEnum DS_MAT_Q 35: PetscEnum DS_MAT_Z 36: PetscEnum DS_MAT_X 37: PetscEnum DS_MAT_Y 38: PetscEnum DS_MAT_U 39: PetscEnum DS_MAT_VT 40: PetscEnum DS_MAT_W 41: PetscEnum DS_MAT_E0 42: PetscEnum DS_MAT_E1 43: PetscEnum DS_MAT_E2 44: PetscEnum DS_MAT_E3 45: PetscEnum DS_MAT_E4 46: PetscEnum DS_MAT_E5 47: PetscEnum DS_MAT_E6 48: PetscEnum DS_MAT_E7 49: PetscEnum DS_MAT_E8 50: PetscEnum DS_MAT_E9 51: PetscEnum DS_NUM_MAT 53: parameter (DS_MAT_A = 0) 54: parameter (DS_MAT_B = 1) 55: parameter (DS_MAT_C = 2) 56: parameter (DS_MAT_T = 3) 57: parameter (DS_MAT_D = 4) 58: parameter (DS_MAT_F = 5) 59: parameter (DS_MAT_Q = 6) 60: parameter (DS_MAT_Z = 7) 61: parameter (DS_MAT_X = 8) 62: parameter (DS_MAT_Y = 9) 63: parameter (DS_MAT_U = 10) 64: parameter (DS_MAT_VT = 11) 65: parameter (DS_MAT_W = 12) 66: parameter (DS_MAT_E0 = 13) 67: parameter (DS_MAT_E1 = 14) 68: parameter (DS_MAT_E2 = 15) 69: parameter (DS_MAT_E3 = 16) 70: parameter (DS_MAT_E4 = 17) 71: parameter (DS_MAT_E5 = 18) 72: parameter (DS_MAT_E6 = 19) 73: parameter (DS_MAT_E7 = 20) 74: parameter (DS_MAT_E8 = 21) 75: parameter (DS_MAT_E9 = 22) 76: parameter (DS_NUM_MAT = 23) 78: PetscEnum DS_PARALLEL_REDUNDANT 79: PetscEnum DS_PARALLEL_SYNCHRONIZED 81: parameter (DS_PARALLEL_REDUNDANT = 0) 82: parameter (DS_PARALLEL_SYNCHRONIZED = 1) 84: ! 85: ! End of Fortran include file for the DS package in SLEPc 86: !