00001 module interface_interpolation_fillup_binary_parity_mpt 00002 implicit none 00003 interface 00004 subroutine interpolation_fillup_binary_parity_mpt(fnc,fnc_ex,parchar) 00005 real(8), pointer :: fnc(:,:,:), fnc_ex(:,:,:) 00006 character(len=2) :: parchar 00007 end subroutine interpolation_fillup_binary_parity_mpt 00008 end interface 00009 end module interface_interpolation_fillup_binary_parity_mpt