Dump i2mex_o data into the ascii file named filename for
    postprocessing using the free plotmtv program.
    ier error flag (ok if =0)
integer, intent(in) :: nt1, ns
real(i2mex_r8), intent(in) :: the(nt1), psi(ns)
character*(*), intent(in) :: filename
integer, intent(out) :: ier
    Dump i2mex_o mesh and array data into the ascii file named filename for
    postprocessing using Data Explorer
integer, intent(in) :: nt1, ns
real(i2mex_r8), intent(in) :: the(nt1), psi(ns)
real(i2mex_r8), intent(in) :: array(nt1, ns)
character*(*), intent(in) :: filename
integer, intent(out) :: ier