00001 module interface_source_admmom_asympto
00002   implicit none
00003   interface 
00004     subroutine source_admmom_asympto(sousfv,irg)
00005       real(8), pointer :: sousfv(:,:,:)
00006       integer          :: irg
00007     end subroutine source_admmom_asympto
00008   end interface
00009 end module interface_source_admmom_asympto