00001 module interface_vol_int_fluid
00002   implicit none
00003   interface 
00004     subroutine vol_int_fluid(souf,vol)
00005       real(8), pointer     :: souf(:,:,:)
00006       real(8), intent(out) :: vol
00007     end subroutine vol_int_fluid
00008   end interface
00009 end module interface_vol_int_fluid