Changeset 1036 for palm/trunk/SOURCE/data_output_dvrp.f90

Timestamp:

Oct 22, 2012 1:43:42 PM (12 years ago)

Author:

raasch

Message:

code has been put under the GNU General Public License (v3)

File:

• palm/trunk/SOURCE/data_output_dvrp.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_dvrp.f90

@@ -1 @@
- MODULE dvrp_color
-
-    USE dvrp_variables
-
-    IMPLICIT NONE
-
- CONTAINS
-
-    SUBROUTINE color_dvrp( value, color )
-
-       REAL, INTENT(IN)  ::  value
-       REAL, INTENT(OUT) ::  color(4)
-
-       REAL              ::  scale
-
-       scale = ( value - slicer_range_limits_dvrp(1,islice_dvrp) ) / &
-               ( slicer_range_limits_dvrp(2,islice_dvrp) -           &
-                 slicer_range_limits_dvrp(1,islice_dvrp) )
-
-       scale = MODULO( 180.0 + 180.0 * scale, 360.0 )
-
-       color = (/ scale, 0.5, 1.0, 0.0 /)
-
-    END SUBROUTINE color_dvrp
-
- END MODULE dvrp_color
-
-
- RECURSIVE SUBROUTINE data_output_dvrp
-
-!------------------------------------------------------------------------------!
+!--------------------------------------------------------------------------------!
+! This file is part of PALM.
+!
+! 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.
+!
+! 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-2012  Leibniz University Hannover
+!--------------------------------------------------------------------------------!
+!
 ! Current revisions:
 ! -----------------
@@ -77 +63 @@
 ! Plot of isosurface, particles and slicers with dvrp-software
 !------------------------------------------------------------------------------!
+
+ MODULE dvrp_color
+
+    USE dvrp_variables
+
+    IMPLICIT NONE
+
+ CONTAINS
+
+    SUBROUTINE color_dvrp( value, color )
+
+       REAL, INTENT(IN)  ::  value
+       REAL, INTENT(OUT) ::  color(4)
+
+       REAL              ::  scale
+
+       scale = ( value - slicer_range_limits_dvrp(1,islice_dvrp) ) / &
+               ( slicer_range_limits_dvrp(2,islice_dvrp) -           &
+                 slicer_range_limits_dvrp(1,islice_dvrp) )
+
+       scale = MODULO( 180.0 + 180.0 * scale, 360.0 )
+
+       color = (/ scale, 0.5, 1.0, 0.0 /)
+
+    END SUBROUTINE color_dvrp
+
+ END MODULE dvrp_color
+
+
+ RECURSIVE SUBROUTINE data_output_dvrp
+
 #if defined( __dvrp_graphics )