00001 module interface_calc_dx_vec 00002 implicit none 00003 interface 00004 subroutine calc_dx_vec(cline,ir,it,ip,dxv) 00005 character(len=2), intent(in) :: cline 00006 integer, intent(in) :: ir,it,ip 00007 real(8), pointer :: dxv(:) 00008 end subroutine calc_dx_vec 00009 end interface 00010 end module interface_calc_dx_vec