C ! * ! D " " ' ' ( ) <= >= > < & /= == => % .lt. .gt. .eq. .ne. .le. .ge. .AND. .OR. END[[:space:]]*SUBROUTINE SUBROUTINE END[[:space:]]*FUNCTION FUNCTION END[[:space:]]*PROGRAM PROGRAM END[[:space:]]*MODULE MODULE END[[:space:]]*INTERFACE INTERFACE END[[:space:]]*TYPE TYPE REA L DOUBLE PRECISION IMPLICIT NONE INCLUDE PROGRAM MODULE INTERFACE SUBROUTINE SUBROUTINE FUNCTION CONTAINS USE ONLY CALL RETURN TYPE SAVE IMPLICIT EXPLICIT DATA PUBLIC PRIVATE PARAMETER INTEGER REAL COMPLEX LOGICAL CHARACTER DIMENSION KIND POINTER ALLOCATABLE INTENT ALLOCATE ALLOCATED DEALLOCATE CASE SELECT DEFAULT CONTINUE CYCLE DO WHILE ELSE IF IFDEF ELSEIF THEN ELSEWHERE END ENDIF ENDDO FORALL WHERE EXIT GOTO PAUSE STOP BACKSPACE CLOSE ENDFILE INQUIRE OPEN PRINT READ REWIND WRITE FORMAT AIMAG AINT AMAX0 AMIN0 ANINT CEILING CMPLX CONJG DBLE DCMPLX DFLOAT DIM DPROD FLOAT FLOOR IFIX IMAG INT MODULO NINT SIGN SNGL TRANSFER ZEXT ABS ACOS AIMAG AINT ALOG ALOG10 AMAX0 AMAX4 AMIN0 AMIN1 AMOD ANINT ASIN ATAN ATAN2 CABS CCOS CHAR CLOG CMPLX CONJG COS COSH CSIN CSQRT DABS DACOS DASIN DATAN DATAN2 DBLE DCOS DCOSH DDIM DEXP DIM DINT DLOG DLOG10 DMAX1 DMIN1 DMOD DNINT DPROD DREAL DSIGN DSIN DSINH DSQRT DTAN DTANH EXP FLOAT IABS ICHAR IDIM IDINT IDNINT IFIX INDEX INT ISIGN LEN LGE LGT LLE LLT LOG LOG10 MAX MAX0 MAX1 MIN MIN0 MIN1 MOD NINT SIGN SIN SINH SNGL SQRT TAN TANH .FALSE. .TRUE. BLANK LBOUND UBOUND SHAPE SIZE MERGE PACK UNPACK RESHAPE SPREAD CSHIFT EOSHIFT TRASPOSE MAXLOC MINLOC NULL DATE_AND_TIME SYSTEM_CLOCK CPU_TIME RANDOM_NUMBER RANDOM_SEED ANY ALL MAXVAL MINVAL PRODUCT SUM COUNT ADJUSTL ADJUSTR TRIM LEN_TRIM SCAN VERIFY REPEAT DIGITS EPSILON HUGE TINY MAXEXPONENT MINEXPONENT PRECISIOn RADIX RANGE FRACTION NEAREST RRSPACING SCALE SET_EXPONENT SPACING SELECTED_INT_KIND SELECTED_REAL_KIND BIT_SIZE BTEST IAND IBCLR IBITS IBSET IEOR IOR ISHFT ISHFTC MVBITS DOT_PRODUCT MATMUL