Помогите пожалуйста!!!! В универе задали написать программу, в которй необходим генератор случайных чисел. Сделать надо в Фортране 77. Всю программу написала и датчик задала через Randu, но значения прога выдает одно и тоже все время... Препод сказал, что нужен таймер (в качестве случайной величины - текущее время). Подскажите как сделать это???? И нужно ли подключать какую-то подпрограмму, чтобы заработал таймер???? 

Привожу код задания вектора случайными числами.

здесь gettim получает системное время, seed выдает случайную последовательность чисел, random (rn) выдает случайное число из последовательности. Переменные можно использовать real*4 или integer*4. C real*8 у самой проблемы.

Спасибо огромное!!! Немного поздно, но все равно спасибо! Мы уже сдали, правда другим запутанным способом задали этот датчик!