79 ADMIT ALLOCATE ASSIGN ATEND BACKSPACE BLOCKDATA CALL CASE CHARACTER CLOSE COMMON COMPLEX CONTINUE CYCLE DATA DEALLOCATE DIMENSION DO DOWHILE DOUBLECOMPLEX DOUBLEPRECISION ELSE ELSEIF END ENDATEND ENDBLOCK ENDDO ENDFILE ENDGUESS ENDIF ENDLOOP ENDMAP ENDSELECT ENDSTRUCTURE ENDUNION ENDWHILE ENTRY EQUIVALENCE EXECUTE EXTERNAL FORMAT FROM FUNCTION GOTO GUESS IF IMPLICIT INCLUDE INQUIRE INTEGER INTRINSIC LOGICAL LOOP MAP NAMELIST OPEN OTHERWISE PARAMETER PAUSE PRINT PROGRAM QUIT READ REAL RECORD REMOTEBLOCK RETURN REWIND SAVE SELECT STOP STRUCTURE SUBROUTINE THEN UNION UNTIL WHILE WRITE DO