声明: (1)长度为20个字符的字符串 character(20) :: a (2)长度为20个字符,数组大小为3的字符串数组 character(20) :: a(3) character(20),dimension(3) :: a 赋值调用: (1)整体赋值 a = "*********" 字符串中的单个字符 a(2:2) = "*" !不能使用a(2)调用单个元素 IF(a(i:i) == ' ') a(i:i)='*' (2)单个数组元素 a(1) = "*********" 单个元素中的单个字符 a(2)(2:2) = "*" (3)字符变量使用前要明确其大小,需要显示声明。或者子程序接受参数传递得到其大小。 SUBROUTINE HELLO(C) CHARACTER (LEN = *) :: C(*) !没有声明大小,接受传递 C(2)="JEFFHUGH" C(3)="INGRESS" ...