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