PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/tecs/sys_date.f
+++ b/tecs/sys_date.f
@@ -0,0 +1,18 @@
+!!-----------------------------------------------------------------------------
+!!
+        subroutine SYS_DATE(YEAR, MONTH, DAY) !!
+!!      -------------------------------------
+!!
+!! get actual date
+!!
+        integer YEAR, MONTH, DAY !! 4-Digits year, month and day
+
+        integer tarray(9)
+        external time
+        integer time
+
+        call ltime(time(), 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