Date: 2021-03-03T22:26:08+00:00

Actual source code: petscis.h90
petsc-3.14.5 2021-03-03
Report Typos and Errors

      1: !
      2: !  These are Fortran interfaces that are custom hand coded because
      3: !  they cannot currently be generated automatically
      4: !

      6:       Interface
      7:         Subroutine PetscLayoutFindOwner(a,b,z)
      8:           use petscisdef
      9:           PetscLayout a
     10:           PetscMPIInt b
     11:           PetscErrorCode  z
     12:         End Subroutine
     13:       End Interface

     15:       Interface
     16:         Subroutine PetscLayoutFindOwnerIndex(a,b,c,z)
     17:           use petscisdef
     18:           PetscLayout a
     19:           PetscMPIInt b
     20:           PetscInt c
     21:           PetscErrorCode  z
     22:         End Subroutine
     23:       End Interface

     25:       Interface
     26:         Subroutine ISGetIndicesF90(i,array,ierr)
     27:           use petscisdef
     28:           PetscInt, pointer :: array(:)
     29:           PetscErrorCode  ierr
     30:          IS       i
     31:         End Subroutine
     32:       End Interface

     34:       Interface
     35:         Subroutine ISRestoreIndicesF90(i,array,ierr)
     36:           use petscisdef
     37:           PetscInt, pointer :: array(:)
     38:           PetscErrorCode ierr
     39:          IS      i
     40:         End Subroutine
     41:       End Interface

     43:       Interface
     44:         Subroutine ISLocalToGlobalMappingGetIndicesF90(i,array,ierr)
     45:           use petscisdef
     46:           PetscInt, pointer :: array(:)
     47:           PetscErrorCode  ierr
     48:          ISLocalToGlobalMapping       i
     49:         End Subroutine
     50:       End Interface

     52:       Interface
     53:         Subroutine ISLocalToGlobalMappingRestoreIndicesF90(i,array,ierr)
     54:           use petscisdef
     55:           PetscInt, pointer :: array(:)
     56:           PetscErrorCode  ierr
     57:          ISLocalToGlobalMapping       i
     58:         End Subroutine
     59:       End Interface

     61: ! ------------------------------------------------------

     63:       Interface
     64:         Subroutine ISBlockGetIndicesF90(i,array,ierr)
     65:           use petscisdef
     66:           PetscInt, pointer :: array(:)
     67:           PetscErrorCode  ierr
     68:          IS       i
     69:         End Subroutine
     70:       End Interface

     73:       Interface
     74:         Subroutine ISBlockRestoreIndicesF90(i,array,ierr)
     75:           use petscisdef
     76:           PetscInt, pointer :: array(:)
     77:           PetscErrorCode ierr
     78:          IS      i
     79:         End Subroutine
     80:       End Interface

     82: ! ------------------------------------------------------
     83:       Interface
     84:         Subroutine ISColoringGetISF90(ic,n,isa,ierr)
     85:           use petscisdef
     86:           IS, pointer :: isa(:)
     87:           PetscInt     n
     88:           PetscErrorCode ierr
     89:           ISColoring ic
     90:         End Subroutine
     91:       End Interface

     93:       Interface
     94:         Subroutine ISColoringRestoreISF90(ic,isa,ierr)
     95:           use petscisdef
     96:           IS, pointer :: isa(:)
     97:           PetscErrorCode     ierr
     98:           ISColoring ic
     99:         End Subroutine
    100:       End Interface

    102:       Interface
    103:         Subroutine PetscSectionGetConstraintIndicesF90(s,p,a,ierr)
    104:           use petscisdef
    105:           PetscInt p
    106:           PetscInt, pointer :: a(:)
    107:           PetscErrorCode  ierr
    108:           PetscSection       s
    109:         End Subroutine
    110:       End Interface

    112:       Interface
    113:         Subroutine PetscSectionRestoreConstraintIndicesF90(s,p,a,ierr)
    114:           use petscisdef
    115:           PetscInt p
    116:           PetscInt, pointer :: a(:)
    117:           PetscErrorCode  ierr
    118:           PetscSection       s
    119:         End Subroutine
    120:       End Interface

    122:       Interface
    123:         Subroutine PetscSectionSetConstraintIndicesF90(s,p,a,ierr)
    124:           use petscisdef
    125:           PetscInt p
    126:           PetscInt, pointer :: a(:)
    127:           PetscErrorCode  ierr
    128:           PetscSection       s
    129:         End Subroutine
    130:       End Interface

    132:       Interface
    133:       subroutine ISSetType(a,b,z)
    134:       use petscisdef
    135:        IS a
    136:        character(*) b
    137:        integer z
    138:        end subroutine
    139:       end Interface

    141:       Interface
    142:       subroutine ISView(a,b,z)
    143:       use petscisdef
    144:        IS a
    145:        PetscViewer b
    146:        PetscErrorCode z
    147:        end subroutine
    148:       end Interface