Changeset 4540 for palm/trunk/SOURCE/time_to_string.f90

Timestamp:

May 18, 2020 3:23:29 PM (4 years ago)

Author:

raasch

Message:

files re-formatted to follow the PALM coding standard

File:

• palm/trunk/SOURCE/time_to_string.f90 (modified) (5 diffs)

palm/trunk/SOURCE/time_to_string.f90

@@ -1 +1 @@
 !> @file time_to_string.f90
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
 ! This file is part of the PALM model system.
 !
-! PALM is free software: you can redistribute it and/or modify it under the
-! terms of the GNU General Public License as published by the Free Software
-! Foundation, either version 3 of the License, or (at your option) any later
-! version.
+! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General
+! Public License as published by the Free Software Foundation, either version 3 of the License, or
+! (at your option) any later version.
 !
-! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
-! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
+! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
+! Public License for more details.
 !
-! You should have received a copy of the GNU General Public License along with
-! PALM. If not, see <http://www.gnu.org/licenses/>.
+! You should have received a copy of the GNU General Public License along with PALM. If not, see
+! <http://www.gnu.org/licenses/>.
 !
 ! Copyright 1997-2020 Leibniz Universitaet Hannover
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
+!
 !
 ! Current revisions:
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! File re-formatted to follow the PALM coding standard
+!
+!
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
-! 
+!
 ! 3655 2019-01-07 16:51:22Z knoop
 ! Corrected "Former revisions" section
@@ -37 +41 @@
 ! ------------
 !> Transforming the time from real to character-string hh:mm:ss
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------------------------!
  FUNCTION time_to_string( time )
- 
+
 
     USE kinds
@@ -45 +49 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=9) ::  time_to_string !< 
+    CHARACTER(LEN=9) ::  time_to_string  !<
 
-    INTEGER(iwp)      ::  hours   !< 
-    INTEGER(iwp)      ::  minutes !< 
-    INTEGER(iwp)      ::  seconds !< 
+    INTEGER(iwp)     ::  hours    !<
+    INTEGER(iwp)     ::  minutes  !<
+    INTEGER(iwp)     ::  seconds  !<
 
-    REAL(wp)          ::  rest_time !< 
-    REAL(wp)          ::  time      !< 
+    REAL(wp)         ::  rest_time  !<
+    REAL(wp)         ::  time       !<
 
 !
@@ -64 +68 @@
 !-- Build the string
     IF ( hours < 100 )  THEN
-       WRITE (time_to_string,'(I2.2,'':'',I2.2,'':'',I2.2)')  hours, minutes, &
-                                                              seconds
+       WRITE (time_to_string,'(I2.2,'':'',I2.2,'':'',I2.2)')  hours, minutes, seconds
     ELSE
-       WRITE (time_to_string,'(I3.3,'':'',I2.2,'':'',I2.2)')  hours, minutes, &
-                                                              seconds
+       WRITE (time_to_string,'(I3.3,'':'',I2.2,'':'',I2.2)')  hours, minutes, seconds
     ENDIF