00001 module interface_interpolation_fillup_binary_mpt 00002 implicit none 00003 interface 00004 subroutine interpolation_fillup_binary_mpt(fnc,fnc_ex) 00005 real(8), pointer :: fnc(:,:,:), fnc_ex(:,:,:) 00006 end subroutine interpolation_fillup_binary_mpt 00007 end interface 00008 end module interface_interpolation_fillup_binary_mpt