Update init.f90