Actual source code: slepcfn.h90

slepc-3.11.2 2019-07-30
Report Typos and Errors
  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:       interface FNRationalSetNumerator
 11:         subroutine FNRationalSetNumerator0(a,b,c,z)
 12:           use slepcfndef
 13:           FN a
 14:           PetscInt b
 15:           PetscScalar c
 16:           integer z
 17:         end subroutine
 18:         subroutine FNRationalSetNumerator1(a,b,c,z)
 19:           use slepcfndef
 20:           FN a
 21:           PetscInt b
 22:           PetscScalar c(*)
 23:           integer z
 24:         end subroutine
 25:       end interface FNRationalSetNumerator

 27:       interface FNRationalSetDenominator
 28:         subroutine FNRationalSetDenominator0(a,b,c,z)
 29:           use slepcfndef
 30:           FN a
 31:           PetscInt b
 32:           PetscScalar c
 33:           integer z
 34:         end subroutine
 35:         subroutine FNRationalSetDenominator1(a,b,c,z)
 36:           use slepcfndef
 37:           FN a
 38:           PetscInt b
 39:           PetscScalar c(*)
 40:           integer z
 41:         end subroutine
 42:       end interface FNRationalSetDenominator

 44:       interface FNRationalGetNumerator
 45:         subroutine FNRationalGetNumerator00(a,b,c,z)
 46:           use slepcfndef
 47:           FN a
 48:           PetscInt b
 49:           PetscScalar c
 50:           integer z
 51:         end subroutine
 52:         subroutine FNRationalGetNumerator10(a,b,c,z)
 53:           use slepcfndef
 54:           FN a
 55:           PetscInt b(*)
 56:           PetscScalar c
 57:           integer z
 58:         end subroutine
 59:         subroutine FNRationalGetNumerator01(a,b,c,z)
 60:           use slepcfndef
 61:           FN a
 62:           PetscInt b
 63:           PetscScalar c(*)
 64:           integer z
 65:         end subroutine
 66:         subroutine FNRationalGetNumerator11(a,b,c,z)
 67:           use slepcfndef
 68:           FN a
 69:           PetscInt b(*)
 70:           PetscScalar c(*)
 71:           integer z
 72:         end subroutine
 73:       end interface FNRationalGetNumerator

 75:       interface FNRationalGetDenominator
 76:         subroutine FNRationalGetDenominator00(a,b,c,z)
 77:           use slepcfndef
 78:           FN a
 79:           PetscInt b
 80:           PetscScalar c
 81:           integer z
 82:         end subroutine
 83:         subroutine FNRationalGetDenominator10(a,b,c,z)
 84:           use slepcfndef
 85:           FN a
 86:           PetscInt b(*)
 87:           PetscScalar c
 88:           integer z
 89:         end subroutine
 90:         subroutine FNRationalGetDenominator01(a,b,c,z)
 91:           use slepcfndef
 92:           FN a
 93:           PetscInt b
 94:           PetscScalar c(*)
 95:           integer z
 96:         end subroutine
 97:         subroutine FNRationalGetDenominator11(a,b,c,z)
 98:           use slepcfndef
 99:           FN a
100:           PetscInt b(*)
101:           PetscScalar c(*)
102:           integer z
103:         end subroutine
104:       end interface FNRationalGetDenominator