判断一维数组的元素的大小，并输出该数的位置

1 program main
2 implicit real (a-h,o-z)
3 implicit integer (i-n)
4 real :: x(100)
5 call random_seed()
6 cxll random_number(x)
7 xmin = minval(x) ! get min
8 loc = minloc(x,1) ! get the location
9 write(*,'(6f8.5)') x
10 write(*,*) xmin,loc
11 stop
12 end