Create 1GRNNGRR.f90