资源描述：
《visualfortran高级编程技术》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、VisualFortran高级编程技术 Microsof公司推出了支持32位的FORTRAN POWER STATION1.0到FORTRAN POWER STATION4.0编译器后将其卖给了DEC公司。DEC随即推出了DVF5.0(DigitalVisualFORTRAN5.0），其工作环境与MFC5.0完全一致，最近DEC又推出了DVF６.0(DigitalVisualFORTRAN６.0,其工作环境与MFC６.0完全一致。 FORTRAN在DOS下的编程技术相信早以为大家熟悉。有关FORTRAN90方面的书籍也不少见，因此这里不再赘述。以下主要以最新的DV
2、F5.0讲述有关FORTRAN图形编程的方法。1DVF概述2QuickWinApplication3Win32Application4OpenGL1DVF概述1.1安装1)在安装选项中，注意选择/Samples，这里包含了DVF的丰富例子。2)要拷贝/Msdn子目录，这里包含了API及OPENGL函数的帮助。3)可以网上下载升级。1.2语言1)书写格式●不受列的限制，可自由书写。●注释在任何地方由'！'开始。●续行在行尾加'&'。2)动态数组●优点：动态数组的维界在程序执行过程中随时可按需要变化，数据需要占多少内存，就可在程序中动态地分配给数组多少内存；如果该数组以后不再使用，
3、又可释放该数组，把该数组占用的内存归还给系统另作他用。这样可以节约使用内存，提高内存使用效率。动态数组主程序与子程序。●语句：?属性说明语句ALLOCATABLE?分配语句ALLOCATE(数组名1(形状描述)，数组名2(形状描述)，…[STAT=变量名])?释放语句DEALLOCATE(动态数组名1，动态数组名2，…[STAT=变量名]）●例子程序1REAL(8),ALLOCATABLE::X(:),Y(:),Z(:)INTEGER(4)::NODEREAD(*,*)NODEALLOCATE(X(1:NODE),Y(1:NODE),Z(1:NODE))DOI=1,NODEX(
4、I)=1.0Y(I)=1.0Z(I)=IENDDODOI=1,NODEWRITE(*,*)X(I),Y(I),Z(I)ENDDODEALLOCATE(X,Y,Z)END3)模块●优点：模块是一种在主程序单元之外独立编写的程序单元。模块程序单元内没有可执行语句，除了说明语句外，最多包含模块过程。主要作用是供其他程序单元引用，即数据的共享与模块过程的复制。包含了COMMON与INCLUDE的全部功能。●语句：a模块的编写MODULE模块名类型说明部分[CONTAINS][模块过程1]…[模块过程N]ENDMODULE[模块名]b模块的引用USE模块1，模块2，…，模块n●例子程序2
5、：!模块***************************************MODULEMYDATAINTEGERNODE,NELENDMODULEMYDATA!*******************************************!主程序*************************************USEMYDATANODE=100NEL=90WRITE(*,*)"INMAINPROGRAM:"WRITE(*,*)"NODE=",NODEWRITE(*,*)"NEL=",NELCALLSUBPROGRAM()END!***********
6、********************************!子程序*************************************SUBROUTINESUBPROGRAM()USEMYDATAWRITE(*,*)"INSUBPROGRAM:"WRITE(*,*)"NODE=",NODEWRITE(*,*)"NEL=",NELENDSUBROUTINE!*******************************************1.2开发环境1)建立新文件、新项目●"File"→"New"→"Files"文件类型：a固定格式b自由格式●"File"→"N
7、ew"→"Projects"项目类型：aWin32ConsoleApplication:基于命令行的程序（字符界面）。bStandardGraphicsApplication:单窗口单任务绘图应用程序，易学易用。cQuickWinApplication多窗口单任务绘图应用程序，易学易用。dWin32Application多窗口多任务应用程序，有固定的程序结构，复杂难学。2)建立资源文件●"Insert"→"Resource"资源文件类型：a加速键b对话框c图象d菜单2QuickWinAppl
