Changeset 1682 for palm/trunk/SOURCE/local_getenv.f90

Timestamp:

Oct 7, 2015 11:56:08 PM (9 years ago)

Author:

knoop

Message:

Code annotations made doxygen readable

File:

• palm/trunk/SOURCE/local_getenv.f90 (modified) (4 diffs)

palm/trunk/SOURCE/local_getenv.f90

@@ -1 @@
- SUBROUTINE local_getenv( var, ivar, value, ivalue )
-
+!> @file local_getenv.f90
 !--------------------------------------------------------------------------------!
 ! This file is part of PALM.
@@ -20 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! Code annotations made doxygen readable
 ! Former revisions:
 ! -----------------
@@ -42 +41 @@
 ! Description:
 ! ------------
-! Getting the values of environment-variabls (for different operating-systems)
+!> Getting the values of environment-variabls (for different operating-systems)
 !------------------------------------------------------------------------------!
+ SUBROUTINE local_getenv( var, ivar, value, ivalue )
+ 
 
     USE kinds
@@ -50 +51 @@
     USE pegrid
 #endif
-    CHARACTER (LEN=*) ::  value  !:
-    CHARACTER (LEN=*) ::  var    !:
+    CHARACTER (LEN=*) ::  value  !<
+    CHARACTER (LEN=*) ::  var    !<
     
-    INTEGER(iwp)      ::  ivalue !:
-    INTEGER(iwp)      ::  ivar   !:
+    INTEGER(iwp)      ::  ivalue !<
+    INTEGER(iwp)      ::  ivar   !<
 #if defined( __lcmuk )
-    INTEGER(iwp)      ::  i      !:
-    INTEGER(iwp)      ::  ia(20) !:
+    INTEGER(iwp)      ::  i      !<
+    INTEGER(iwp)      ::  ia(20) !<
 #endif