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