Create ncommon.f90