Initial commit

2022-08-19 15:22:33 +02:00
commit d682fae506
545 changed files with 48172 additions and 0 deletions
--- a/unix/sys_date.f
+++ b/unix/sys_date.f
@ -0,0 +1,21 @@
+!!-----------------------------------------------------------------------------
+!!
+        subroutine SYS_DATE(YEAR, MONTH, DAY) !!
+!!      -------------------------------------
+!!
+!! get actual date
+!!
+        integer YEAR, MONTH, DAY !! 4-Digits year, month and day
+
+        integer tarray(9)
+        external sys_time
+        integer sys_time
+
+	integer t
+
+	t=sys_time()
+        call ltime(t, tarray)
+        day=tarray(4)
+        month=tarray(5)+1   ! tarray(5): months since january (0-11)!
+        year=tarray(6)+1900 ! tarray(6): years since 1900, no y2k problem
+        end