Actual source code: petsckspdefmod.F90

  1:         module petscpcdefdummy
  2:         use petscdmdef
  3:         use petscmatdef
  4: #include <../src/ksp/f90-mod/petscpc.h>
  5:         end module petscpcdefdummy

  7:         module petscpcdef
  8:         use petscpcdefdummy
  9:         interface operator(.ne.)
 10:           function pcnotequal(A,B)
 11:             import tPC
 12:             logical pcnotequal
 13:             type(tPC), intent(in) :: A,B
 14:           end function
 15:         end interface operator (.ne.)
 16:         interface operator(.eq.)
 17:           function pcequals(A,B)
 18:             import tPC
 19:             logical pcequals
 20:             type(tPC), intent(in) :: A,B
 21:           end function
 22:         end interface operator (.eq.)
 23:         end module

 25:         function pcnotequal(A,B)
 26:           use petscpcdefdummy, only: tPC
 27:           logical pcnotequal
 28:           type(tPC), intent(in) :: A,B
 29:           pcnotequal = (A%v .ne. B%v)
 30:         end function

 32:         function pcequals(A,B)
 33:           use petscpcdefdummy, only: tPC
 34:           logical pcequals
 35:           type(tPC), intent(in) :: A,B
 36:           pcequals = (A%v .eq. B%v)
 37:         end function

 39:         module petsckspdefdummy
 40:         use petscpcdef
 41: #include <../src/ksp/f90-mod/petscksp.h>
 42:         end module

 44:         module petsckspdef
 45:         use petsckspdefdummy
 46:         interface operator(.ne.)
 47:           function kspnotequal(A,B)
 48:             import tKSP
 49:             logical kspnotequal
 50:             type(tKSP), intent(in) :: A,B
 51:           end function
 52:         end interface operator (.ne.)
 53:         interface operator(.eq.)
 54:           function kspequals(A,B)
 55:             import tKSP
 56:             logical kspequals
 57:             type(tKSP), intent(in) :: A,B
 58:           end function
 59:         end interface operator (.eq.)
 60:         end module

 62:         function kspnotequal(A,B)
 63:           use petsckspdefdummy, only: tKSP
 64:           logical kspnotequal
 65:           type(tKSP), intent(in) :: A,B
 66:           kspnotequal = (A%v .ne. B%v)
 67:         end function

 69:         function kspequals(A,B)
 70:           use petsckspdefdummy, only: tKSP
 71:           logical kspequals
 72:           type(tKSP), intent(in) :: A,B
 73:           kspequals = (A%v .eq. B%v)
 74:         end function