constant_random fails on Fujitsu

[Ryusuke Numata]

I'm using Fujitsu FX100 @ NIFS, Japan. Fujitsu compiler gives the following error for constant_random.f90. I guess this problem may be avoided by a compiler option, but I haven't looked into it. For now, I just report this happens.

mpifrtpx -X9 -C cdRR8 -O3 -Kfast -I. -Iutils -Igeo -I.. -c utils/constant_random.f90 Fortran diagnostic messages: program name(constant_random) Module subprogram name(set_random_array) jwd2531i-s "utils/constant_random.f90", line 29: Size of work area exceeds compiler limit. make: *** [constant_random.o] Error 1

The Fujitsu compiler is not listed as a supported compiler. But, it is currently one of the major compilers in Japan. So, I want it to be taken care of.

[Joseph Parker]

Thanks for raising this. The problem is the compiler won't allocate a vector that is 10000 entries long, and I think you're right that it will just be setting a flag. For reference the manual is here, but I can't see a useful flag. Maybe it's best to raise this with the NIFS sysadmin? They may have seen this problem before.

[Ryusuke Numata]

Fujitsu support told me that there's no option to resolve this, but advised me to break the statement into two as attached. It works fine, and has no side effect. Please consider to make this change. Thanks.

[Joseph Parker]

Write definition of random_array in to two parts

This is a workaround for Fujitsu compilers, which cannot use arrays larger than 10000 elements.

Thanks to Ryusuke Numata for the fix!

Addresses #6

→ <<cset 101dc3867dd1>>