Create 3GRNNDPI.f90