allocateにラッパを被せたいのだが、Fortran90の仕様では無理？
配列を割り付けて、そのポインタを返し、
返り値statを見て、エラー処理をしたいのだが。