1 C NBLEN-  Compute string length without trailing blanks
 2 C
 3 C Declarations
 4 C
 5           INTEGER FUNCTION NBLEN(STRING)
 6           IMPLICIT INTEGER (A-Z)
 7           CHARACTER*(*) STRING
 8 C
 9           NBLEN=LEN(STRING)                       ! get nominal length
10 100       IF(NBLEN.LE.0) RETURN                             ! any string left?
11           IF(STRING(NBLEN:NBLEN).NE.' ') RETURN   ! found a non-blank?
12           NBLEN=NBLEN-1                                     ! no, trim len by 1
13           GO TO 100                               ! and continue.
14 C
15           END
16 C page
17 C
18 C RND - Return a random integer mod n
19 C
20           INTEGER FUNCTION RND (N)
21           IMPLICIT INTEGER (A-Z)
22           REAL RAN
23           COMMON /SEED/ RNSEED
24 
25 C old     RND = RAND(0)*FLOAT(N)
26           call random_$uniform (RAN)
27           rnd = ran * float (n)
28           RETURN
29 
30           END
31 C
32 C INIRND - Initialize random number seed
33 C
34           SUBROUTINE INIRND (LOW, HIGH)
35           IMPLICIT INTEGER (A-Z)
36           COMMON /SEED/ RNSEED
37 
38 C old     CALL SRAND((ISHFT(HIGH,16)+LOW).OR.1)
39           call random_$set_seed (INT(OR(HIGH*65536+LOW,1)))
40           RETURN
41 
42           END