integer function f(M,N)integer::M,N,f,k,ik=(min(M,N)+1)/2do i=2,kif(mod(M,i)==0.and.mod(N,i)==0)thenf=iendenddoend
