00001 module interface_source_virial_matter
00002 implicit none
00003 interface
00004 subroutine source_virial_matter(sou_Tkin,sou_Pint)
00005 real(8), pointer :: sou_Tkin(:,:,:), sou_Pint(:,:,:)
00006 end subroutine source_virial_matter
00007 end interface
00008 end module interface_source_virial_matter