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