fortran字符型与整型之间的转换.docx

Chapter 1 fortran 字符型 与 整型 之间的转换2007-05-06 16:01:11|分类：Fortran|标签：fortran|字号订阅整型-字符型!integer : intYearcharacter(len=4) : txtYearintYear = 1998write(txtYear,(I4) intYearwrite(*,*) txtYearend!注意，write(txtYear,(I4) intYear中，txtYear为字符型。fortran将字符型变量txtYear看作一个文件，将数据intYear写入这个文件。字符型-整型(下面的写法是错误的！)!integer : intYearcharacter(len=4) : txtYeartxtYear = 1998write(intYear,(A4) txtYearwrite(*,*) iniYearend!上面的写法错在:intYear是整型变量，初始值为0，write将寻找unit=0的文件，结果找不到，报错！这就是说，使用write进行类型转换时，只能进行整型-字符型的转换。要想将字符型转换到整型，要用到read命令：!integer : intYearcharacter(len=4) : txtYeartxtYear = 1998read(txtYear,(I4) iniYear!read(txtYear(1:4),(I4) iniYearwrite(*,*) iniYearend!这种方法仍然以txtYear为文件，将其中的1998以整型读出。read(txtYear(1:4),(I4) iniYear可以将字符串中任意数据(第一到第四个字符之间的子串，包括第一和第四个字符)读出来！试一试这种方法：write(string, I3.3) intnumber看一看他与write(string, I3) intnumber有什么区别！另外，看一看下面地代码是什么意思：CHARACTER*5 string1intnumber=45string1=(I?)WRITE(string1(3:4),(I2.2)int(log10(real(INTNUMBER)+1)WRITE(*,string1)INTNUMBER这个也很好：write (string,*) intnumberstring = trim(adjustl(trim(string)Fortran中的字符串函数：ichar(c)：将一个字符转化为对应的序号，按处理器整理顺序排列，括号内也可以是字符串，但是只处理第一个字符iachar(c)：将一个字符转化为ascii码值，这是为非ascii平台提供的转化到ascii码值的函数在ascii平台上，这两个函数等效的。char(n) ：将一个整数值转化为字符，按处理器顺序排列achar(n) ：将一个整数转化为字符，按ascii码顺序排列char(n,kind)，我还是不十分明确-adjustL(s) ：将字符串前面的空格挪到后面，字符串中间的空格不动，总字符串长度不变adjustR(s) ：字符串右对齐，字符串长度不变-len(s) ：求字符串长度函数len_trim(s) ：不计算字符串尾部空格长度-trim(s) ：去除字符串尾部空格-index(s1,s2,back) ：s2在s1中的起始位置，如果s2不是s1的子串，返回0，如果s2为（空字符串），返回1。back=.true.时表示如果s2在s1中出现多次，按照最后一次出现的位置计算，如果省略或者back=.fasle.，则均按s2第一次出现的位置计算。例子：s1=*123*23567index(s1,23) 值为4index(s1,23,back=.true.) 值为8（使用的是digital visual fortran 6.0，帮助中有INDEX (XXXX, , BACK = .TRUE.) 值为5但是在其环境下测试，并非如此，仍然是0，不知道是否帮助文件的问题，还是其他原因。）-scan(s1,s2,back) ：扫描s1中的每个字符判断是否包含于s2字符集中，并返回s1中第一个能够包含在s2中的字符位置，如果设置了back=.true.，则返回s1中从右面开始第一个包含于s2字符串中的字符位置。如果没有包含于s2字符集的字符，则返回0。例如：s1=*123*23567scan(s1,32) ! =4，s1中的2和3都属于32字符集，但是在s1中，第一个出现属于s2字符的是第4位置上的2，所以返回4scan(a1,32, BACK = .TRUE.) !=9，从字符串s1右边开始计算，则3是第一个包含于32字符集的字符，位置数是9verify(s1,s2,back) ：与scan类似，但是判断是否有不包含于字符集的字符并返回其位置，back同样类似是表示从字符串右边开始寻找。具体就是判断s1中的每个字符是否有没有包含于s2字符集中的，如果存在则返回其在s1中的位置，否则返回0值。如果设置back=.true.，则从s1最右侧的字符开始判断。如果s1中的字符全部属于s2字符集，则返回0。例如s1=*123*23567verify(s1,32) ! =1，因为s1中的第一个字符*就不属于32字符集，所以函数返回1verify(s1,32,back=.true.) ! =12，从s1右面第一个字符开始检查，7不属于32字符集，所以返回7的位置12verify(s1,1234567*) ! =0，s1中的字符全部