- Rearranged directory structure for forking out ANSTO
- Refactored site specific stuff into a site module - PSI specific stuff is now in the PSI directory. - The old version has been tagged with pre-ansto
This commit is contained in:
14
tecs/tecs_dlog.inc
Normal file
14
tecs/tecs_dlog.inc
Normal file
@@ -0,0 +1,14 @@
|
||||
integer version, recs, mdat, recl
|
||||
parameter (version=106, recs=1024, mdat=4, recl=mdat*recs)
|
||||
integer step,size,dirlen
|
||||
parameter (step=5, size=8*24*3600/step, dirlen=size/recs+1)
|
||||
real undef
|
||||
parameter (undef=-65535.0)
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user