Приборы и методика геофизического эксперимента : сборник научных трудов / Рос. акад. наук, Кол. науч. центр, Поляр. геофиз. ин-т. – Мурманск : [б. и.], 1997. – 166 с.

Короткое В. Г., Козепое Б. В., Леонтьев С. В. RECORD /kadr/ curkadr RECORD /’kadr/ aildatas [ALLOCATABLE] (: ) INTEGER*2 chann[ALLOCATABLE](:,:) INTEGER*4 timescan[ALLOCATABLE](:) INTEGER*1 o p t i m e (8) CHA R A C T E R * 64 filname CHARACTER* 8 convtime O P E N (3,F I L E = ' ',FO R M = 'B I N A R Y ',ERR=800) R E A D (3, IOSTAT=ioch) optime I N Q U I R E (3,NAME=filname) n=-l DO WHILE (ioch .NE. -1) READ(3, IOSTAT=ioch) curkadr n=n+l ENDDO W R I T E {*,*) 'Kadr number ',n W R I T E (*,*) 'One scan in' ,curkadr.t i m e d e l + 1 0 , ' seconds' C L O S E (3) ALLOCATE (aildatas(n), STAT = ierr) O P E N (3,FILE=filname,FORM='B I N A R Y ',E R R = 8 0 0 ) READ(3, IOSTAT=ioch) optime READ(3, ERR=800,IOSTAT=ioch) aildatas ALLOCATE (timescan(n), STAT = ierr) DO i=l,n timescan(i)= (aildatas(i).s c a n (1).time(1)+ - aildatas(i).s c a n (1).t i m e (2)*256**2)/18.2 ENDDO WRITE(*,*) 'Initial time: ',convtime(timescan (1)) W R I T E (*,*) 'Ending time: ',convtime(timescan (n)) nchan=l ALLOCATE (c h a n n (224,n ) , STAT = ierr) DO i=l,n DO j=l,7 DO k=l,32 c h a n n ( k + 3 2 * (j— 1),i)=alldatas(i) .s c a n (j ) .datas(nchan,k) ENDDO ENDDO ENDDO RETURN 800 W R I T E (*,*) ' Error reading ', filname END CHARACTER*8 FUNCTION convtime(t) INTEGER*4 t W R I T E ( c o n v t i m e , 1 (i2,al,i2,al,i2)') INT(t/3600),':', - INT(t/60-60*INT(t/3600)),':', INT(t-60*INT4 (t/60)) END 2 0