00001 module interface_interpolation_fillup_binary_parity 00002 implicit none 00003 interface 00004 subroutine interpolation_fillup_binary_parity(fnc,par) 00005 real(8), pointer :: fnc(:,:,:) 00006 real(8), intent(in) :: par 00007 end subroutine interpolation_fillup_binary_parity 00008 end interface 00009 end module interface_interpolation_fillup_binary_parity