16 September 2022   9:29:36.490 PM

middle_square_test():
  Fortran90 version
  Test middle_square()

middle_square_next_test():
  middle_square_next ( s, d ) applies the middle square algorithm
  using a 2*d digit seed.

  Using d =  1

   0            47
   1            20
   2            40
   3            60
   4            60
   5            60
   6            60
   7            60
   8            60
   9            60
  10            60

  Using d =  2

   0          3647
   1          3006
   2           360
   3          1296
   4          6796
   5          1856
   6          4447
   7          7758
   8          1865
   9          4782
  10          8675

  Using d =  3

   0        483647
   1        914420
   2        163936
   3        875012
   4        646000
   5        316000
   6        856000
   7        736000
   8        696000
   9        416000
  10         56000

  Using d =  4

   0      47483647
   1      69673242
   2      36065079
   3      68992327
   4      94118487
   5      28959516
   6      65356695
   7      49758132
   8      87170012
   9      61099208
  10      11321822

  Using d =  5

   0    2147483647
   1    6860141324
   2    5389852524
   3    5102304691
   4    5131598006
   5    2980951831
   6     738187422
   7    9206699990
   8    3247058660
   9    3899414809
  10    4358526485

middle_square_test():
  Normal end of execution.

16 September 2022   9:29:36.490 PM