subroutine abc common a,b 1 ,c a = 1 b = a 2 / c if(a .ge.b)a=1 3 +2 c = 2/3 print*,a,b,c end