00001 module interface_source_EMenergy_axisym_WL 00002 implicit none 00003 interface 00004 subroutine source_EMenergy_axisym_WL(sou_MtorB,sou_MpolB,sou_MeleE) 00005 real(8), pointer :: sou_MtorB(:,:,:), sou_MpolB(:,:,:), sou_MeleE(:,:,:) 00006 end subroutine source_EMenergy_axisym_WL 00007 end interface 00008 end module interface_source_EMenergy_axisym_WL