OPTIONS(/EXTERNAL:FORTRAN,RANDOM);
REAL PROCEDURE RANDOM(x,y); REAL x,y;