\ !|(^[Cc](\b|[^Oo])) " " ' ' TRUE FALSE NOT AND OR XOR EQV NEQV EQ NE GT GE LT LE block data CALL case common contains continue cycle data do elseif else elsewhere enddo endif end external forall function goto if implicit none include intrinsic kind len module program return save SELECT stop subroutine then type use where while backspace close inquire open rewind endfile read write print unit file iostat access blank fmt form recl status exist opened number named name sequential direct rec formatted unformatted nextrec pad position action delim readwrite eor advance nml adjustl adjustr all allocated any associated bit_size btest ceiling count cshift date_and_time digits dim dot_product dprod eoshift epsilon exponent floor fraction huge iand ibclr ibits ibset ieor ior ishft ishftc lbound len_trim matmul maxexponent maxloc maxval merge minexponent minloc minval modulo mvbits nearest pack present product radix random_number random_seed range repeat reshape rrspacing scale selected_int_kind selected_real_kind scan shape size spacing spread set_exponent tiny transpose trim ubound unpack verify precision sum system_clock abs acos aimag aint anint asin atan atan2 cos sin tan sinh cosh tanh exp log log10 sign sqrt int cmplx nint min max conjg char ichar index cabs ccos cexp clog csin csqrt dacos dasin datan datan2 dcos dcosh ddim dexp dint dlog dlog10 dmod dabs dnint dsign dsin dsinh dsqrt dtan dtanh iabs idim idnint isign idint ifix amax0 amax1 dmax1 max0 max1 amin0 amin1 dmin1 loc min0 min1 amod float sngl alog alog10 cdabs cdcos cdexp cdlog cdsin cdsqrt cqabs cqcos cqexp cqlog cqsin cqsqrt qacos qasin qatan qatan2 qcos qcosh qdim qexp iqint qlog qlog10 qmod qabs qnint qsign qsin qsinh qsqrt qtan qtanh qmax1 qmin1 dimag qimag dcmplx qcmplx dconjg qconjg gamma dgamma qgamma algama dlgama qlgama erf derf qerf erfc derfc qerfc dfloat zabs zcos zexp zlog zsin zsqrt REAL INTEGER CHARACTER LOGICAL COMPLEX DOUBLE PRECISION DOUBLE COMPLEX BYTE dimension parameter intent private optional pointer target allocatable \b([1-9][0-9]*|0)([Uu]([Ll]|LL|ll)?|([Ll]|LL|ll)[Uu]?)?\b \b([0-9]+[Ee][-]?[0-9]+|([0-9]*\.[0-9]+|[0-9]+\.)([Ee][-]?[0-9]+)?)[fFlL]? \b0[0-7]+([Uu]([Ll]|LL|ll)?|([Ll]|LL|ll)[Uu]?)?\b \b0[xX][0-9a-fA-F]+([Uu]([Ll]|LL|ll)?|([Ll]|LL|ll)[Uu]?)?\b