Кусок кода: Code: WRITE(ntbl,20) hh,mm,ss,avexe,avesm,cr,crsk,cz,czsk,BEPX,BEPXSK WRITE(ntbl,30) hh,mm,ss,avexe,avesm,cr,crsk,cz,czsk,BEPX,BEPXSK 20 format(i3,2(1h:,i2),2(1pe14.6),6f6.2) 30 format(i3,2(1h:,i2),2(e14.6),6f6.2) Результат: Code: 0: 0: 0 8.616557E-11 2.040359E-09 15.28 11.45 13.19 13.00 10.51 10.45 0: 0: 0 0.861656E-10 0.204036E-08 1.53 1.15 1.32 1.30 1.05 1.04 Конец дня. Работы еще много. А я туплю. "1pe14.6" вместо "e14.6" работает как надо, но портит последующую выдачу. В чем грабли?
в 98ом году сдавал экзамена по фортрану77 при выводе случайно записал write (*,8), долго не мог понять почему на экране какой то левый результат, в итоге получил ХОР только дома заметил у меня не нажался shift, должно было быть write (*,*)
Виноват. Невнятно написал. Работает в смысле, что выдачу по формату "e" 0.861656E-10 правильно преобразует в 8.616557E-11 по формату "1pe". Портит последующую выдачу. 15.28 - глюк фортрана. Правильная выдача 1.53.
у меня складывается ощущение, что 1п - это символьный литерал, и он будет приписываться спереди к любому выводу. мои знания тож, впрочем, на 77 фортране остановились.