CG Module

module JT_CG_module
  implicit none
  interface JT_CG
     module procedure CG_Full
     module procedure CG_ELL
  end interface
  private
  public :: JT_CG

contains

  subroutine CG_Full (status,b,control,x,cpu,rnorm,err,a,ap)
    use JT_Full_module

#include ``CG-use.F90''

    real(kind=JT_real_type), intent(in), dimension(:,:) :: a
    real(kind=JT_real_type), intent(inout), dimension(:,:) :: ap

#include ``CG-guts.F90''

  end subroutine CG_Full

  subroutine CG_ELL (status,b,control,x,cpu,rnorm,err,a,ap)
    use JT_ELL_module

#include ``CG-use.F90''

    type(JT_ELL_matrix), intent(in) :: a
    type(JT_ELL_matrix), intent(inout) :: ap

#include ``CG-guts.F90''

  end subroutine CG_ELL

end module JT_CG_module