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

Initial commit

Browse Source
This commit is contained in:
zolliker
2022-08-19 15:22:33 +02:00
commit d682fae506
545 changed files with 48172 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
unix/sys3.f Normal file
View File

@ -0,0 +1,26 @@
!!-----------------------------------------------------------------------------
!!
subroutine SYS_DIR(PATH, ROUTINE, ARG) !!
!! --------------------------------------
!!
character*(*) PATH !! wildcard file specification
external ROUTINE !! routine to call with all matching files
integer ARG !! argument for ROUTINE
character file*128, user*32, line*128, line0*128
integer l, lun, cnt, pid, kill
call sys_temp_name('clnup', file)
call sys_delete_file(file)
call sys_cmd('ls -alt '//path//' > '//file)
call sys_get_lun(lun)
line0=' '
open(lun, file=file, status='old', readonly, err=9)
1 read(lun, '(a)', end=2) line
call str_trim(line,line,l)
call routine(line, arg)
goto 1
2 close(lun)
9 call sys_free_lun(lun)
call sys_delete_file(file)
end