00001 module interface_sourceterm_helmholtz_solver_test 00002 implicit none 00003 interface 00004 subroutine sourceterm_helmholtz_solver_test(sou,char_sou) 00005 real(8), pointer :: sou(:,:,:) 00006 character(2) :: char_sou 00007 end subroutine sourceterm_helmholtz_solver_test 00008 end interface 00009 end module interface_sourceterm_helmholtz_solver_test