書式指定でeの代わりにesを指定すると1≦仮数部<10になる
Fortranの入出力書式はいろいろあるから、後は自分で調べてくれ