Fortran字元


Fortran語言可以把字元作為單個字元或連續的字串。

字元可以是從基本的字元集,即從字母,十進位制數位,下劃線和21特殊字元所採取的任何符號。

字元常數是一個固定的值的字串。

內部資料型別的字元儲存字元和字串。字串的長度可以通過len個符來指定。如果沒有指定長度,它是長度是1. 可以將字串按位元置指的是指在單個字元;最左邊的字元的位置是1。

字元宣告

宣告一個字元型別的資料是一樣的其他變數:

type-specifier :: variable_name

例如,

character :: reply, sex

可以指定一個值類似,

reply = N 
sex = F

下面的例子演示了宣告和使用字元資料型別:

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

一些字元函式

下表顯示描述一些常用字元的函式:

函式 描述
len(string) 它返回字串的長度
index(string,sustring) 在一個字串找出子串的位置,如果沒有找到則返回0。
achar(int) 將整數轉換成一個字元
iachar(c) 它可將一個字元轉換為整數
trim(string) 它返回去掉尾隨空格的字串。
scan(string, chars) 它會搜尋“string”由左到右(除非back=.true)包含在“string”任何字元的第一次出現。它返回一個整數,該字元,或零的位置,如果沒有文字的“字元”已被找到。
verify(string, chars) 它掃描“string”由左到右(除非back=.true)不包含在“string”任何字元的第一次出現。它返回一個整數,該字元的位置,如果只在“字元”的字元被找到,或者沒有找則返回零。
adjustl(string) 它留下左截於“string”包含的字元
adjustr(string) 它留下右截於“string”包含的字元
len_trim(string) 它返回一個整數等於“string”(len(string))減去尾隨空白的數量
repeat(string,ncopy) 它返回一個字串長度等於“ncopy”次數“string”的長度,並含有“string”的“ncopy”串聯拷貝

範例 1

這個例子顯示使用index函式:

program testingChars
implicit none

   character (80) :: text 
   integer :: i 
   
   text = 'The intrinsic data type character stores characters and   strings.'
   i=index(text,'character') 
   
   if (i /= 0) then
      print *, ' The word character found at position ',i 
      print *, ' in text: ', text 
   end if
   
end program testingChars

當編譯並執行上述程式,將產生以下結果:

The word character found at position 25
in text : The intrinsic data type character stores characters and strings.  

範例 2

這個例子演示了如何使用trim函式:

program hello
implicit none

   character(len=15) :: surname, firstname 
   character(len=6) :: title 
   character(len=25)::greetings
   
   title = 'Mr.' 
   firstname = 'Rowan' 
   surname = 'Atkinson'
   
   print *, 'Here is', title, firstname, surname
   print *, 'Here is', trim(title),' ',trim(firstname),' ', trim(surname)
   
end program hello

當編譯並執行上述程式,將產生以下結果:

Here is Mr. Rowan Atkinson       
Here is Mr. Rowan Atkinson

範例 3

這個例子演示了如何使用achar函式

program testingChars
implicit none

   character:: ch
   integer:: i
   
   do i=65, 90
      ch = achar(i)
      print*, i, ' ', ch
   end do
   
end program testingChars

當編譯並執行上述程式,將產生以下結果:

65  A
66  B
67  C
68  D
69  E
70  F
71  G
72  H
73  I
74  J
75  K
76  L
77  M
78  N
79  O
80  P
81  Q
82  R
83  S
84  T
85  U
86  V
87  W
88  X
89  Y
90  Z

檢查詞法順序字元

下面的函式確定的字元的詞法序列:

函式 描述
lle(char, char) 進行比較的第一個字元是否是詞彙上小於或等於所述第二字元
lge(char, char) 進行比較的第一個字元是否是詞彙上大於或等於所述第二字元
lgt(char, char) 進行比較的第一個字元是否是詞彙上比第二字元大
llt(char, char) 比較第一個字元是否是詞彙上比小於第二字元

範例 4

下面的函式演示了如何使用:

program testingChars
implicit none

   character:: a, b, c
   a = 'A'
   b = 'a'
   c = 'B'
   
   if(lgt(a,b)) then
      print *, 'A is lexically greater than a'
   else
      print *, 'a is lexically greater than A'
   end if
   
   if(lgt(a,c)) then
      print *, 'A is lexically greater than B'
   else
      print *, 'B is lexically greater than A'
   end if  
   
   if(llt(a,b)) then
      print *, 'A is lexically less than a'
   end if
   
   if(llt(a,c)) then
      print *, 'A is lexically less than B'
   end if
   
end program testingChars

當編譯並執行上述程式,將產生以下結果:

a is lexically greater than A
B is lexically greater than A
A is lexically less than a
A is lexically less than B