if(flagf)then
   goto 700
else
   return
endif