COMPAQ FORTRAN 6.6.0

Discussion in 'Off Topic' started by bzdems, Mar 27, 2014.

  1. bzdems

    bzdems Well-Known Member

    Joined:
    May 3, 2001
    Messages:
    10,144
    Location:
    msk, ru
    Кусок кода:
    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" работает как надо, но портит последующую выдачу. В чем грабли?
     
  2. Siddha

    Siddha Well-Known Member

    Joined:
    Jan 2, 2004
    Messages:
    53,450
    формат Ц тебе поможет...и поллитра
     
  3. bzdems

    bzdems Well-Known Member

    Joined:
    May 3, 2001
    Messages:
    10,144
    Location:
    msk, ru
    не знаю такого формата. поллитры нет. как и чувства юмора.
     
  4. bzdems

    bzdems Well-Known Member

    Joined:
    May 3, 2001
    Messages:
    10,144
    Location:
    msk, ru
    Помогло es14.6. Но какого хрена 1pe14.6 выдачу портит??
     
  5. Vadim Maksimenko

    Vadim Maksimenko Well-Known Member

    Joined:
    Feb 12, 2000
    Messages:
    15,468
    Location:
    Vilnius, Lithuania
    Я тебя огорчу. Фортран большинство забыло нахрен.
     
  6. -exec-

    -exec- FH Consultant

    Joined:
    Jan 29, 2000
    Messages:
    24,690
    Location:
    xUSSR
    я вот эту мысль не понял. работает или портит?
     
  7. Charge

    Charge Well-Known Member

    Joined:
    Sep 5, 2003
    Messages:
    24,143
    Location:
    Moscow
    Первую выдачу срабатывает, последующие портит.
     
  8. -flank

    -flank Well-Known Member

    Joined:
    Sep 18, 2002
    Messages:
    10,641
    Location:
    Russia
    в 98ом году сдавал экзамена по фортрану77
    при выводе случайно записал write (*,8), долго не мог понять почему на экране какой то левый результат, в итоге получил ХОР
    только дома заметил у меня не нажался shift, должно было быть write (*,*) :)
     
  9. -exec-

    -exec- FH Consultant

    Joined:
    Jan 29, 2000
    Messages:
    24,690
    Location:
    xUSSR
    юзал бы PRINT *, ...
     
  10. bzdems

    bzdems Well-Known Member

    Joined:
    May 3, 2001
    Messages:
    10,144
    Location:
    msk, ru
    Виноват. Невнятно написал. Работает в смысле, что выдачу по формату "e" 0.861656E-10 правильно преобразует в 8.616557E-11 по формату "1pe". Портит последующую выдачу. 15.28 - глюк фортрана. Правильная выдача 1.53.
     
  11. -exec-

    -exec- FH Consultant

    Joined:
    Jan 29, 2000
    Messages:
    24,690
    Location:
    xUSSR
    у меня складывается ощущение, что 1п - это символьный литерал, и он будет приписываться спереди к любому выводу.

    мои знания тож, впрочем, на 77 фортране остановились.