第二章 Intel Visual Fortran编译器的使用
在窗口程序设计之前，让我们先了解一下Intel Visual Fortran 编译器的基本使用方法和编译器中的项目类型。
2-1  Intel Visual Fortran 编译器简介
Fortran是一种高级的计算机编程语言，所有Fortran程序源码必须经过编译器的编译、链接，才能被翻译成计算机所能识别的机器码，从而完成源程序设定的任务。
Fortran语言的编译器较多，PC中Windows平台上常见的有：
■ Fortran PowerStation 4.0 微软公司将Fortran90集成到Developer Studio开发环境中之后推出的Fortran编译器，真正实现了Fortran的可视化编程；
■ Digital Visual Fortran 微软公司和数据设备公司(DEC)联合开发的功能更强大的Fortran编译器；
■ Compaq Visual Fortran  数据设备公司(DEC)和康柏公司(Compaq)合并后推出的Fortran编译
器以及康柏公司并入惠普后推出的最新版本；
■ Intel Visual Fortran 11.x 惠普公司将Windows下的编译器转售给Intel公司后，由Intel公司开发的Fortran编译器，目前是最新版。
■ Salford Fortran 95 由silverfrost公司开发的能用于基于Win32平台和平台的应用程序开发，支持完整的Fortran95语法和部分Fortran2003语法。
其实，Fortran编译器还有很多，如Lahey Fortran、Absoft Fortran和OpenWatcom等。从目前的使用情况来看，前四个编译器在Windows平台上最为常见。考虑到Fortran编译器目前的发展情况以及各种编译器版本使用的广泛性，本书所有的程序都基于Intel Visual Fortran 11.x编译器。
跟C++一样，Fortran语言本身没有提供图形界面输出方面的功能，所以为了用Fortran编写Windows图形接口程序，必须借助编译器提供的扩展功能。Intel Visual Fortran编译器封装了几乎完整的Win32 API和OpenGL函数，提供了良好、稳定的编程接口，所以，借助Intel Visual Fortran编译器，Fortran既能完成UI设计，也能胜任图形编程，从这个意义上讲，C能做到的，Fortran也能做到。
2-2  Intel Visual Fortran编译器的使用
为了编写图形界面程序，首先应安装Intel Visual Fortran编译器。编译器的安装过程比较简单，这里不再赘述。不过有几点需要注意：
■ 先安装Visual Studio 2008；
■ 然后安装Intel Visual Fortran编译器，并集成到Visual Studio 2008；
■ 不建议用户安装Visual Studio 2005，因为和Intel Visual Fortran的集成性不是很好，按照笔者的经验，曾经出现过不能正常使用控件箱的情况；
■ 建议完整安装Intel Visual Fortran编译器自带的帮助文件，尤其是Windows窗口程序设计的开发人员。
安装Intel Visual Fortran编译器后，就可打开Visual Studio 2008开始编译Fortran程序了。具体步骤如下：
■ 双击启动Visual Studio 2008，选择“文件”菜单中的“新建”-“项目…”，弹出如图2.1所示的对
话框，从中选择要建立的Fortran项目类型和模板，同时指定项目名称及其保存位置，单击“确定”按钮即可完成新项目的创建；
■ 按下组合键“Ctrl+F5”运行程序；
此处省略了程序的调试过程，对程序调试不熟练的读者请阅读相关资料或文献。
图2.1 “新建项目”对话框
2-3  Intel Visual Fortran 中的项目类型
程序开发之前，我们应充分了解各种项目类型的特点。启动Visual Studio 2008，按前面的步骤打开图2.1所示的对话框，在“项目类型”中列出了Intel Visual Fortran编译器可创建的几种项目类型。
■ Console Application 是基于字符模式的应用程序，这类项目适于不需要图形输出的程序设计，优点是执行速度快。图2.2所示为Console Application类工程的输出窗口。
      图2.2 Console Application工程输出窗口
