Fortran字符串
Fortran語言可以把字符作爲單個字符或連續的字符串。
字符串可以是隻有一個長度的字符，或者它甚至可以是零長度。在Fortran語言，字符常量是一對雙引號或單引號之間字符內容。
內部數據類型的字符存儲字符和字符串。字符串的長度可以通過len個符來指定。如果沒有指定長度，它是長度是1. 可以將字符串按位置指的是指在單個字符;最左邊的字符的位置是1。
字符串聲明
聲明一個字符串跟其他變量是一樣的：
type-specifier :: variable_name
例如,
Character(len=20) :: firstname, surname
可以指定一個值類似，
character (len=40) :: name
name = 「Zara Ali」
下面的例子演示了聲明和使用字符數據類型：
program hello implicit none
character(len=15) :: surname, firstname
character(len=6) :: title
character(len=25)::greetings
title = 'Mr.' firstname = 'Rowan' surname = 'Atkinson' greetings = 'A big hello from Mr. Beans' print *, 'Here is', title, firstname, surname print *, greetings end program hello
當編譯並執行上述程序,將產生以下結果：
Here is Mr. Rowan Atkinson
A big hello from Mr. Bean
字符串連接
連接運算符//，連接字符串。
下面的例子說明了這一點：
program hello implicit none
character(len=15) :: surname, firstname
character(len=6) :: title
character(len=40):: name
character(len=25)::greetings
title = 'Mr.' firstname = 'Rowan' surname = 'Atkinson' name = title//firstname//surname greetings = 'A big hello from Mr. Beans' print *, 'Here is', name print *, greetings end program hello
當編譯並執行上述程序,將產生以下結果：
Here is Mr. Rowan Atkinson
A big hello from Mr. Bean
提取子串
在Fortran中，可以通過索引的字符串，開始和子串一對括號的結束索引，從字符串中提取一個子字符串。這就是所謂的範圍說明。
下面的示例顯示瞭如何提取字符串'Hello World'的子字符串「world」：
program subString
character(len=11)::hello
hello = "Hello World" print*, hello(7:11) end program subString
當編譯並執行上述程序,將產生以下結果：
World
例子
下面的示例使用 date_and_time 函數，得到日期和時間的字符串。我們使用範圍說明符單獨提取年份，日期，月份，小時，分鐘和秒的信息。
program datetime implicit none
character(len = 8) :: dateinfo ! ccyymmdd
character(len = 4) :: year, month*2, day*2 character(len = 10) :: timeinfo ! hhmmss.sss
character(len = 2) :: hour, minute, second*6 call date_and_time(dateinfo, timeinfo) ! let’s break dateinfo into year, month and day. ! dateinfo has a form of ccyymmdd, where cc = century, yy = year ! mm = month and dd = day
year = dateinfo(1:4) month = dateinfo(5:6) day = dateinfo(7:8) print*, 'Date String:', dateinfo print*, 'Year:', year print *,'Month:', month print *,'Day:', day ! let’s break timeinfo into hour, minute and second. ! timeinfo has a form of hhmmss.sss, where h = hour, m = minute ! and s = second
hour = timeinfo(1:2) minute = timeinfo(3:4) second = timeinfo(5:10) print*, 'Time String:', timeinfo print*, 'Hour:', hour print*, 'Minute:', minute print*, 'Second:', second end program datetime
當編譯並執行上述程序，它提供了詳細的日期和時間信息：
Date String: 20140803
Year: 2014
Month: 08
Day: 03
Time String: 075835.466
Hour: 07
Minute: 58
Second: 35.466
字符串修整
trim函數接受一個字符串，並刪除所有尾隨空格後返回輸入字符串。
例子
program trimString implicit none
character (len=*), parameter :: fname="Susanne", sname="Rizwan" character (len=20) :: fullname
fullname=fname//" "//sname !concatenating the strings print*,fullname,", the beautiful dancer from the east!" print*,trim(fullname),", the beautiful dancer from the east!" end program trimString
當編譯並執行上述程序,將產生以下結果：
Susanne Rizwan, the beautiful dancer from the east!
Susanne Rizwan, the beautiful dancer from the east!
字符串左右調整
函數 adjustl 需要一個字符串，並通過去除前導空格，並追加其作爲尾隨空白返回。
函數 adjustr 需要一個字符串，並通過刪除尾隨空格和追加作爲前導空格返回。
例子
program hello implicit none
character(len=15) :: surname, firstname
character(len=6) :: title
character(len=40):: name
character(len=25):: greetings
title = 'Mr. ' firstname = 'Rowan' surname = 'Atkinson' greetings = 'A big hello from Mr. Beans' name = adjustl(title)//adjustl(firstname)//adjustl(surname) print *, 'Here is', name print *, greetings
name = adjustr(title)//adjustr(firstname)//adjustr(surname) print *, 'Here is', name print *, greetings
name = trim(title)//trim(firstname)//trim(surname) print *, 'Here is', name print *, greetings end program hello
當編譯並執行上述程序,將產生以下結果：
Here is Mr. Rowan Atkinson
A big hello from Mr. Bean
Here is Mr. Rowan Atkinson
A big hello from Mr. Bean
Here is Mr.RowanAtkinson
A big hello from Mr. Bean
搜索字符串的子串
index 函數有兩個字符串，並檢查是否第二個字符串的第一個字符串的子串。如果第二個參數是第一個參數的子字符串，然後返回一個整數，是第一個字符串第二個字符串的開始索引，否則返回零。
例子
program hello implicit none
character(len=30) :: myString
character(len=10) :: testString
myString = 'This is a test' testString = 'test' if(index(myString, testString) == 0)then print *, 'test is not found' else print *, 'test is found at index: ', index(myString, testString) end if end program hello
當編譯並執行上述程序,將產生以下結果：
test is found at index: 11