00001 module interface_source_komar_mass_compact_peos_spin 00002 implicit none 00003 interface 00004 subroutine source_komar_mass_compact_peos_spin(souf) 00005 real(8), pointer :: souf(:,:,:) 00006 end subroutine source_komar_mass_compact_peos_spin 00007 end interface 00008 end module interface_source_komar_mass_compact_peos_spin