********>Bugfix 28 Author: Dave Case Date: 1/3/2007 Programs: Sander Description: The random.F90 file in dcqtp contains stub routines that are not used, but may fail to compile because of type mismatches. Fix: apply the following patch to src/dcqtp/src/util/random.F90 ------------------------------------------------------------------------------ *** random.F90 3 Apr 2006 23:34:28 -0000 9.0 --- random.F90 3 Jan 2007 18:19:37 -0000 *************** *** 6,12 **** ! C----------------------------------------------------------CCC ! FUNCTION xrandom(idum) ! returns a random between 0.0 and 1.0 ! can be replaced by an intrinsic function, should be fixed --- 6,12 ---- ! C----------------------------------------------------------CCC ! double precision FUNCTION xrandom(idum) ! returns a random between 0.0 and 1.0 ! can be replaced by an intrinsic function, should be fixed ------------------------------------------------------------------------------ Temporary workarounds: None