此子程式是一.f檔案，可以將一個字串中的小寫字母轉換為大寫字母。FORTRAN中並沒有直接轉換字母大小寫的內部函式，必須使用內碼轉換，即先把字母的ACSII碼讀出，然後減去32，再轉換為字母，就達到目的了ccc###############################################################c####c##subroutineupcase--convertstringtoalluppercase##c####c###############################################################ccc"upcase"convertsatextstringtoalluppercaselettersccsubroutineupcase(string)implicitnoneintegeri,size,lenintegercode,icharcharacter*1charcharacter*1lettercharacter*(*)stringcccconvertlowercasetouppercaseoneletteratatimecsize=len(string)doi=1,sizeletter=string(i:i)code=ichar(letter)if(letter.ge."a".and.letter.le."z")&string(i:i)=char(code-32)enddoreturnend