move G,O calc to base
Merge directfortran