推 lenakaho:感謝您~已找到老師教我了<(_ _)> 140.112.68.132 11/08 13:27
請 e-mail 檔案給我
fortran 的 source- code
和 那個 binary file
我儘快幫你看看
同時會附上 詳細的說明
e-mail: sjgau4311@gmail.com
or link to:
http://groups.google.com/group/ntust_f90?hl=zh-TW&lnk=li
※ 引述《lenakaho (ickc)》之銘言：
: 以下是全文 14000001.000是binary形式
: ---
: character*1 bb(2048)
: integer ns(1024)
: open(14,film='14000001.000',form='binary')
: read(*,*) (bb(k),k=1,760)
: nb1=256
: 130 do k=1,nb1
: k2=k*2
: k1=k2-1
: ms=ichar(bb(k2))
: ns(k)=ichar(bb(k1))+256*mod(ms,16)
: ni=ms/128
: na=ms/16-ni*8
: 200 continue
: go to 130
: stop
: end
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 211.77.241.1