Actual source code: slepcfn.h90

slepc-3.13.2 2020-05-12
Report Typos and Errors
  1: !
  2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
  4: !  Copyright (c) 2002-2020, 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:           PetscErrorCode z
 17:         end subroutine
 18:         subroutine FNRationalSetNumerator1(a,b,c,z)
 19:           use slepcfndef
 20:           FN a
 21:           PetscInt b
 22:           PetscScalar c(*)
 23:           PetscErrorCode 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:           PetscErrorCode z
 34:         end subroutine
 35:         subroutine FNRationalSetDenominator1(a,b,c,z)
 36:           use slepcfndef
 37:           FN a
 38:           PetscInt b
 39:           PetscScalar c(*)
 40:           PetscErrorCode z
 41:         end subroutine
 42:       end interface FNRationalSetDenominator

 44:       interface FNRationalGetNumerator
 45:         subroutine FNRationalGetNumerator0(a,b,c,z)
 46:           use slepcfndef
 47:           FN a
 48:           PetscInt b
 49:           PetscScalar c(*)
 50:           PetscErrorCode z
 51:         end subroutine
 52:         subroutine FNRationalGetNumerator1(a,b,c,z)
 53:           use slepcfndef
 54:           FN a
 55:           PetscInt b(*)
 56:           PetscScalar c(*)
 57:           PetscErrorCode z
 58:         end subroutine
 59:       end interface FNRationalGetNumerator

 61:       interface FNRationalGetDenominator
 62:         subroutine FNRationalGetDenominator0(a,b,c,z)
 63:           use slepcfndef
 64:           FN a
 65:           PetscInt b
 66:           PetscScalar c(*)
 67:           PetscErrorCode z
 68:         end subroutine
 69:         subroutine FNRationalGetDenominator1(a,b,c,z)
 70:           use slepcfndef
 71:           FN a
 72:           PetscInt b(*)
 73:           PetscScalar c(*)
 74:           PetscErrorCode z
 75:         end subroutine
 76:       end interface FNRationalGetDenominator