threelevel.f95