soc_init.f90 4.25 KB