00001 module interface_compute_fnc_division
00002 implicit none
00003 interface
00004 subroutine compute_fnc_division(pot1,pot2,pot3)
00005 real(8), pointer :: pot1(:,:,:), pot2(:,:,:), pot3(:,:,:)
00006 end subroutine compute_fnc_division
00007 end interface
00008 end module interface_compute_fnc_division