cmiss_petsc_types.f90

Go to the documentation of this file.

MODULE cmisspetsctypes
  
  USE kinds
  
  IMPLICIT NONE
 
  PRIVATE

#include "petsc/finclude/petsc.h"

  !Module parameters
  
  !Module types

  TYPE petscistype
    is :: is
  END TYPE petscistype

  TYPE petscislocaltogloabalmappingtype
    islocaltoglobalmapping :: islocaltoglobalmapping
  END TYPE petscislocaltogloabalmappingtype

  TYPE petsciscoloringtype
    iscoloring :: iscoloring
  END TYPE petsciscoloringtype

  TYPE petscksptype
    ksp :: ksp
  END TYPE petscksptype

  TYPE petscmattype
    mat :: mat
  END TYPE petscmattype
  
  TYPE petscmatcoloringtype
    matcoloring :: matcoloring
  END TYPE petscmatcoloringtype
  
  TYPE petscmatfdcoloringtype
    matfdcoloring :: matfdcoloring
  END TYPE petscmatfdcoloringtype

  TYPE petscpctype
    pc :: pc
  END TYPE petscpctype
  
  TYPE petscsnestype
    snes :: snes
  END TYPE petscsnestype

  TYPE petscsneslinesearchtype
    sneslinesearch :: sneslinesearch
  END TYPE petscsneslinesearchtype
  
  TYPE petsctstype
    ts :: ts
  END TYPE petsctstype
  
  TYPE petscvectype
    vec :: vec
  END TYPE petscvectype
  
  !Interfaces
 
  PUBLIC petscistype,petscislocaltogloabalmappingtype,petsciscoloringtype,petscksptype,petscmattype,petscmatcoloringtype, &
    & petscmatfdcoloringtype,petscpctype,petscsnestype,petscsneslinesearchtype,petsctstype,petscvectype

END MODULE cmisspetsctypes