GEN: adjac.f95