xlf -g -c -qdpc=e nucleimpi.f
