i wanna make rand number without using functions
PROGRAM RTEST PARAMETER (N=100) IMPLICIT REAL(A-H,O-Z), INTEGER(I-N) DIMENSION A(N) OPEN(99,FILE=\'RA