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