彭国伦fortan第十七章.docVIP

这一章会介绍Visual Fortran在FORTRAN标准外所扩充的功能，主要分成两大部分；第一部分会介绍Visual Fortran的扩充函数，第二部分会介绍Visual Fortran的绘图功能。 Visual Fortran扩充函数 Visual Fortran中提供了很多让FORTRAN跟操作系统通信的函数，这些函数都封装在MODULE DFPORT中。调用这些函数前，请先确认程序代码中有使用USE DFPORT这一行命令。 integer 4 function IARGC 返回执行时所传入的参数个数 subroutine GETARG n, buffer 用命令列执行程序时，可以在后面加上一些参数来执行程序，使用GETARG可以取出这些参数的内容。 integer n 决定要取出哪个参数 character* * buffer 返回参数内容 FORTRAN程序编译好后，执行程序时可以在命令列后面加上一些额外的参数。假如有一个可执行文件为a.exe，执行时若输入a –o –f，在a之后的字符串都会被当成参数。这时候执行a –o -f时，调用函数IARGC会得到2，因为总共传入了两个参数。调用函数GETARGC 1,buffer 时，字符串buffer ”-o”，也就是第1个参数的值。 subroutine GETLOG buffer 查询目前登录计算机的使用者名称。 character* * buffer 返回使用者名称 integer 4 function HOSTNAM buffer 查询计算机的名称，查询动作成功完成时函数返回值为0。buffer字符串长度不够使用时，返回值为-1。 character* * buffer 返回计算机的名称 程序执行时，工作目录是指当打开文件时，没有特别指定目录位置时会使用的目录。通常这个目录就是执行文件的所在位置，在程序进行中可以查询或改变这个目录的位置。 integer function GETCWD buffer 查询程序目前的工作目录位置，查询成功时函数返回0。 integer function CHDIR dir_name 把工作目录转换到dir_name字符串所指定的目录下，转换成功时返回0。 扩充的文件相关函数，补充了一些原本的缺失。INQURE命令可以用来查询文件信息，不过它并没有提供很详细的信息，例如文件大小就没有辨法使用INQUIRE来查询。 integer 4 function STAT name, statb 查询文件的数据，结果放在整数数组statb中。查询成功时函数返回值为0。 character* * name 所要查询的文件名。 integer statb 12 查询结果，每个元素代表某一个属性，statb 8 代表文件长度，单位为bytes。其它值请参考使用说明。 integer 4 function RENAME from , to 改变文件名称，改名成功时返回0。 character* * from 原始文件名 character* * to 新文件名 程序执行时，可以经由函数SYSTEM再去调用另外一个程序来执行。 integer 4 function SYSTEM command 让操作系统执行command字符串中的命令。 subroutine QSORT array, len, size, compar 使用Quick Sort算法把传入的数组数据排序。 array 任意类型的数组 integer 4 len 数组大小 integer 4 size 数组中每个元素所占用的内存容量 integer 2 , external :: compar 使用者必须自行编写比较两笔数据的函数，函数compar会自动传入两个参数a、b。当a要排在b之前时，compar要返回负数，a、b相等时请返回0，a要排在b之后时，compar要返回正数。 QSORT.F90 1.program main ! 使用QSORT函数的范例 2. use DFPORT 3. implicit none 4. integer :: a 5 / 5,3,1,2,4 / 5. integer 2 , external :: compareINT 6. call QSORT a, 5, 4, compareINT 7. write *,* a 8. stop 9.end program 10.! 要自行提供比较大小用的函数 11.integer 2 function compareINT a,b 12. implicit none