2:         module petsctsdefdummy
  3:         use petscsnesdef
  4: #include <../src/ts/f90-mod/petscts.h>
  5:         end module

  7:         module petsctsdef
  8:         use petsctsdefdummy
  9:         interface operator(.ne.)
 10:           function tsnotequal(A,B)
 11:             use petsctsdefdummy
 12:             logical tsnotequal
 13:             type(tTS), intent(in) :: A,B
 14:           end function
 15:           function tsadaptnotequal(A,B)
 16:             use petsctsdefdummy
 17:             logical tsadaptnotequal
 18:             type(tTSAdapt), intent(in) :: A,B
 19:           end function
 20:           function tstrajectorynotequal(A,B)
 21:             use petsctsdefdummy
 22:             logical tstrajectorynotequal
 23:             type(tTSTrajectory), intent(in) :: A,B
 24:           end function
 25:         end interface operator (.ne.)
 26:         interface operator(.eq.)
 27:           function tsequals(A,B)
 28:             use petsctsdefdummy
 29:             logical tsequals
 30:             type(tTS), intent(in) :: A,B
 31:           end function
 32:           function tsadaptequals(A,B)
 33:             use petsctsdefdummy
 34:             logical tsadaptequals
 35:             type(tTSAdapt), intent(in) :: A,B
 36:           end function
 37:           function tstrajectoryequals(A,B)
 38:             use petsctsdefdummy
 39:             logical tstrajectoryequals
 40:             type(tTSTrajectory), intent(in) :: A,B
 41:           end function
 42:         end interface operator (.eq.)
 43:         end module

 45:         function tsnotequal(A,B)
 46:           use petsctsdefdummy
 47:           logical tsnotequal
 48:           type(tTS), intent(in) :: A,B
 49:           tsnotequal = (A%v .ne. B%v)
 50:         end function

 52:         function tsequals(A,B)
 53:           use petsctsdefdummy
 54:           logical tsequals
 55:           type(tTS), intent(in) :: A,B
 56:           tsequals = (A%v .eq. B%v)
 57:         end function

 59:         function tsadaptnotequal(A,B)
 60:           use petsctsdefdummy
 61:           logical tsadaptnotequal
 62:           type(tTSAdapt), intent(in) :: A,B
 63:           tsadaptnotequal = (A%v .ne. B%v)
 64:         end function

 66:         function tsadaptequals(A,B)
 67:           use petsctsdefdummy
 68:           logical tsadaptequals
 69:           type(tTSAdapt), intent(in) :: A,B
 70:           tsadaptequals = (A%v .eq. B%v)
 71:         end function

 73:         function tstrajectorynotequal(A,B)
 74:           use petsctsdefdummy
 75:           logical tstrajectorynotequal
 76:           type(tTSTrajectory), intent(in) :: A,B
 77:           tstrajectorynotequal = (A%v .ne. B%v)
 78:         end function

 80:         function tstrajectoryequals(A,B)
 81:           use petsctsdefdummy
 82:           logical tstrajectoryequals
 83:           type(tTSTrajectory), intent(in) :: A,B
 84:           tstrajectoryequals = (A%v .eq. B%v)
 85:         end function

 87:         module petscts
 88:         use petsctsdef
 89:         use petscsnes
 90: #include <../src/ts/f90-mod/petscts.h90>
 91:         interface
 92: #include <../src/ts/f90-mod/ftn-auto-interfaces/petscts.h90>
 93: #include <../src/ts/f90-mod/ftn-auto-interfaces/petscsensitivity.h90>
 94:         end interface
 95:         end module