Changes in palm/trunk/SOURCE/random_function.f90 [1:3]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/random_function.f90
r1 r3 1 1 MODULE random_function_mod 2 !------------------------------------------------------------------------------ -!2 !------------------------------------------------------------------------------! 3 3 ! Actual revisions: 4 4 ! ----------------- … … 7 7 ! Former revisions: 8 8 ! ----------------- 9 ! $Log: random_function.f90,v $ 9 ! $Id$ 10 ! RCS Log replace by Id keyword, revision history cleaned up 11 ! 10 12 ! Revision 1.3 2003/10/29 09:06:57 raasch 11 13 ! Former function changed to a module. 12 !13 ! Revision 1.2 2001/01/22 08:00:23 raasch14 ! Comments translated into English15 14 ! 16 15 ! Revision 1.1 1998/02/04 16:09:45 raasch … … 22 21 ! Random number generator, produces numbers equally distributed in interval [0,1] 23 22 ! This routine is taken from the "numerical recipies" 24 !------------------------------------------------------------------------------ -!23 !------------------------------------------------------------------------------! 25 24 26 25 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.