Colsystem.f