Date: 2024-12-02T08:58:27+00:00

Actual source code: slepcstmod.F90
slepc-3.22.2 2024-12-02
Report Typos and Errors

      1: !
      2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
      4: !  Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
      5: !
      6: !  This file is part of SLEPc.
      7: !  SLEPc is distributed under a 2-clause BSD license (see LICENSE).
      8: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      9: !
     10:         module slepcstdefdummy
     11:         use petsckspdef
     12:         use slepcbvdef
     13: #include <../src/sys/classes/st/f90-mod/slepcst.h>
     14:         end module

     16:         module slepcstdef
     17:         use slepcstdefdummy
     18:         interface operator (.ne.)
     19:           function stnotequal(A,B)
     20:             import tST
     21:             logical stnotequal
     22:             type(tST), intent(in) :: A,B
     23:           end function
     24:         end interface operator (.ne.)
     25:         interface operator (.eq.)
     26:           function stequals(A,B)
     27:             import tST
     28:             logical stequals
     29:             type(tST), intent(in) :: A,B
     30:           end function
     31:         end interface operator (.eq.)
     32:         end module

     34:         function stnotequal(A,B)
     35:           use slepcstdefdummy, only: tST
     36:           logical stnotequal
     37:           type(tST), intent(in) :: A,B
     38:           stnotequal = (A%v .ne. B%v)
     39:         end function

     41:         function stequals(A,B)
     42:           use slepcstdefdummy, only: tST
     43:           logical stequals
     44:           type(tST), intent(in) :: A,B
     45:           stequals = (A%v .eq. B%v)
     46:         end function

     48:         module slepcst
     49:         use slepcstdef
     50:         use petscksp
     51:         use slepcbv
     52: #include <../src/sys/classes/st/f90-mod/slepcst.h90>
     53:         interface
     54: #include <../src/sys/classes/st/f90-mod/ftn-auto-interfaces/slepcst.h90>
     55:         end interface
     56:         end module