--- trunk/IOIPSL/Calendar/itau2date.f90	2019/09/09 20:22:21	334
+++ trunk/IOIPSL/Calendar/itau2date.f90	2019/09/12 21:22:46	335
@@ -4,25 +4,20 @@
 
 contains
 
-  REAL FUNCTION itau2date (itau, date0, deltat)
+  double precision FUNCTION itau2date (itau, date0, deltat)
 
     ! This function transforms itau into a date. The date whith which
     ! the time axis is going to be labeled
 
-    use calendar
+    use calendar, only: un_jour
 
-    ! INPUT
-    !   itau: current time step
-    !   date0: Date at which itau was equal to 0
-    !   deltat: time step between itau s
-
-    ! OUTPUT
-    !   itau2date: Date for the given itau
-
-    INTEGER:: itau
-    REAL:: date0, deltat
+    INTEGER, intent(in):: itau ! current time step
+    double precision, intent(in):: date0 ! Date at which itau was equal to 0
+    real, intent(in):: deltat ! time step between itau s
+    
     !--------------------------------------------------------------------
-    itau2date = REAL(itau)*deltat/un_jour+date0
+
+    itau2date = REAL(itau) * deltat / un_jour + date0
 
   END FUNCTION itau2date