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

new version of tecs_dlog (now in fortran)

Browse Source
This commit is contained in:
cvs
2000-05-10 09:22:35 +00:00
parent 1f3d41a83e
commit 1329c3beb4
7 changed files with 486 additions and 437 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tecs/tecs_dlog.inc Normal file
View File

@@ -0,0 +1,9 @@
parameter version=104, recl=16
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