38 lines
505 B
Fortran
38 lines
505 B
Fortran
module m_{0[module_name]}
|
|
|
|
use m_parameters
|
|
use m_arrays
|
|
use m_calculate
|
|
|
|
implicit none
|
|
|
|
{0[module_data]}
|
|
|
|
contains
|
|
|
|
subroutine m_{0[module_name]}_init
|
|
|
|
integer :: ierr
|
|
|
|
{0[module_init]}
|
|
|
|
end subroutine m_{0[module_name]}_init
|
|
|
|
|
|
subroutine m_{0[module_name]}_finalize
|
|
|
|
{0[module_finalize]}
|
|
|
|
end subroutine m_{0[module_name]}_finalize
|
|
|
|
|
|
subroutine m_{0[module_name]}_calculate_instant
|
|
|
|
integer :: i, j, k
|
|
|
|
{0[module_ci]}
|
|
|
|
end subroutine m_{0[module_name]}_calculate_instant
|
|
|
|
|
|
end module m_{0[module_name]}
|