Create dot_allocate.f95