1: /*
  2:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3:    SLEPc - Scalable Library for Eigenvalue Problem Computations
  4:    Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain

  6:    This file is part of SLEPc.
  7:    SLEPc is distributed under a 2-clause BSD license (see LICENSE).
  8:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  9: */

 11: #include <petsc/private/fortranimpl.h>
 12: #include <slepcrg.h>

 14: #if defined(PETSC_HAVE_FORTRAN_CAPS)
 15: #define rgintervalgetendpoints0000_ RGINTERVALGETENDPOINTS0000
 16: #define rgintervalgetendpoints1000_ RGINTERVALGETENDPOINTS1000
 17: #define rgintervalgetendpoints0100_ RGINTERVALGETENDPOINTS0100
 18: #define rgintervalgetendpoints1100_ RGINTERVALGETENDPOINTS1100
 19: #define rgintervalgetendpoints0010_ RGINTERVALGETENDPOINTS0010
 20: #define rgintervalgetendpoints1010_ RGINTERVALGETENDPOINTS1010
 21: #define rgintervalgetendpoints0110_ RGINTERVALGETENDPOINTS0110
 22: #define rgintervalgetendpoints1110_ RGINTERVALGETENDPOINTS1110
 23: #define rgintervalgetendpoints0001_ RGINTERVALGETENDPOINTS0001
 24: #define rgintervalgetendpoints1001_ RGINTERVALGETENDPOINTS1001
 25: #define rgintervalgetendpoints0101_ RGINTERVALGETENDPOINTS0101
 26: #define rgintervalgetendpoints1101_ RGINTERVALGETENDPOINTS1101
 27: #define rgintervalgetendpoints0011_ RGINTERVALGETENDPOINTS0011
 28: #define rgintervalgetendpoints1011_ RGINTERVALGETENDPOINTS1011
 29: #define rgintervalgetendpoints0111_ RGINTERVALGETENDPOINTS0111
 30: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 31: #define rgintervalgetendpoints0000_ rgintervalgetendpoints0000
 32: #define rgintervalgetendpoints1000_ rgintervalgetendpoints1000
 33: #define rgintervalgetendpoints0100_ rgintervalgetendpoints0100
 34: #define rgintervalgetendpoints1100_ rgintervalgetendpoints1100
 35: #define rgintervalgetendpoints0010_ rgintervalgetendpoints0010
 36: #define rgintervalgetendpoints1010_ rgintervalgetendpoints1010
 37: #define rgintervalgetendpoints0110_ rgintervalgetendpoints0110
 38: #define rgintervalgetendpoints1110_ rgintervalgetendpoints1110
 39: #define rgintervalgetendpoints0001_ rgintervalgetendpoints0001
 40: #define rgintervalgetendpoints1001_ rgintervalgetendpoints1001
 41: #define rgintervalgetendpoints0101_ rgintervalgetendpoints0101
 42: #define rgintervalgetendpoints1101_ rgintervalgetendpoints1101
 43: #define rgintervalgetendpoints0011_ rgintervalgetendpoints0011
 44: #define rgintervalgetendpoints1011_ rgintervalgetendpoints1011
 45: #define rgintervalgetendpoints0111_ rgintervalgetendpoints0111
 46: #endif

 48: SLEPC_EXTERN void rgintervalgetendpoints_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 49: {
 50:   CHKFORTRANNULLREAL(a);
 51:   CHKFORTRANNULLREAL(b);
 52:   CHKFORTRANNULLREAL(c);
 53:   CHKFORTRANNULLREAL(d);
 54:   *ierr = RGIntervalGetEndpoints(*rg,a,b,c,d);
 55: }

 57: SLEPC_EXTERN void rgintervalgetendpoints0000_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 58: {
 59:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
 60: }

 62: SLEPC_EXTERN void rgintervalgetendpoints1000_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 63: {
 64:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
 65: }

 67: SLEPC_EXTERN void rgintervalgetendpoints0100_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 68: {
 69:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
 70: }

 72: SLEPC_EXTERN void rgintervalgetendpoints1100_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 73: {
 74:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
 75: }

 77: SLEPC_EXTERN void rgintervalgetendpoints0010_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 78: {
 79:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
 80: }

 82: SLEPC_EXTERN void rgintervalgetendpoints1010_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 83: {
 84:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
 85: }

 87: SLEPC_EXTERN void rgintervalgetendpoints0110_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 88: {
 89:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
 90: }

 92: SLEPC_EXTERN void rgintervalgetendpoints1110_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 93: {
 94:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
 95: }

 97: SLEPC_EXTERN void rgintervalgetendpoints0001_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
 98: {
 99:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
100: }

102: SLEPC_EXTERN void rgintervalgetendpoints1001_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
103: {
104:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
105: }

107: SLEPC_EXTERN void rgintervalgetendpoints0101_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
108: {
109:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
110: }

112: SLEPC_EXTERN void rgintervalgetendpoints1101_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
113: {
114:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
115: }

117: SLEPC_EXTERN void rgintervalgetendpoints0011_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
118: {
119:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
120: }

122: SLEPC_EXTERN void rgintervalgetendpoints1011_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
123: {
124:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
125: }

127: SLEPC_EXTERN void rgintervalgetendpoints0111_(RG *rg,PetscReal *a,PetscReal *b,PetscReal *c,PetscReal *d,PetscErrorCode *ierr)
128: {
129:   rgintervalgetendpoints_(rg,a,b,c,d,ierr);
130: }