One thing you could do is to shift the decimal point by 1 digit (1p):
write(6, “(1pe13.4)”) corm
NOTE! non-trivially, the 1p addition will stick through the end of the format statement (i.e., if you have following numbers, it will also apply to them until you reset it say with 0p somewhere next). So, please handle with care…
On output, the ES data edit descriptor transfers the real value of the corresponding I/O list item, right-justified and rounded to d decimal positions, to an external field that is w characters long if w is positive. The real value is output in scientific notation, where the absolute value of the significand is greater than or equal to 1 and less than 10 (unless the output value is zero).