J=0 1 CALL SUBR(J) WRITE(4,10)J 10 FORMAT(1X,I3) GO TO 1 END