00001 module interface_source_ang_mom_asymp
00002   implicit none
00003   interface 
00004     subroutine source_ang_mom_asymp(sousf,irg)
00005       real(8), pointer     :: sousf(:,:)
00006       integer, intent(in)  :: irg
00007     end subroutine source_ang_mom_asymp
00008   end interface
00009 end module interface_source_ang_mom_asymp