6 C This generate random number between XMIN and XMAX
7 FUNCTION HIRND2(I,XMIN,XMAX)
11 IF(XMIN.LT.XX(I,1)) XMIN=XX(I,1)
12 IF(XMAX.GT.XX(I,201)) XMAX=XX(I,201)
13 JMIN=1+200*(XMIN-XX(I,1))/(XX(I,201)-XX(I,1))
14 JMAX=1+200*(XMAX-XX(I,1))/(XX(I,201)-XX(I,1))
15 RX=RR(I,JMIN)+(RR(I,JMAX)-RR(I,JMIN))*RLU_HIJING(0)
18 10 IF(JU-JL.GT.1) THEN
20 IF((RR(I,201).GT.RR(I,1)).EQV.(RX.GT.RR(I,JM))) THEN
30 HIRND2=(XX(I,J)+XX(I,J+1))/2.0