-
Notifications
You must be signed in to change notification settings - Fork 0
/
Discretize_Mod.f90
31 lines (26 loc) · 963 Bytes
/
Discretize_Mod.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#include "Unused.h90"
!==============================================================================!
module Discretize_Mod
!----------------------------------[Modules]-----------------------------------!
use In_Out_Mod
use Dense_Mod
use Sparse_Mod
!------------------------------------------------------------------------------!
implicit none
!------------------------------------------------------------------------------!
! A suite of routines for solver demonstration !
!==============================================================================!
!---------------------!
! !
! Discretize type !
! !
!---------------------!
type Discretize_Type
contains
procedure :: On_Sparse_Matrix
end type
! Introduce the singleton object
type(Discretize_Type) :: Discretize
contains
# include "Discretize_Mod/On_Sparse_Matrix.f90"
end module