Ignore:
Timestamp:
Jul 8, 2020 9:56:29 AM (13 months ago)
Author:
raasch
Message:

files re-formatted to follow the PALM coding standard

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/random_gauss.f90

    r4360 r4592  
    11!> @file random_gauss.f90
    2 !------------------------------------------------------------------------------!
     2!--------------------------------------------------------------------------------------------------!
    33! This file is part of the PALM model system.
    44!
    5 ! PALM is free software: you can redistribute it and/or modify it under the
    6 ! terms of the GNU General Public License as published by the Free Software
    7 ! Foundation, either version 3 of the License, or (at your option) any later
    8 ! version.
     5! PALM is free software: you can redistribute it and/or modify it under the terms of the GNU General
     6! Public License as published by the Free Software Foundation, either version 3 of the License, or
     7! (at your option) any later version.
    98!
    10 ! PALM is distributed in the hope that it will be useful, but WITHOUT ANY
    11 ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
    12 ! A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
     9! PALM is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the
     10! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
     11! Public License for more details.
    1312!
    14 ! You should have received a copy of the GNU General Public License along with
    15 ! PALM. If not, see <http://www.gnu.org/licenses/>.
     13! You should have received a copy of the GNU General Public License along with PALM. If not, see
     14! <http://www.gnu.org/licenses/>.
    1615!
    1716! Copyright 1997-2020 Leibniz Universitaet Hannover
    18 !------------------------------------------------------------------------------!
     17!--------------------------------------------------------------------------------------------------!
     18!
    1919!
    2020! Current revisions:
    2121! -----------------
    22 ! 
    23 ! 
     22!
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! File re-formatted to follow the PALM coding standard
     28!
     29! 4360 2020-01-07 11:25:50Z suehring
    2730! Corrected "Former revisions" section
    28 ! 
     31!
    2932! 3655 2019-01-07 16:51:22Z knoop
    3033! Corrected "Former revisions" section
     
    3437!
    3538!
     39!--------------------------------------------------------------------------------------------------!
    3640! Description:
    3741! ------------
    3842!> Generates a gaussian distributed random number (mean value 1, sigma = 1)
    3943!> This routine is taken from the "numerical recipies".
    40 !------------------------------------------------------------------------------!
     44!--------------------------------------------------------------------------------------------------!
    4145 FUNCTION random_gauss( idum, upper_limit )
    42  
     46
    4347
    4448    USE kinds
    4549
    46     USE random_function_mod,                                                   &
     50    USE random_function_mod,                                                                       &
    4751        ONLY:  random_function
    4852
     
    6569
    6670!
    67 !-- Random numbers are created as long as they do not fall below the given
    68 !-- upper limit
     71!-- Random numbers are created as long as they do not fall below the given upper limit
    6972    DO
    7073
Note: See TracChangeset for help on using the changeset viewer.