Create 4GRNNBCVDPI.f90