00001 module interface_IO_output_3D_general 00002 implicit none 00003 interface 00004 subroutine IO_output_3D_general(filename,fg,mg,pot) 00005 real(8), pointer :: pot(:,:,:) 00006 character(len=1), intent(in) :: fg,mg 00007 character(len=30), intent(in) :: filename 00008 end subroutine IO_output_3D_general 00009 end interface 00010 end module interface_IO_output_3D_general