akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
implicit none
integer*4, parameter :: FP = 100
integer*4, parameter :: N = 1024
integer*4, parameter :: SIZEBUF = 4*N
real*4 headBuf(N)
character*1 modelLabel(12)
real*4 fileVersion
equivalence (headBuf(N-3), modelLabel)
equivalence (headBuf(N), fileVersion)
open(FP, file='mod4.bin', status='old', form='binary')
read(FP) headBuf
close(FP)
write(*,*) modelLabel
write(*,*) fileVersion
end |
Всего записей: 24120 | Зарегистр. 06-12-2002 | Отправлено: 17:59 20-03-2013 | Исправлено: akaGM, 18:04 20-03-2013 |
|
