[Dart-dev] [5638] DART/branches/development/random_seq/random_seq_mod.f90: Makes the XLF compiler happy.

[nancy at ucar.edu]

Revision: 5638
Author:   thoar
Date:     2012-04-02 10:50:46 -0600 (Mon, 02 Apr 2012)
Log Message:
-----------
Makes the XLF compiler happy.

Modified Paths:
--------------
    DART/branches/development/random_seq/random_seq_mod.f90

-------------- next part --------------
Modified: DART/branches/development/random_seq/random_seq_mod.f90
===================================================================
--- DART/branches/development/random_seq/random_seq_mod.f90	2012-04-02 16:17:00 UTC (rev 5637)
+++ DART/branches/development/random_seq/random_seq_mod.f90	2012-04-02 16:50:46 UTC (rev 5638)
@@ -195,7 +195,7 @@
 sd = seed
 if (sd == 0) sd = 4357   ! do not allow seed to be 0, use default
 
-s%mt(0) = iand(sd, FULL32_MASK)
+s%mt(0) = iand(int(sd,i8), FULL32_MASK)
 
 ! See Knuth's "Art of Computer Programming" Vol. 2, 3rd Ed. p.106 
 ! for multiplier.