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