Date: 2021-09-20T09:43:49+00:00

Actual source code: slepcrg.h90
slepc-3.15.2 2021-09-20
Report Typos and Errors

      1: !
      2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
      4: !  Copyright (c) 2002-2021, 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 RGEllipseGetParameters
     11:         subroutine RGEllipseGetParameters000(a,b,c,d,z)
     12:           import tRG
     13:           RG a
     14:           PetscScalar b
     15:           PetscReal c
     16:           PetscReal d
     17:           PetscErrorCode z
     18:         end subroutine
     19:         subroutine RGEllipseGetParameters100(a,b,c,d,z)
     20:           import tRG
     21:           RG a
     22:           PetscScalar b(*)
     23:           PetscReal c
     24:           PetscReal d
     25:           PetscErrorCode z
     26:         end subroutine
     27:         subroutine RGEllipseGetParameters010(a,b,c,d,z)
     28:           import tRG
     29:           RG a
     30:           PetscScalar b
     31:           PetscReal c(*)
     32:           PetscReal d
     33:           PetscErrorCode z
     34:         end subroutine
     35:         subroutine RGEllipseGetParameters110(a,b,c,d,z)
     36:           import tRG
     37:           RG a
     38:           PetscScalar b(*)
     39:           PetscReal c(*)
     40:           PetscReal d
     41:           PetscErrorCode z
     42:         end subroutine
     43:         subroutine RGEllipseGetParameters001(a,b,c,d,z)
     44:           import tRG
     45:           RG a
     46:           PetscScalar b
     47:           PetscReal c
     48:           PetscReal d(*)
     49:           PetscErrorCode z
     50:         end subroutine
     51:         subroutine RGEllipseGetParameters101(a,b,c,d,z)
     52:           import tRG
     53:           RG a
     54:           PetscScalar b(*)
     55:           PetscReal c
     56:           PetscReal d(*)
     57:           PetscErrorCode z
     58:         end subroutine
     59:         subroutine RGEllipseGetParameters011(a,b,c,d,z)
     60:           import tRG
     61:           RG a
     62:           PetscScalar b
     63:           PetscReal c(*)
     64:           PetscReal d(*)
     65:           PetscErrorCode z
     66:         end subroutine
     67:       end interface RGEllipseGetParameters

     69:       interface RGIntervalGetEndpoints
     70:         subroutine RGIntervalGetEndpoints0000(a,b,c,d,e,z)
     71:           import tRG
     72:           RG a
     73:           PetscReal b
     74:           PetscReal c
     75:           PetscReal d
     76:           PetscReal e
     77:           PetscErrorCode z
     78:         end subroutine
     79:         subroutine RGIntervalGetEndpoints1000(a,b,c,d,e,z)
     80:           import tRG
     81:           RG a
     82:           PetscReal b(*)
     83:           PetscReal c
     84:           PetscReal d
     85:           PetscReal e
     86:           PetscErrorCode z
     87:         end subroutine
     88:         subroutine RGIntervalGetEndpoints0100(a,b,c,d,e,z)
     89:           import tRG
     90:           RG a
     91:           PetscReal b
     92:           PetscReal c(*)
     93:           PetscReal d
     94:           PetscReal e
     95:           PetscErrorCode z
     96:         end subroutine
     97:         subroutine RGIntervalGetEndpoints1100(a,b,c,d,e,z)
     98:           import tRG
     99:           RG a
    100:           PetscReal b(*)
    101:           PetscReal c(*)
    102:           PetscReal d
    103:           PetscReal e
    104:           PetscErrorCode z
    105:         end subroutine
    106:         subroutine RGIntervalGetEndpoints0010(a,b,c,d,e,z)
    107:           import tRG
    108:           RG a
    109:           PetscReal b
    110:           PetscReal c
    111:           PetscReal d(*)
    112:           PetscReal e
    113:           PetscErrorCode z
    114:         end subroutine
    115:         subroutine RGIntervalGetEndpoints1010(a,b,c,d,e,z)
    116:           import tRG
    117:           RG a
    118:           PetscReal b(*)
    119:           PetscReal c
    120:           PetscReal d(*)
    121:           PetscReal e
    122:           PetscErrorCode z
    123:         end subroutine
    124:         subroutine RGIntervalGetEndpoints0110(a,b,c,d,e,z)
    125:           import tRG
    126:           RG a
    127:           PetscReal b
    128:           PetscReal c(*)
    129:           PetscReal d(*)
    130:           PetscReal e
    131:           PetscErrorCode z
    132:         end subroutine
    133:         subroutine RGIntervalGetEndpoints1110(a,b,c,d,e,z)
    134:           import tRG
    135:           RG a
    136:           PetscReal b(*)
    137:           PetscReal c(*)
    138:           PetscReal d(*)
    139:           PetscReal e
    140:           PetscErrorCode z
    141:         end subroutine
    142:         subroutine RGIntervalGetEndpoints0001(a,b,c,d,e,z)
    143:           import tRG
    144:           RG a
    145:           PetscReal b
    146:           PetscReal c
    147:           PetscReal d
    148:           PetscReal e(*)
    149:           PetscErrorCode z
    150:         end subroutine
    151:         subroutine RGIntervalGetEndpoints1001(a,b,c,d,e,z)
    152:           import tRG
    153:           RG a
    154:           PetscReal b(*)
    155:           PetscReal c
    156:           PetscReal d
    157:           PetscReal e(*)
    158:           PetscErrorCode z
    159:         end subroutine
    160:         subroutine RGIntervalGetEndpoints0101(a,b,c,d,e,z)
    161:           import tRG
    162:           RG a
    163:           PetscReal b
    164:           PetscReal c(*)
    165:           PetscReal d
    166:           PetscReal e(*)
    167:           PetscErrorCode z
    168:         end subroutine
    169:         subroutine RGIntervalGetEndpoints1101(a,b,c,d,e,z)
    170:           import tRG
    171:           RG a
    172:           PetscReal b(*)
    173:           PetscReal c(*)
    174:           PetscReal d
    175:           PetscReal e(*)
    176:           PetscErrorCode z
    177:         end subroutine
    178:         subroutine RGIntervalGetEndpoints0011(a,b,c,d,e,z)
    179:           import tRG
    180:           RG a
    181:           PetscReal b
    182:           PetscReal c
    183:           PetscReal d(*)
    184:           PetscReal e(*)
    185:           PetscErrorCode z
    186:         end subroutine
    187:         subroutine RGIntervalGetEndpoints1011(a,b,c,d,e,z)
    188:           import tRG
    189:           RG a
    190:           PetscReal b(*)
    191:           PetscReal c
    192:           PetscReal d(*)
    193:           PetscReal e(*)
    194:           PetscErrorCode z
    195:         end subroutine
    196:         subroutine RGIntervalGetEndpoints0111(a,b,c,d,e,z)
    197:           import tRG
    198:           RG a
    199:           PetscReal b
    200:           PetscReal c(*)
    201:           PetscReal d(*)
    202:           PetscReal e(*)
    203:           PetscErrorCode z
    204:         end subroutine
    205:       end interface RGIntervalGetEndpoints

    207:       interface RGPolygonGetVertices
    208:         subroutine RGPolygonGetVertices0(a,b,c,d,z)
    209:           import tRG
    210:           RG a
    211:           PetscInt b
    212:           PetscScalar c(*)
    213:           PetscScalar d(*)
    214:           PetscErrorCode z
    215:         end subroutine
    216:         subroutine RGPolygonGetVertices1(a,b,c,d,z)
    217:           import tRG
    218:           RG a
    219:           PetscInt b(*)
    220:           PetscScalar c(*)
    221:           PetscScalar d(*)
    222:           PetscErrorCode z
    223:         end subroutine
    224:       end interface RGPolygonGetVertices