diff --git a/cutil.c b/cutil.c
index c0de1afb7..e7476eda2 100644
--- a/cutil.c
+++ b/cutil.c
@@ -67,7 +67,11 @@ int exit_(int *n)
   printf("\n\n");
   exit(*n);
 }
-
+struct tm *
+gmtime_r_(const time_t *clock, struct tm *result)
+{
+  gmtime_r(clock, result);
+}
 time_t time_(void)
 {
      return time(0);
diff --git a/get_fname.F90 b/get_fname.F90
index f33f5d44d..0c7ee1468 100644
--- a/get_fname.F90
+++ b/get_fname.F90
@@ -5,6 +5,7 @@ subroutine get_fname(hiscall,ntime,trperiod,lauto,fname)
   use dfport
 #endif
 
+  external gmtime_r
   character hiscall*12,fname*24,tag*7
   integer ntime
   integer trperiod
@@ -13,7 +14,7 @@ subroutine get_fname(hiscall,ntime,trperiod,lauto,fname)
   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)