すみません、どなたかこのプログラムは、どういった物か教えてください。
フォートランには、まだあまり詳しくないもので、お願いします。
PROGRAM
IMPLICIT NONE
REAL::X
INTEGER::I,M
INTEGER,DIMENSION(20)::DICE

DO I=1,20
DICE(I)=0
DICE(M)=0
END DO
CALL SEED(794)
DO I=1,20
CALL RANDOM(X)
M=INT(20*X)+1
DICE(M)=DICE(M)+1
END DO
DO I=1,20
WRITE(*,*)I,DICE(I)/100000.
END DO
STOP
END