Update 3GRNNDPI.f90