1 files changed, 19 insertions, 0 deletions
diff --git a/comms/wsjt/files/patch-get_fname.F90 b/comms/wsjt/files/patch-get_fname.F90
new file mode 100644
index 000000000000..6dc915a58671
--- /dev/null
+++ b/comms/wsjt/files/patch-get_fname.F90
@@ -0,0 +1,19 @@
+--- get_fname.F90.orig	Mon Dec 11 10:38:21 2006
++++ get_fname.F90	Mon Dec 11 10:38:42 2006
+@@ -5,6 +5,7 @@
+   use dfport
+ #endif
+ 
++  external gmtime_r
+   character hiscall*12,fname*24,tag*7
+   integer ntime
+   integer trperiod
+@@ -13,7 +14,7 @@
+   n1=ntime
+   n2=(n1+2)/trperiod
+   n3=n2*trperiod
+-  call gmtime(n3,it)
++  call gmtime_r(n3,it)
+   it(5)=it(5)+1
+   it(6)=mod(it(6),100)
+   write(fname,1000) (it(j),j=6,1,-1)