■ Library 其中包括两种库文件工程：
● Static Libraries 静态库文件，是已编译的、独立于主程序的程序段，适合于大型项目中程
序的结构组织和程序间函数或子程序的重复调用。但是，静态库文件会插入程序调用点，磁盘空间浪费较大；同时当静态库文件需要升级的时候，会带来工作效率的低下。为了解决这些问题，出现了动态链接库。
● Dynamic-link Library 动态链接库，很好地解决了静态库文件存在的问题，所以广泛使用在Windows程序设计中。
■ QuickWin Application 多文档窗口应用程序。编译器封装了部分Win32 API函数，使Fortran界面的开发变得更加容易。不管QuickWin Application应用程序有多简单，默认情况下界面中总会出现预设的系统菜单和状态栏。其运行界面如图2.3所示。
图2.3 QuickWin Application工程输出窗口
■ Standard Graphics Application单文档窗口应用程序，通常以全屏的形式出现，如图2.4所示。全屏形式和窗口界面之间可通过组合键“Alt+Enter”互相切换。跟弹出窗口代码编写QuickWin Application不同，Standard Graphics Application程序界面中并没有菜单栏和状态栏。
图2.4 Standard Graphics Application工程输出窗口
■ Windowing Application 窗口界面应用程序。经过编译器封装，Windowing Application 应用程序能够调用完整的Win32 API系统函数，所以Windowing Application应用程序的弹性更大、更加复杂。
第三章 QuickWin Application基础
本章中，我们将利用QuickWin工程来创建简单的窗口程序。相比以前的命令行程序，图形界面窗口程序使用户在视觉和操作上更容易接受。
3-1 最简单的窗口程序
现在到该做些什么的时候了。如果您以前的程序都是基于Console工程类型，那么，从现在开始，让我们丢掉那个很不友好的“黑屏”，一起体验窗口程序设计的乐趣。
跟所有的语言一样，最简单的程序总是向世界问好的例子。由于第一次创建Fortran界面程序，接下来的步骤会较为详细，将逐步引导大家创建第一个窗口程序。具体过程如下：
■ 启动Visual Studio 2008；
■ 选择“文件”菜单中的“新建”-“项目…”，弹出如图2.1所示对话框；
■ 在“项目类型”和“模板”中选择“QuickWin Application”，指定项目的保存位置和名称，单击“确定”按钮；
■ 编译器界面中出现了如图3.1所示的“解决方案资源管理器”；
图3.1 解决方案资源管理器
■ 移动鼠标至“Source Files”文件夹，单击鼠标右键，选择“添加”-“新建项…”，弹出如图3.2所示的对话框；
    图3.2 “添加新项”对话框
■ 选择“Fortran Free-form File(.f90)”模板，单击“添加”按钮；
■ 编译器界面中出现源代码编辑器，将下面的代码添加到“Source1.f90”；
#001 ! example 3-1
#002 program main
#003   implicit none
#004   write(*,*)"hello world!"
#005 end program main
■ 按下组合键“Ctrl+F5”运行程序，得到程序界面如图3.3所示。
图3.3 Example3-1程序运行界面
这个程序中，简单的四个语句却实现了典型的Windows窗口界面，如菜单和状态栏等，所以，用Fortran编写窗口界面程序并没有想象中的困难，经过编译器对相关函数的有效封装后反而更加容易。
程序编译运行后，随着主窗口弹出了一个小提示窗口，同时，子窗口占了界面主框架的一部分，这些可能和读者想象的窗口程序有所区别。为了使这个简单的窗口程序更“像”，需要对程序做些修改。
3-2 “真正”的窗口程序
为了让窗口界面变得更容易理解，首先应该去掉程序运行后的对话框提示。方法有二：
■ 单击“否”，程序继续运行，但是每次执行程序时都有会出现该信息提示，使用不方便；
■ 借助函数SETEXITQQ让程序自动处理。SETEXITQQ函数用来设置QuickWin Application程序退出时的提示行为，为正确使用该函数，必须在程序中包含语句“USE IFQWIN”。函数语法为：
USE IFQWIN
integer ( kind=4 ) :: exitmode, result
result = SETEXITQQ (exitmode)
exitmode = QWIN$EXITPROMPT为程序的默认情况；
或 = QWIN$EXITNOPERSIST时，编译运行后窗口出现后马上消失；
或 = QWIN$EXITPERSIST时，运行后窗口正常显示，没有任何提示信息。
将SETEXITQQ函数加入例3-1，程序变为：
#001 ! example 3-2
#002 program main
#003 USE IFQWIN
#004   implicit none
#005   integer( kind=4 ) :: results