00001 module interface_radial_int_fluid 00002 implicit none 00003 interface 00004 subroutine radial_int_fluid(sou,radius,it,ip) 00005 real(8), pointer :: sou(:) 00006 real(8), intent(out) :: radius 00007 integer, intent(in) :: it, ip 00008 end subroutine radial_int_fluid 00009 end interface 00010 end module interface_radial_int_fluid