reentrent pseudo-random number generator for fortran

To produce random numbers, I generally use ran2() as discussed in numerical receipts. However, this function is not suitable for parallel computing (multi threads), since this function is not reentrent function. I wonder if any one can help me with a reentrent version of ran2()?