Fortran的字符串处理

声明：
    (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"
        DO I=1,3
            PRINT *,C(I)
        ENDDO
    END SUBROUTINE HELLO

    PROGRAM MAIN
        CHARACTER(LEN = 11) :: HI(3) !必须声明大小
        HI(1) = "HELLO WORLD"
        CALL HELLO(HI)
        PAUSE
    END PROGRAM MAIN