彭国伦fortran第十七章.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)