统计文件某一行的数据列数(fortran代码)(国外英语资料).docVIP

统计文件某一行的数据列数(fortran代码)(国外英语资料) The PROGRAM MAIN IMPLICIT NONE An INTEGER m, nmax, cnum CHARACTER * 80 filename CHARACTER * 1 sign PRINT *, file name: The READ *, filename PRINT *, line number: The READ *, m PRINT *, rows maximum number of columns: The READ *, nmax PRINT *, separator: READ (*, 100), a sign 100 FORMAT (A1) CALL CLOUMN (filename, m, nmax, sign, cnum) PRINT *, cnum ENDPROGRAM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Statistical file * subroutine functions: a number of columns, by separating character sign to distinguish between column and column * Cow and bull * * author: happy * date: on November 5, 2011 * * parameters description: * * filename -- -- -- -- -- -- -- -- -- -- -- -- file * * m -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- to statistical line number * * nmax -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- the first m lines including the delimiter character in the number of estimates, to ensure fully read a line * * sign -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- - segmentation character * * cnum -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- the return value, returns the number of columns * note: not considered file to, separator, the separator string, a blank line, and so on and so forth * revelation: character variables can be processed indiscriminately in all characters, and the statistical manipulation of files is more efficient using strings * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * SUBROUTINE CLOUMN (filename, m, nmax, sign, cnum) IMPLICIT NONE An INTEGER m, nmax, I, cnum CHARACTER * 80 filename CHARACTER * 1 C0 (1: nmax), sign Cnum = 1 OPEN (101, FILE = filename, ACTION = READ) DO I = 1, the m - 1, 1, READ (101 *) ENDDO READ (101100) C0 100 FORMAT ( nmax A1