00001 module interface_correct_matter_source_midpoint
00002 implicit none
00003 interface
00004 subroutine correct_matter_source_midpoint(sou)
00005 real(8), pointer :: sou(:,:,:)
00006 end subroutine correct_matter_source_midpoint
00007 end interface
00008 end module interface_correct_matter_source_midpoint