Fortran：字符串

由于这一节内容与上节内容多有重复，所以重复的部分本文不再累赘。
1. 字符串声明
character(len=20) :: str = "hello, world!"

2. 提取子字符串
在fortran中，可以通过下标提取子字符串。
Program subString
  implicit none
  character(len=20) :: str = "hello, world!"
  write(*,*) str(2:2)
  write(*,*) str(2:7)
End program subString
执行后，结果如下：
e
ello,
下面的程序是对内置函数date_and_time使用的介绍
Program main
  Implicit none
  Character(len=20) date,time

  Call date_and_time(date,time)  
  Write(*,"('Date:',A8,/,'Time:',A2,':',A2,':',A2)") date,time(1:2),time(3:4),time(5:6)

End program main
执行结果如下：
Date:20180828
Time:23:39:13
其他内容多与上节重复，再次不在累赘。