从网上搜集一些关于ultraedit+fortran高亮的设置，方便在win7 ultraedit下打开阅读fortran源码：

配置文件：

fortran90.unw.txt

/L20"Fortran 90" FORTRAN_LANG Line Comment = ! $ Nocase String Chars = "' FORTRAN_LANG File Extensions = F90 F77 FOR FTN F
/Delimiters = <a href="mailto:~!@%^&*()-+=|./{}[]:;"'" target="_blank">~!@%^&*()-+=|\/{}[]:;"'<> ,
/Function String = "%[ ^t]+^{PROGRAM^}^{SUBROUTINE^}*$"
/Function String 1 = "%[ ^ta-zA-Z0-9]++FUNCTION[ ^t]++[a-zA-Z_0-9]+[(]+*"
/Indent Strings = "THEN" "ELSE" "DO" "FORALL"
/Unindent Strings = "ENDIF" "ENDDO" "END IF" "END DO"
/C1"Statements"
ADMIT ALLOCATABLE ALLOCATE ASSIGN ASSIGNMENT AT
BACKSPACE BLOCK
CALL CASE CHARACTER CLOSE COMMON COMPLEX CONTAINS CONTINUE CYCLE
DATA DEALLOCATE DEFAULT DIMENSION DO DOUBLE
ELSE ELSEIF ELSEWHERE END ENDDO ENDFILE ENDIF ENDWHILE ENTRY EQUIVALENCE EXECUTE EXIT EXTERNAL
FORALL FORMAT FUNCTION
GO GOTO GUESS
IF IMPLICIT IN INOUT INQUIRE INTEGER INTENT INTERFACE INTRINSIC
KIND
LOGICAL LOOP
MAP MODULE
NAMELIST NONE NULLIFY
ONLY OPEN OPERATOR OPTIONAL OTHERWISE OUT
PARAMETER POINTER PRIVATE PROCEDURE PROGRAM PUBLIC
QUIT
READ REAL RECORD RECURSIVE REMOTE RESULT RETURN REWIND
SAVE SELECT SEQUENCE STOP STRUCTURE SUBROUTINE
TARGET THEN TO TYPE
UNION UNTIL USE
WHERE WHILE WRITE
/C2"Intrinsic Operators"
.AND. .EQ. .EQV. .GE. .GT. .LE. .LT. .NE. .NEQV. .NOT. .OR.
/C3"Functions"
ABS ACHAR ACOS ADJUSTL ADJUSTR AIMAG AINT ALL ALLOCATED ANINT ANY ASIN ASSOCIATED ATAN ATAN2
BIT_SIZE BREAK BTEST
CARG CEILING CHAR CMPLX CONJG COS COSH COUNT CSHIFT
DATE_AND_TIME DBLE DIGITS DIM DOT_PRODUCT DPROD DVCHK
EOSHIFT EPSILON ERROR EXP EXPONENT
FLOOR FLUSH FRACTION
GETCL
HUGE
IACHAR IAND IBCLR IBITS IBSET ICHAR IEOR INDEX INT INTRUP INVALOP IOR IOSTAT_MSG ISHFT ISHFTC
LBOUND LEN LEN_TRIM LGE LGT LLE LLT LOG LOG10
MATMUL MAX MAXEXPONENT MAXLOC MAXVAL MERGE MIN MINEXPONENT MINLOC MINVAL MOD MODULO MVBITS
NBREAK NDPERR NDPEXC NEAREST NINT NOT
OFFSET OVEFL
PACK PRECFILL PRECISION PRESENT PRODUCT PROMPT
RADIX RANDOM_NUMBER RANDOM_SEED RANGE REPEAT RESHAPE RRSPACING
SCALE SCAN SEGMENT SELECTED_INT_KIND SELECTED_REAL_KIND SET_EXPONENT SHAPE SIGN SIN SINH SIZE SPACING SPREAD SQRT SUM SYSTEM SYSTEM_CLOCK
TAN TANH TIMER TINY TRANSFER TRANSPOSE TRIM
UBOUND UNDFL UNPACK
VAL VERIFY
/C4"I/O statements"
ASSIGN
BACKSPACE
CLOSE
ENDFILE
OPEN
PAUSE PRINT
READ REWIND
WRITE
/C5"File Status"
ACCESS ACTION
BLANK BLOCKSIZE
CARRIAGECONTROL
DIRECT
ERR EXIST
FILE FMT FORM FORMATTED FROM
IOSTAT
LOCATION
NAME NAMED NEXTREC NUMBER
OPENED
POSITION
RECL RECORDTYPE
SEQUENTIAL STAT STATUS
UNFORMATTED UNIT
/C6"Preprocessor"
INCLUDE
/C7"Operators"
==
=
<
>
+
*
^
-
// /
!

&

将上述内容复制到C:UserszhouformeAppDataRoamingIDMCompUltraEditWORDFILE 文件的最后面，其中zhouforme需要改成自己电脑对应的用户名。

用ultraedit打开一个.f或.f90的fortran源码，Advanced->Configuration...->Editor Display->Syntax Highlighting 里面的Language: 选择下拉的Fortran 90即可。