Actual source code: slepcds.h

  1: !
  2: !  Include file for Fortran use of the DS object in SLEPc
  3: !
  4: !
  5: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  6: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  7: !  Copyright (c) 2002-2012, Universitat Politecnica de Valencia, Spain
  8: !
  9: !  This file is part of SLEPc.
 10: !
 11: !  SLEPc is free software: you can redistribute it and/or modify it under  the
 12: !  terms of version 3 of the GNU Lesser General Public License as published by
 13: !  the Free Software Foundation.
 14: !
 15: !  SLEPc  is  distributed in the hope that it will be useful, but WITHOUT  ANY
 16: !  WARRANTY;  without even the implied warranty of MERCHANTABILITY or  FITNESS
 17: !  FOR  A  PARTICULAR PURPOSE. See the GNU Lesser General Public  License  for
 18: !  more details.
 19: !
 20: !  You  should have received a copy of the GNU Lesser General  Public  License
 21: !  along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
 22: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 23: !
 24:  #include finclude/slepcdsdef.h

 26:       PetscEnum DS_STATE_RAW
 27:       PetscEnum DS_STATE_INTERMEDIATE
 28:       PetscEnum DS_STATE_CONDENSED
 29:       PetscEnum DS_STATE_SORTED
 30: 
 31:       parameter (DS_STATE_RAW                =  0)
 32:       parameter (DS_STATE_INTERMEDIATE       =  1)
 33:       parameter (DS_STATE_CONDENSED          =  2)
 34:       parameter (DS_STATE_SORTED             =  3)

 36:       PetscEnum DS_MAT_A
 37:       PetscEnum DS_MAT_B
 38:       PetscEnum DS_MAT_C
 39:       PetscEnum DS_MAT_Q
 40:       PetscEnum DS_MAT_X
 41:       PetscEnum DS_MAT_Y
 42:       PetscEnum DS_MAT_U
 43:       PetscEnum DS_MAT_VT

 45:       parameter (DS_MAT_A                    =  0)
 46:       parameter (DS_MAT_B                    =  1)
 47:       parameter (DS_MAT_C                    =  2)
 48:       parameter (DS_MAT_Q                    =  3)
 49:       parameter (DS_MAT_X                    =  4)
 50:       parameter (DS_MAT_Y                    =  5)
 51:       parameter (DS_MAT_U                    =  6)
 52:       parameter (DS_MAT_VT                   =  7)

 54: !
 55: !  End of Fortran include file for the DS package in SLEPc
 56: !