Actual source code: petscsys.h90
petsc-3.10.5 2019-03-28
Report Typos and Errors

      1: #if defined(PETSC_HAVE_FORTRAN_TYPE_STAR)
      2:       Interface
      3:        subroutine PetscObjectReference(obj,ierr)
      4:           use petscsysdef
      5:           type(*) :: obj
      6:           PetscErrorCode :: ierr
      7:        end Subroutine PetscObjectReference
      8:        subroutine PetscObjectDereference(obj,ierr)
      9:           use petscsysdef
     10:           type(*) :: obj
     11:           PetscErrorCode :: ierr
     12:         end Subroutine PetscObjectDereference
     13:        subroutine PetscObjectGetReference(obj,c,ierr)
     14:           use petscsysdef
     15:           type(*) :: obj
     16:           PetscInt c
     17:           PetscErrorCode :: ierr
     18:         end Subroutine PetscObjectGetReference
     19:        subroutine PetscObjectCompose(obj,str,obj2,ierr)
     20:           use petscsysdef
     21:           type(*) :: obj,obj2
     22:           character(*) :: str
     23:           PetscErrorCode :: ierr
     24:         end Subroutine PetscObjectCompose
     25:        subroutine PetscObjectQuery(obj,str,obj2,ierr)
     26:           use petscsysdef
     27:           type(*) :: obj,obj2
     28:           character(*) :: str
     29:           PetscErrorCode :: ierr
     30:         end Subroutine PetscObjectQuery
     31:         end Interface
     32: #endif

     34:       Interface
     35:         Subroutine PetscOptionsGetInt(o,p,n,v,s,ierr)
     36:           use petscsysdef
     37:           PetscOptions o
     38:           PetscInt v
     39:           character(*) p,n
     40:           PetscBool s
     41:           PetscErrorCode ierr
     42:         End Subroutine
     43:         Subroutine PetscOptionsGetReal(o,p,n,v,s,ierr)
     44:           use petscsysdef
     45:           PetscOptions o
     46:           PetscReal v
     47:           character(*) p,n
     48:           PetscBool s
     49:           PetscErrorCode ierr
     50:         End Subroutine
     51:         Subroutine PetscOptionsGetScalar(o,p,n,v,s,ierr)
     52:           use petscsysdef
     53:           PetscOptions o
     54:           PetscScalar v
     55:           character(*) p,n
     56:           PetscBool s
     57:           PetscErrorCode ierr
     58:         End Subroutine
     59:         Subroutine PetscOptionsGetBool(o,p,n,v,s,ierr)
     60:           use petscsysdef
     61:           PetscOptions o
     62:           PetscBool v
     63:           character(*) p,n
     64:           PetscBool s
     65:           PetscErrorCode ierr
     66:         End Subroutine
     67:         Subroutine PetscOptionsGetString(o,p,n,v,s,ierr)
     68:           use petscsysdef
     69:           PetscOptions o
     70:           character(*) v
     71:           character(*) p,n
     72:           PetscBool s
     73:           PetscErrorCode ierr
     74:         End Subroutine
     75:         Subroutine PetscOptionsHasName(o,p,n,s,ierr)
     76:           use petscsysdef
     77:           PetscOptions o
     78:           character(*) p,n
     79:           PetscBool s
     80:           PetscErrorCode ierr
     81:         End Subroutine
     82:         Subroutine PetscOptionsGetIntArray(o,p,n,v,c,s,ierr)
     83:           use petscsysdef
     84:           PetscOptions o
     85:           PetscInt v(*),c
     86:           character(*) p,n
     87:           PetscBool s
     88:           PetscErrorCode ierr
     89:         End Subroutine
     90:         Subroutine PetscOptionsGetScalarArray(o,p,n,v,c,s,ierr)
     91:           use petscsysdef
     92:           PetscOptions o
     93:           PetscScalar v(*)
     94:           PetscInt c
     95:           character(*) p,n
     96:           PetscBool s
     97:           PetscErrorCode ierr
     98:         End Subroutine
     99:         Subroutine PetscOptionsGetRealArray(o,p,n,v,c,s,ierr)
    100:           use petscsysdef
    101:           PetscOptions o
    102:           PetscReal v(*)
    103:           PetscInt c
    104:           character(*) p,n
    105:           PetscBool s
    106:           PetscErrorCode ierr
    107:         End Subroutine
    108:         Subroutine PetscOptionsSetValue(o,n,v,ierr)
    109:           use petscsysdef
    110:           PetscOptions o
    111:           character(*) n,v
    112:           PetscErrorCode ierr
    113:         End Subroutine
    114:         Subroutine PetscOptionsClearValue(o,n,ierr)
    115:           use petscsysdef
    116:           PetscOptions o
    117:           character(*) n
    118:           PetscErrorCode ierr
    119:         End Subroutine
    120:         Subroutine PetscOptionsClear(o,ierr)
    121:           use petscsysdef
    122:           PetscOptions o
    123:           PetscErrorCode ierr
    124:         End Subroutine
    125:       End Interface

    127:       Interface
    128:       subroutine PetscRandomSetType(a,b,z)
    129:       use petscsysdef
    130:        PetscRandom a
    131:        character(*) b
    132:        integer z
    133:        end subroutine
    134:       end Interface

    136:       Interface
    137:       subroutine PetscRandomView(a,b,z)
    138:       use petscsysdef
    139:        PetscRandom a
    140:        PetscViewer b
    141:        integer z
    142:        end subroutine
    143:       end Interface

    145: #if defined(PETSC_USE_LOG)
    146:       Interface
    147:       function PetscASend(c, d) bind(c,name='PetscASend') result(i)
    148:           use iso_c_binding
    149:           implicit none
    150:           integer(c_int), value :: c
    151:           integer(c_int), value :: d
    152:           integer(c_int)        :: i
    153:       end function PetscASend

    155:       function PetscARecv(c, d) bind(c,name='PetscARecv') result(i)
    156:           use iso_c_binding
    157:           implicit none
    158:           integer(c_int), value :: c
    159:           integer(c_int), value :: d
    160:           integer(c_int)        :: i
    161:       end function PetscARecv

    163:       function PetscAReduce() bind(c,name='PetscAReduce') result(i)
    164:           use iso_c_binding
    165:           implicit none
    166:           integer(c_int)        :: i
    167:       end function PetscAReduce
    168:       end Interface
    169: #endif