The method should be the same. I use the green version of ultraedit 16.00.0.1032 and Windows 7.
Open the directory where ultraedit is located and create a new file under wordfiles. The content is as follows:
/L14 "Fortran 90" nocase line comment num = 2! Line comment alt = !! String chars = "'disablemls file extensions = f90 for FTN F
/Delimiters = ~ ! @ % ^ & * ()-+ = | // {} []:; "'<>,
/Function string = "^ (^ {subroutine ^} ^ {function ^} [^ t] + [A-Z0-9 _] + ^ )("
/Indent strings = "then" "else" "do" "forall" "case"
/Unindent strings = "else" "end if" "end do" "endif" "enddo" "End select"
/Open brace strings = "(""["
/Close brace strings = ")" "]"
/Open fold strings = "function" "module" "program" "subroutine" "then" "else" "do" "select"
/Close fold strings = "end function" "end module" "End program" "End subroutine" "else" "end if" "end do" "End select"
/C1 "statements"
Allocatable allocate assignment
Block
Call case character common complex contains continue cycle
Data deallocate dimension do double
Elemental else elseif elsewhere end enddo endif entry equivalence exit external
Forall format Function
Go GOTO
If implicit in inout inquire integer intent interface intrinsic
Logical
Module
Namelist none nullify
Only operator optional out
Parameter pointer precision Private Procedure program public pure
Real recursive result return
Save select sequence stop subroutine
Target then to type
Use
Where while
/C2 "intrinsic operators"
. And... Eq... eqv... false... Ge... gt... Le... lt... ne... neqv... not... or... true.
/C3 "functions + subroutines"
ABS Achar ACOs adjustl adjustr aimag aint all allocated anint any asin associated atan atan2
Bit_size btest
CARG ceiling char cmplx conjg cos cosh count cpu_time cshift
Date_and_time dble digits dim dot_product dprod
Eoshift Epsilon exp Exponent
Float floor Fraction
Huge
Iachar Iand ibclr ibits ibset ichar ieor iFIX index int ior ishft ishftc
Kind
Lbound Len len_trim lge lgt lle llT log log10 lshift
Matmul Max maxexponent maxloc maxval merge min minexponent minloc minval mod modulo mvbits
Nearest nint not null
Pack present product
Radix random_number random_seed range repeat reshape
Scale scan selected_int_kind selected_real_kind set_exponent shape sign sin Sinh size spacing spread SQRT
Sum system_clock
Tan Tanh tiny transfer transpose trim
Ubound unpack
Verify
/C4 "I/O statements"
Backspace
Close
Endfile
Open
Print
Read rewind
Write
/C5 "File status"
Access action apostrophe append Asis
Blank
Delim direct
Err exist
File FMT form formatted from
Iostat
Location
Name named new nextrec no number
Old opened
Pad position
Quote
Readwrite recl replace
Scratch sequential stat status
Unformatted unit unknown
Yes
Zero
/C6 "Preprocessor"
Include
/C7 "operators"
*
+
-
///
<
=
>
/C8 "Continue line"
&
Save it as Fortran. UEW: On the ultraedit page, select "advanced"-"configuration", select "highlighted Syntax" in "Editor" in "navigation", and browse the complete directory of the document, for example, D:/program files/ultraedit/wordfiles, select "enable syntax color display", and click OK.
Restart ultraedit and select View> View Mode (highlighted file type)> Fortran 90, OK!