net_weak.f90 recreated