powtwo.f求取2的n次幂的源码