00001 module interface_source_vep_surface_CF_peos
00002 implicit none
00003 interface
00004 subroutine source_vep_surface_CF_peos(vpot_v,surp)
00005 real(8), pointer :: surp(:,:), vpot_v(:,:,:)
00006 end subroutine source_vep_surface_CF_peos
00007 end interface
00008 end module interface_source_vep_surface_CF_peos