1: ! 2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations 4: ! Copyright (c) 2002-2019, 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 PETSC_FORTRAN_TYPE_INITIALIZE 16: end type tDS 18: DS, parameter :: SLEPC_NULL_DS = tDS(0) 20: PetscEnum DS_STATE_RAW 21: PetscEnum DS_STATE_INTERMEDIATE 22: PetscEnum DS_STATE_CONDENSED 23: PetscEnum DS_STATE_TRUNCATED 25: parameter (DS_STATE_RAW = 0) 26: parameter (DS_STATE_INTERMEDIATE = 1) 27: parameter (DS_STATE_CONDENSED = 2) 28: parameter (DS_STATE_TRUNCATED = 3) 30: PetscEnum DS_MAT_A 31: PetscEnum DS_MAT_B 32: PetscEnum DS_MAT_C 33: PetscEnum DS_MAT_T 34: PetscEnum DS_MAT_D 35: PetscEnum DS_MAT_F 36: PetscEnum DS_MAT_Q 37: PetscEnum DS_MAT_Z 38: PetscEnum DS_MAT_X 39: PetscEnum DS_MAT_Y 40: PetscEnum DS_MAT_U 41: PetscEnum DS_MAT_VT 42: PetscEnum DS_MAT_W 43: PetscEnum DS_MAT_E0 44: PetscEnum DS_MAT_E1 45: PetscEnum DS_MAT_E2 46: PetscEnum DS_MAT_E3 47: PetscEnum DS_MAT_E4 48: PetscEnum DS_MAT_E5 49: PetscEnum DS_MAT_E6 50: PetscEnum DS_MAT_E7 51: PetscEnum DS_MAT_E8 52: PetscEnum DS_MAT_E9 53: PetscEnum DS_NUM_MAT 55: parameter (DS_MAT_A = 0) 56: parameter (DS_MAT_B = 1) 57: parameter (DS_MAT_C = 2) 58: parameter (DS_MAT_T = 3) 59: parameter (DS_MAT_D = 4) 60: parameter (DS_MAT_F = 5) 61: parameter (DS_MAT_Q = 6) 62: parameter (DS_MAT_Z = 7) 63: parameter (DS_MAT_X = 8) 64: parameter (DS_MAT_Y = 9) 65: parameter (DS_MAT_U = 10) 66: parameter (DS_MAT_VT = 11) 67: parameter (DS_MAT_W = 12) 68: parameter (DS_MAT_E0 = 13) 69: parameter (DS_MAT_E1 = 14) 70: parameter (DS_MAT_E2 = 15) 71: parameter (DS_MAT_E3 = 16) 72: parameter (DS_MAT_E4 = 17) 73: parameter (DS_MAT_E5 = 18) 74: parameter (DS_MAT_E6 = 19) 75: parameter (DS_MAT_E7 = 20) 76: parameter (DS_MAT_E8 = 21) 77: parameter (DS_MAT_E9 = 22) 78: parameter (DS_NUM_MAT = 23) 80: PetscEnum DS_PARALLEL_REDUNDANT 81: PetscEnum DS_PARALLEL_SYNCHRONIZED 83: parameter (DS_PARALLEL_REDUNDANT = 0) 84: parameter (DS_PARALLEL_SYNCHRONIZED = 1) 86: ! 87: ! End of Fortran include file for the DS package in SLEPc 88: !