Update write.f90

X descriptor required leading integer