module m_{0[module_name]}

use m_openmpi
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_pass1

integer :: i, j, k

{0[module_pass1]}

end subroutine m_{0[module_name]}_calculate_pass1


subroutine m_{0[module_name]}_average_pass1 (nfiles)

integer :: nfiles
real*8 :: denum

denum=real(nfiles*nyp*nzp)

{0[module_pass1_avg]}

end subroutine m_{0[module_name]}_average_pass1


subroutine m_{0[module_name]}_calculate_pass2

integer :: i, j, k

{0[module_pass2]}

end subroutine m_{0[module_name]}_calculate_pass2


subroutine m_{0[module_name]}_average_pass2 (nfiles)

integer :: nfiles
real*8 :: denum

denum=real(nfiles*nyp*nzp)

{0[module_pass2_avg]}

end subroutine m_{0[module_name]}_average_pass2


subroutine m_{0[module_name]}_write_result

{0[module_write_result]}

end subroutine m_{0[module_name]}_write_result


end module m_{0[module_name]}