akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
implicit real*8 (a-h,o-z) ! маздай
character*100 fninp4 /'eop_ba_d.bin'/
dimension eop(3), cor_nut(2)
kan_1 = 100
lenrec=4*1+8*5
open ( unit=kan_1, file=fninp4,
1 status='old', err=22, access='direct',
2 form='unformatted', recl=lenrec )
lenrec=8*5
! mj=mjd1
! n=0
! m1=mjd1-mjd_l+1
! m2=mjd2-mjd_l+1
m1 = 1
m2 = 5
do 8 m=m1,m2
read ( unit=kan_1, err=25, rec=m ) mjd, eop, cor_nut
! if (mjd.ne.mj) go to 25
! n=n+1
! write ( unit=kan_r(2), err=29, rec=n ) eop, cor_nut
8 mj=mj+1
close(kan_1)
stop
22 write(*,*) 'open error'
stop
25 write(*,*) 'read error'
end
|
Всего записей: 24120 | Зарегистр. 06-12-2002 | Отправлено: 00:47 11-08-2011 | Исправлено: akaGM, 02:56 11-08-2011 |
|
