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_function.f90

    r1343 r1682  
    1  MODULE random_function_mod
    2 
     1!> @file random_function.f90
    32!--------------------------------------------------------------------------------!
    43! This file is part of PALM.
     
    2019! Current revisions:
    2120! -----------------
    22 !
     21! Code annotations made doxygen readable
    2322!
    2423! Former revisions:
     
    5251! Description:
    5352! ------------
    54 ! Random number generator, produces numbers equally distributed in interval [0,1]
    55 ! This routine is taken from the "numerical recipies"
     53!> Random number generator, produces numbers equally distributed in interval [0,1]
     54!> This routine is taken from the "numerical recipies"
    5655!------------------------------------------------------------------------------!
     56 MODULE random_function_mod
     57 
    5758
    5859    USE kinds
     
    6465    PUBLIC random_function, random_function_ini
    6566
    66     INTEGER(iwp), PUBLIC, SAVE ::  random_iv(32)  !:
    67     INTEGER(iwp), PUBLIC, SAVE ::  random_iy      !:
     67    INTEGER(iwp), PUBLIC, SAVE ::  random_iv(32)  !<
     68    INTEGER(iwp), PUBLIC, SAVE ::  random_iy      !<
    6869
    6970    INTERFACE random_function_ini
     
    7778 CONTAINS
    7879
     80!------------------------------------------------------------------------------!
     81! Description:
     82! ------------
     83!> @todo Missing subroutine description.
     84!------------------------------------------------------------------------------!
    7985    SUBROUTINE random_function_ini
    8086
     
    9197       IMPLICIT NONE
    9298
    93        INTEGER(iwp) ::  ia               !:
    94        INTEGER(iwp) ::  idum             !:
    95        INTEGER(iwp) ::  im               !:
    96        INTEGER(iwp) ::  iq               !:
    97        INTEGER(iwp) ::  ir               !:
    98        INTEGER(iwp) ::  ndiv             !:
    99        INTEGER(iwp) ::  ntab             !:
     99       INTEGER(iwp) ::  ia               !<
     100       INTEGER(iwp) ::  idum             !<
     101       INTEGER(iwp) ::  im               !<
     102       INTEGER(iwp) ::  iq               !<
     103       INTEGER(iwp) ::  ir               !<
     104       INTEGER(iwp) ::  ndiv             !<
     105       INTEGER(iwp) ::  ntab             !<
    100106
    101        INTEGER(iwp) ::  j                !:
    102        INTEGER(iwp) ::  k                !:
     107       INTEGER(iwp) ::  j                !<
     108       INTEGER(iwp) ::  k                !<
    103109
    104        REAL(wp)     ::  am               !:
    105        REAL(wp)     ::  eps              !:
    106        REAL(wp)     ::  random_function  !:
    107        REAL(wp)     ::  rnmx             !:
     110       REAL(wp)     ::  am               !<
     111       REAL(wp)     ::  eps              !<
     112       REAL(wp)     ::  random_function  !<
     113       REAL(wp)     ::  rnmx             !<
    108114
    109115       PARAMETER ( ia=16807, im=2147483647, am=1.0_wp/im, iq=127773, ir=2836, &
Note: See TracChangeset for help on using the changeset viewer.