akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору MBK2 Цитата: Я не пойму, вы стегаетесь | нет, я не садо-мазо... без какой _этой_ инициализации? вот мой пример использоваеия: Код: integer(ULONG) init(0:DIM_SIZE-1)/1, 634511, 17, 286, 8, 56789, & 10001, 33888, 1000000, 4000000, 55000000, & 1111, 99999933, 10, 14, 666/ integer(ULONG) i, j, N/10/ real*8 r call InitWELLRNG512(init) do i = 1, N r = WELLRNG512() write(*,'(F10.6)') r enddo END | как юзверь инициализирует init(), хоть штатным рандомом, хоть как, хоть кверху каком -- не моё собачье дело, я по ТЗ переписал две функи, всё... и да, я Цитата: | Всего записей: 24120 | Зарегистр. 06-12-2002 | Отправлено: 14:24 28-11-2023 | Исправлено: akaGM, 14:25 28-11-2023 |
|