diff --git a/src/caldate.f90 b/src/caldate.f90
index 81db3385059f4b5d0900c07dd31d10e27cc59fd2..9c93a52ba970f5b58ee3201f2d768c5771639cd7 100644
--- a/src/caldate.f90
+++ b/src/caldate.f90
@@ -41,10 +41,10 @@ subroutine caldate(juldate,yyyymmdd,hhmiss)
 
   julday=int(juldate)
 ! PS check to avoid 240000 as hhmiss:  
-  if ((xjuldate-julday)*86400._dp .ge. 86399.5_dp) then
+  if ((juldate-julday)*86400._dp .ge. 86399.5_dp) then
     juldate = juldate + juldate-julday-86399.5_dp/86400._dp
     julday=int(juldate)
-  end
+  endif
   if(julday.ge.igreg)then
     jalpha=int(((julday-1867216)-0.25)/36524.25)
     ja=julday+1+jalpha-int(0.25*jalpha)