Changeset 419 for branches/GRISLIv3

Timestamp:

04/24/23 11:42:50 (15 months ago)

Author:

dumas

Message:

intent arguments insubroutine next-time

File:

• branches/GRISLIv3/SOURCES/next-time.f90 (modified) (1 diff)

branches/GRISLIv3/SOURCES/next-time.f90

@@ -12 +12 @@
 subroutine next_time(time,dt,dtt,dtmax,dtmin,isynchro,itracebug,num_tracebug)
 
-  integer :: itracebug
-  integer :: num_tracebug
-  integer :: isynchro
-  real :: dt
-  real :: dtt
-  real :: dtmax
-  real :: dtmin
-  real  (kind=kind(0.d0)) :: time
+  integer, intent(in) :: itracebug
+  integer, intent(in) :: num_tracebug
+  integer, intent(out) :: isynchro
+  real, intent(out) :: dt
+  real, intent(in) :: dtt
+  real, intent(in) :: dtmax
+  real, intent(in) :: dtmin
+  real (kind=kind(0.d0)), intent(inout) :: time
+
+  ! local variables
   real (kind=kind(0.d0)) :: time_loc
   real (kind=kind(0.d0)) :: time2_loc