program pe x = 123.456 write(*,'(3pe8.1,5x,0pe9.5e0)') x, 123456789e14 end