字符操作符只有一个，称 并置符 ，为两相连的斜杠“ // ”，其功能是把前后两个字符串拼连在一起。表达式中的操作对象可以是字符变量，字符常数、 字符子串 、字符函数值、字符数组元素等。例如： ‘ AB ’ / / ‘ CDE ’ 的值 为 ‘ ABCDE ’。 C/ / ‘ ABC ’ //A(2:6)//B(1:4)//D 是把几个字符串连在一起。

字符赋值语句的一般形式是： 字符变量＝字符表达式 。在字符赋值语句中，要求两边种别 值一致 ，此外还有长度问题。当两边长度不等时，赋值时以左边的字符变量说明长度为准，当右边小于左边时，尾部补空格，否则将右边尾部的多余部分截去。

对每种机器，系统都把本机上可以使用的各种字符按先后排列成某种次序，每个字符在排序中有确定的位置，称为 排序号 。有了排序号，字符之间就可以比较大小及相等与否，组成关系表达式。

各种系统字符排序不一样，同一字符，在不同机上排序 值可能 不一样。以 ASCII 码为例，有 128 个字符，它的第一个字符序号为零，最后一个序号为 127 。例如 A 的排序号为 65 ，数码 0 的排序号为 32 。序号 0 ～ 31 及序号 127 的字符称为控制字符，用来控制操作，它们是非打印字符，屏幕上不可见，通常编程时可于忽略。从 ASCII 码字符集的排序可以看出，小写英文字母排序在大写英文字母之后，它们的序号不同。因此，虽然在书写 FORTRAN 语句时，大小写字母是等价的，但当进行字符操作和字符比较时必须看成是不同的。

字符作比较实际上是比较它们的序号大小。字符比较的一般形式是两端为字符表达式的关系表达式： ＜字符表达式＞＜关系操作符＞＜字符表达式＞ 。例如 ： ‘ A ’ < ‘ B ’ 的比较结果为真， C1/ / ‘ CCTV ’ >= ( ‘ XY ’ //C2)//C3 式当 C1 、 C2 、 C3 是字符型 变量名时是 合法的，要先计算两端字符表达式的值，而后比较它们是否满足≥关系。比较的方法 随关系 操作符而异：

只要两边表达式第一个字符不等就可求得关系表达式的值。如 ： ‘ ABC ’ > ‘ CDE ’ ， 因第一个字符 ‘ A ’ < ‘ C ’ 不满足＞关系，故表达式的逻辑值为假，后面各位不再比较。如果第一位相等，则对第二位字符作比较得出整个关系表达式值为‘真’或‘假’，如此类推。如果两端字符表达式的值长度不等，则短的一端尾部添空格 再按位比较 。如： ‘ ABC12 ’ > ‘ ABC ’ ，因在 ASCII 码中‘ 1 ’ 的序号为 49 ，空格的序号为 32 。故上述关系表达式的值为真。

先作第一位比较，如不等，关系表达式值为‘假’，如相等，再比较第二位，一直比较到最后一位都相等（不足添空格），才能得出关系表达式值为真，否则值都为假。 如作不等 /= 比较，只要有一位不等就可得出表达式的值为真，否则一直比较到末位。设有字符型变量名为 NAME ，其值为 ‘ Einstein ’ ， 则关系 表达式：

NAME== ‘ Einstein ’ -> 真

NAME== ‘ Ein ’ / / ‘ stein ’ -> 真

NAME/= ‘ Ein ’ / / ‘ Stein ’ -> 真

NAME== ‘ EINSTEIN ’ ->

F90 允许把字符型的值转换成整型值 ( 已知字符，取字符型的序号数值 ) ，也允许把数值型的值转换成字符型的值 ( 已知序号，取它对应的字符 ) 。函数 ICHAR 的功能是把字符型转换成数值，它的引用方式是： ICHAR( 字符实体 ) 。这里自变量的字符实体不一定是单个字符，也可以是字符变量、 字符子串 、字符数组元素、字符函数 值等等 以及由它们组成的字符表达式。函数值 ICHAR 返回字符实体第一个字符的序号值。如果指明要按照 ASCII 码求它 的序号， 则本功能 的 函数名应改写 为 IACHAR ，例如：

print *, ichar ( ‘ A ’ ), ichar ( ‘ A_dog ’ ), ichar ( ‘ A_dog ’ / / ‘ in_my_room ’ )

打印的结果是 3 个数字 65(A 的序号是 65) 。

函数 CHAR 的功能是把一个序号转换成它的字符。它的引用方式是： CHAR( 整型数值表达式 ) 。先计算整型表达式的值，再以这个值为序号，返回相应的单个字符，如 CHAR(65) 的值是‘ A ’。如果按照 ASCII 码求它 的对应字符，则函数名为 ACHAR 。函数 CHAR 可以有两个自变量，此时引用形式为： CHAR( 序号值，种别值 ) 。缺省种别值时表示 取标准值即 ASCII 码。

有了字符与数值的转换函数，就可处理字符循环。 例如设要连续 打印 DIMENSION A ， DIMENSION B ，…， DIMENSION Z ，则程序可写成：

DO I=0 ,25

PRINT * , ‘ DIMENSION ’ //CHAR(I+6)

END DO

函数 LEN 的功能是求出一个字符实体的长度，引用方式是： LEN( 字符实体 ) 。函数值返回一个 正整教 ，为该字符实体的长度（包括尾随空格、中间空格在内）。如： LEN ( ‘ ABCD 12 ’ ) 的值是 8 （ 6 个字符数加 2 个空格数）。

如： LEN_TRIM ( ‘ ABCD 12 ’ ) 的值是 7 （ 6 个字符数加 1 个空格数）。

函数 INDEX 的功能找出指定子串在字符串内的指定位置，其引用方式是： INDEX( 父串 , 子串 ) 。函数值返回一个正整数，指明子串在 父串中 是从第几个字符开始的。 父串、子串都 可以是各种形式的字符实体。如果第二个字符实体不是第一个字符实体 的子串 ，返回函数值为 0 。如： INDEX ( ‘ Einstein ’ , ‘ s ’ ) 的值 4 。

函数 VERIFY 的功能确认指定的字符集是否包含了给定字符串中所有的字符，其引用方式是： VERIFY( 字符串 , 字符集 ) 。函数值返回一个正整数，指明字符串中与字符集相异的第一个字符是从左边第几个字符开始的。如果没有相异的字符，则返回函数值为 0 。如： VERIFY( ‘ Einstein ’ , ‘ in stant ’ ) 的值为 1 ， VERIFY( ‘ in stant ’ , ‘ Einstein ’ ) 的值为 5 ， VERIFY( ‘ Einstein ’ , ‘ abcdefghijklmnABCDEFGHIJKLMN ’ ) 的值为 4 。

如： TRIM ( ‘ ABCD 12 ’ )/ / ‘ 34 ’ 的值 是 ‘ ABCD 12 34 ’。

比较字符大小的四个函数都有两个字符型实体作自变量，用来判断它们之间是否满足各种＞、＜关系的，其函数值是一个逻辑值，满足该不等关系为真，否则为假。它们的引用方式与功能如下：