linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

approved tecs_dlog, added sys_util.c

Browse Source
This commit is contained in:
cvs
2000-05-16 14:01:23 +00:00
parent d9cac91b81
commit 24ae65783a
17 changed files with 407 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
tecs/tecs_dlog.inc
View File

@@ -1,9 +1,11 @@
parameter version=104, recl=16
parameter version=106, recs=1024, mdat=4, recl=mdat*recs
parameter step=5, size=8*24*3600/step, dirlen=size/recs+1
parameter undef=-65535.0
integer lunw, lunl, lunr
integer vers, wrec, wpos, rrec, rlim, wlim, wn, rn, nl, lastx
integer wtim(0:recl-1), rtim(0:recl-1)
real wdat(0:recl-1), rdat(0:recl-1)
common/tecs_dlog_inc/ lunw, lunl, lunr
1, vers, wrec, wpos, rrec, rlim, wlim, wn, rn, nl, lastx
1, wtim, wdat, rtim, rdat
integer lunw, lunr, wrec, rrec
integer vers, stim, etim
logical update
real wdat(mdat,0:recs-1), rdat(mdat,0:recs-1)
integer wdir(0:dirlen-1), rdir(0:dirlen-1)
common/tecs_dlog_inc/ lunw, lunr, wrec, rrec
1, vers, stim, etim, update, wdat, rdat, wdir, rdir