f77 -O CUP.f