用 vim 写 fortran 程序

写 C/C++ 的编辑器或 IDE 非常多，能较好支持 Fortran 的编辑器则少了很多。一方面，Fortran 主要是一种科学计算语言，受众较窄，另一方面，其语法和格式有些特殊性，比如格式就有固定格式 (F77) 和自由格式 (F90/F95) 两种。

Windows 下，CVF，IVF 和 PGI 都是集成到 Microsoft Visual Stdio 中编辑和编译，Linux 下则没有现成的可视的编译环境。无论是 CVF 还是 MVS，编辑 Fortran 的能力都比较弱，高亮显示，自动匹配，自动缩进等都不能令人满意。因此，写 Fortran 程序的第一步，寻找和配置一个高效的编辑器，然后再在已有编译环境或者是配置的编译环境里进行编译，调试和运行。

Vim 和 Emacs 都自带 Fortran 的高亮和自动缩进功能，其中 Emacs 缩进功能更加完善，规范排版的效果更好，而 Vim 则存在一些小问题，如 program 和 subroutine 内没有缩进，没有环境的自动补全等。熟悉 Emacs 的可直接用 Emacs，喜欢 Vim 的需要做一点准备工作。

1、_vimrc 里加上格式匹配和语法高亮的语句

Vim配置: _vimrc

01 "fortran
02 let s:extfname = expand( "%:e")
03 if s:extfname == ? "f90"
04     let fortran_free_source = 1
05     unlet ! fortran_fixed_source
06 else
07     let fortran_fixed_source = 1
08     unlet ! fortran_free_source
09 endif
10 let fortran_more_precise = 1
11 let fortran_do_enddo = 1
12 "去掉固定格式每行开头的红色填充
13 let fortran_have_tabs = 1
14 "允许折叠
15 let fortran_fold = 1
16 let fortran_fold_conditionals = 1
17 "折叠方式
18 set foldmethod = syntax

02-09 行是根据文件后缀名匹配格式，10-11 是进行语法的缩进和高亮匹配，15-18 是允许折叠和折叠格式。这些都可以在 Vim 的帮助文件中找到。

2、安装 fortran_codecomplete.vim : Complete fortran constructs with <F7>
http://www.vim.org/scripts/script.php?script_id=2487
下载后扔到 vimfiles/ftplugin 。

3、安装 fortran.vim : Additional indentation rules for Fortran 95 and Fortran 90
http://www.vim.org/scripts/script.php?script_id=2299
下载后扔到 vimfiles/after/indent/ ，不存在文件夹的话可以自己建立。

4、修改 fortran.vim
打开第三步下载的 fortran.vim 文件，看开头部分的说明，就可以知道这个插件提供的加强缩进功能是针对 subroutine、function 和 forall 的，没有 program 和 module，只能手动添加了。看不懂代码不要紧，搜索 subroutine 所在行，照格式加上就成了。

Vim配置: fortran.vim

01 " Vim indent file
02 " Language:     Fortran 95, Fortran 90 (free source form)
03 " Description:  Indentation rules for continued statements and preprocessor
04 "               instructions
05 "               Indentation rules for subroutine, function and forall
06 "               statements
07 " Installation: Place this script in the $HOME/.vim/after/indent/ directory
08 "               and use it with Vim 7.1 and Ajit J. Thakkar's Vim scripts
09 "               for Fortran (http://www.unb.ca/chem/ajit/)
10 " Maintainer:   Sébastien Burton <[email protected]>
11 " License:      Public domain
12 " Version:      0.3.1
13 " Last Change:  2008 Sep 22
14
15 " Modified indentation rules are used if the Fortran source code is free
16 " source form, else nothing is done
17 if (b :fortran_fixed_source != 1)
18     setlocal indentexpr = SebuFortranGetFreeIndent()
19     setlocal indentkeys +==~ subroutine ,=~ function ,=~ forall ,=~ program ,=~ module
20     setlocal indentkeys +==~ endsubroutine ,=~ endfunction ,=~ endforall ,=~ endprogram ,=~ endmodule
21     " Only define the functions once
22     if exists( "*SebuFortranGetFreeIndent")
23         finish
24     endif
25 else
26     finish
27 endif
28
29
30 " SebuFortranGetFreeIndent() is modified FortranGetFreeIndent():
31 " Returns the indentation of the current line
32 function SebuFortranGetFreeIndent()
33     " No indentation for preprocessor instructions
34     if getline( v:lnum) =~ '^\s*#'
35         return 0
36     endif
37     " Previous non-blank non-preprocessor line
38     let lnum = SebuPrevNonBlankNonCPP( v:lnum -1)
39     " No indentation at the top of the file
40     if lnum == 0
41         return 0
42     endif
43     " Original indentation rules
44     let ind = FortranGetIndent( lnum)
45     " Continued statement indentation rule
46     " Truth table (kind of)
47     " Symbol '&'            |    Result
48     " No            0    0    |    0    No change
49     " Appearing        0    1    |    1    Indent
50     " Disappering    1    0    |    -1    Unindent
51     " Continued        1    1    |    0    No change
52     let result = - SebuIsFortranContStat( lnum -1 )+ SebuIsFortranContStat( lnum)
53     " One shiftwidth indentation for continued statements
54     let ind += result*& sw
55     " One shiftwidth indentation for subroutine, function and forall's bodies
56     let line = getline( lnum)
57     if line =~ ? '^\s*\(pure\|elemental\)\=\s*\(subroutine\|function\|program\|module\)' ||
58                 \ line =~ ? '^\s*\(forall\)'
59         let ind += & sw
60     endif
61     if getline( v:lnum) =~ ? '^\s*end\s*\(subroutine\|function\|forall\|program\|module\)'
62         let ind -= & sw
63     endif
64     " You shouldn't use variable names begining with 'puresubroutine',
65     " 'function', 'endforall', etc. as these would make the indentation
66     " collapse: it's easier to pay attention than to implement the exceptions
67     return ind
68 endfunction
69
70 " SebuPrevNonBlankNonCPP(lnum) is modified prevnonblank(lnum):
71 " Returns the line number of the first line at or above 'lnum' that is
72 " neither blank nor preprocessor instruction.
73 function SebuPrevNonBlankNonCPP( lnum)
74     let lnum = prevnonblank( a:lnum)
75     while getline( lnum) =~ '^#'
76         let lnum = prevnonblank( lnum -1)
77     endwhile
78     return lnum
79 endfunction
80
81 " SebuIsFortranContStat(lnum):
82 " Returns 1 if the 'lnum' statement ends with the Fortran continue mark '&'
83 " and 0 else.
84 function SebuIsFortranContStat( lnum)
85     let line = getline( a:lnum)
86     return substitute( line , '!.*$' , '' , '') =~ '&\s*$'
87 endfunction

如上面的代码所示，分别在 19，20，57，61 行添加了 program 和 module。

大功告成，可以编辑一个 .f90 文件试试，插入模式下<F7>自动补全 end (end program, end subroutine, enddo等) 语句，命令行模式下，gg=G，可对程序进行规范排版，方便看其他人写的 fortran 程序。

下一步就是搭建基于 Vim 的 Fortran 编译环境了，不过 Windows 下似乎没有需求，用 CVF 或 IVF+MVS 调试比较方便。

原文地址：http://hi.baidu.com/%C8%CB%BC%E4%CA%C0%E5%D0%D2%A3%D3%CE/blog/item/3acb8f142df7660d4a90a7da.html