Actual source code: zinterval.c
slepc-3.21.1 2024-04-26
Report Typos and Errors

      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: }