Create when.f90