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]}