00001 module interface_compute_fnc_inversion_index 00002 implicit none 00003 interface 00004 subroutine compute_fnc_inversion_index(pot1,pot2,index) 00005 real(8), pointer :: pot1(:,:,:), pot2(:,:,:) 00006 real(8) :: index 00007 end subroutine compute_fnc_inversion_index 00008 end interface 00009 end module interface_compute_fnc_inversion_index