Ignore:
File:
1 edited

Legend:

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

    r1 r3  
    11 MODULE random_function_mod
    2 !-------------------------------------------------------------------------------!
     2!------------------------------------------------------------------------------!
    33! Actual revisions:
    44! -----------------
     
    77! Former revisions:
    88! -----------------
    9 ! $Log: random_function.f90,v $
     9! $Id$
     10! RCS Log replace by Id keyword, revision history cleaned up
     11!
    1012! Revision 1.3  2003/10/29 09:06:57  raasch
    1113! Former function changed to a module.
    12 !
    13 ! Revision 1.2  2001/01/22 08:00:23  raasch
    14 ! Comments translated into English
    1514!
    1615! Revision 1.1  1998/02/04 16:09:45  raasch
     
    2221! Random number generator, produces numbers equally distributed in interval [0,1]
    2322! This routine is taken from the "numerical recipies"
    24 !-------------------------------------------------------------------------------!
     23!------------------------------------------------------------------------------!
    2524
    2625    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.