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