Ignore:
Timestamp:
Oct 7, 2015 11:56:08 PM (6 years ago)
Author:
knoop
Message:

Code annotations made doxygen readable

File:
1 edited

Legend:

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

    r1343 r1682  
    1  FUNCTION random_gauss( idum, upper_limit )
    2 
     1!> @file random_gauss.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    4948! Description:
    5049! ------------
    51 ! Generates a gaussian distributed random number (mean value 1, sigma = 1)
    52 ! This routine is taken from the "numerical recipies".
     50!> Generates a gaussian distributed random number (mean value 1, sigma = 1)
     51!> This routine is taken from the "numerical recipies".
    5352!------------------------------------------------------------------------------!
     53 FUNCTION random_gauss( idum, upper_limit )
     54 
    5455
    5556    USE kinds
     
    6061    IMPLICIT NONE
    6162
    62     INTEGER(iwp) ::  idum          !:
    63     INTEGER(iwp) ::  iset          !:
     63    INTEGER(iwp) ::  idum          !<
     64    INTEGER(iwp) ::  iset          !<
    6465
    65     REAL(wp)     ::  fac           !:
    66     REAL(wp)     ::  gset          !:
    67     REAL(wp)     ::  random_gauss  !:
    68     REAL(wp)     ::  rsq           !:
    69     REAL(wp)     ::  upper_limit   !:
    70     REAL(wp)     ::  v1            !:
    71     REAL(wp)     ::  v2            !:
     66    REAL(wp)     ::  fac           !<
     67    REAL(wp)     ::  gset          !<
     68    REAL(wp)     ::  random_gauss  !<
     69    REAL(wp)     ::  rsq           !<
     70    REAL(wp)     ::  upper_limit   !<
     71    REAL(wp)     ::  v1            !<
     72    REAL(wp)     ::  v2            !<
    7273
    7374    SAVE  iset, gset
Note: See TracChangeset for help on using the changeset viewer.