Fortran教程第六章格式輸入輸出.ppt

第六章格式輸入輸出 6 1輸入輸出概述 6 2格式輸入輸出語句 6 3格式說明語句 6 4常用的編輯描述符 6 5輸入輸出項(xiàng)與編輯符的相互作用 6 1輸入輸出概述 輸入輸出是指在計(jì)算機(jī)內(nèi)存與外部設(shè)備之間傳送數(shù)據(jù)的過程 從外部設(shè)備將數(shù)據(jù)傳送到計(jì)算機(jī)內(nèi)存稱為輸入 將計(jì)算機(jī)內(nèi)部的數(shù)據(jù)傳送到外部設(shè)備稱為輸出 要順利地傳送數(shù)據(jù) 一般應(yīng)在輸入輸出語句中給計(jì)算機(jī)提供三方面的信息 1 通過什么設(shè)備來進(jìn)行輸入輸出 2 采用什么樣的格式來進(jìn)行輸入輸出 3 輸入輸出的具體內(nèi)容 每一種計(jì)算機(jī)系統(tǒng)都隱含指定一種輸入設(shè)備和輸出設(shè)備 在微機(jī)中 隱含指定鍵盤為輸入設(shè)備 顯示器為輸出設(shè)備 在輸入輸出數(shù)據(jù)較多時(shí) 也可以使用磁盤作為輸入輸出設(shè)備 即從已經(jīng)建立的磁盤文件中去讀取數(shù)據(jù) 將處理結(jié)果寫入到磁盤文件中去 關(guān)于文件操作將在第11章介紹 輸入輸出的格式由格式編輯符來指定 不同的數(shù)據(jù)類型需要不同的格式編輯符 不同的格式編輯符確定不同的輸入輸出格式 輸入輸出的具體內(nèi)容即輸入輸出項(xiàng) 輸入項(xiàng)只能為變量 輸出項(xiàng)可以為常量 變量 函數(shù)和表達(dá)式 也可以是隱含的DO循環(huán) 下面先看一個(gè)格式輸入輸出的例子 程序輸出為 135每循環(huán)一次輸出循環(huán)變量J的值 每個(gè)數(shù)據(jù)占5格 INTEGERJDOJ 1 5 2WRITE 10 JENDDO10FORMAT 1X 3I5 END 再看下面的例子 INTEGERJWRITE 10 J J 1 5 2 10FORMAT 1X 3I5 END 程序輸出為 135程序中 WRITE語句的輸出項(xiàng) J J 1 5 2 是一個(gè)隱含的DO循環(huán) 當(dāng)作一個(gè)整體輸出 每個(gè)數(shù)據(jù)占5格 6 2格式輸入輸出語句 6 2 1格式輸出 格式輸出語句有兩個(gè) PRINT語句和WRITE語句 1 PRINT語句PRINT語句的一般格式是 PRINTf 輸出項(xiàng)其中f是格式說明符 指明了輸出所用的格式 它有以下三種形式 1 格式說明符是一個(gè) 表示輸出使用表控格式 2 格式說明符是一個(gè)字符常量 例如PRINT 1X 2F7 3 X Y 3 格式說明符是格式語句 FORMAT 的語句標(biāo)號 這是最常用的格式輸出形式 例如PRINT100 A B C100FORMAT 1X F9 4 2F7 3 輸出項(xiàng)指定了輸出的具體內(nèi)容 輸出項(xiàng)可以是變量 常量 函數(shù)以及表達(dá)式 此外 輸出項(xiàng)還可以是隱含DO循環(huán) 2 WRITE語句WRITE語句的一般格式是 WRITE u f 輸出項(xiàng)其中u是設(shè)備號 用于指明具體使用的輸入輸出設(shè)備 u可以是一個(gè)無符號整常量 也可以是一個(gè)整型變量或整型表達(dá)式 還可以是星號 表示由計(jì)算機(jī)系統(tǒng)預(yù)先約定的外部設(shè)備 一般為顯示器 f是格式說明符 指明了輸入輸出所用的格式 它也有三種形式 用法與PRINT語句相同 輸出項(xiàng)也可以是常量 變量 函數(shù)以及表達(dá)式 還可以是隱含的DO循環(huán) 6 2 2格式輸入 格式輸入語句是指READ語句 它有兩種形式 READf 輸入項(xiàng)READ u f 輸入項(xiàng)其中f指明了輸入所用的格式 它有以下三種形式 1 格式說明符是一個(gè) 表示輸入使用表控格式 2 格式說明符是一個(gè)字符常量 例如READ I3 2I4 I J K 3 格式說明符是格式語句 FORMAT 的語句標(biāo)號 這是最常用的格式輸入形式 u是設(shè)備號 用于指明具體使用的輸入設(shè)備 u可以是一個(gè)無符號整常量 也可以是一個(gè)整型變量或整型表達(dá)式 還可以是星號 表示由計(jì)算機(jī)系統(tǒng)預(yù)先約定的外部設(shè)備 一般為鍵盤 輸入項(xiàng)指定了輸入的具體內(nèi)容 輸入項(xiàng)目可以變量 不允許是常量或表達(dá)式 此外 輸入項(xiàng)目也可以是隱含DO循環(huán) 6 3格式說明語句 FORTRAN用專門的格式說明來描述輸入輸出的格式 盡管格式說明可以直接放在輸入輸出語句中 但為了使程序的可讀性更強(qiáng) 最好使用格式說明語句來進(jìn)行格式說明 格式說明語句的一般格式是 nFORMAT 格式說明 其中n是語句標(biāo)號 FORMAT語句一定帶有語句標(biāo)號 以便同格式輸入輸出語句配合使用 格式說明由若干個(gè)編輯描述符組成 編輯描述符之間用逗號分隔 例如10FORMAT 1X I4 F5 1 格式說明語句是非執(zhí)行語句 它只是給輸入輸出語句提供數(shù)據(jù)的格式描述 在程序運(yùn)行過程中 由輸入輸出語句根據(jù)格式說明語句提供的數(shù)據(jù)格式描述 實(shí)現(xiàn)數(shù)據(jù)的格式控制 單獨(dú)的格式說明語句在程序中不器任何作用 例如10FORMAT 1X I4 F5 1 WRITE 10 2345 67 8格式說明包含3種編輯描述符X I和F 分別用I4和F5 1來控制2345和67 8的輸出格式 1X也有特定的用途 格式說明語句可以放在程序單位語句 主程序語句PROGRAM 子程序語句FUNCTION或SUBROUTINE 之后 END語句之前的任何位置 6 4常用的編輯描述符 編輯描述符分成兩大類 可重復(fù)編輯描述符非重復(fù)編輯描述符 6 4 1可重復(fù)編輯描述符 可重復(fù)編輯描述符是用來編輯輸入輸出項(xiàng)的輸入輸出格式的 所以它們總是與輸入輸出項(xiàng)相對應(yīng) 不同類型的輸入輸出項(xiàng)使用不同的編輯描述符 FORTRAN提供的內(nèi)部數(shù)據(jù)類型有整型 實(shí)型 復(fù)型 字符型和邏輯型 相應(yīng)地 編輯描述符也分五類介紹 根據(jù)數(shù)據(jù)采用的進(jìn)制不同 整型數(shù)據(jù)編輯符分為四種 I編輯符 B編輯符 O編輯符和Z編輯符 I編輯符用來描述十進(jìn)制的整型數(shù)據(jù) B編輯符用來描述二進(jìn)制的整型數(shù)據(jù) O編輯符用來描述八進(jìn)制的整型數(shù)據(jù) Z編輯符用來描述十六進(jìn)制的整型數(shù)據(jù) 下面逐一介紹 1 整型數(shù)據(jù)編輯描述符 1 I編輯符 十進(jìn)制整數(shù)的輸入輸出 一般格式是 rIw其中r是重復(fù)系數(shù) 為1時(shí)可以省略 w表示字段寬度 即與該編輯描述符對應(yīng)的輸入輸出項(xiàng)所占用的字符個(gè)數(shù) I型輸入的使用規(guī)則 在輸入記錄中從左往右取w個(gè)字符存入對應(yīng)的輸入項(xiàng) 注意取得的w個(gè)字符必須是整數(shù) 正負(fù)號也占一個(gè)字符位置 空格字符占一個(gè)字符位置但不起作用 READ 10 I J K10FORMAT I4 I5 I6 語句執(zhí)行時(shí) 若從鍵盤輸入71 4 346 1 2345 代表空格 則I J K的值分別為 714 346和 123 I型輸出的使用規(guī)則 在輸出記錄中 對應(yīng)的輸出項(xiàng)的值占w個(gè)字符寬度 當(dāng)w大于輸出項(xiàng)實(shí)際的數(shù)字位數(shù)時(shí) 在輸出字段中插入前導(dǎo)空格補(bǔ)足w個(gè)字符 當(dāng)w小于輸出項(xiàng)實(shí)際的數(shù)字位數(shù)時(shí) 將輸出w個(gè) 表示字段寬度定義小了 WRITE 10 K L10FORMAT I4 I4 當(dāng)K 12 L 7567時(shí) 輸出結(jié)果為 12 2 B O Z編輯符 這是FORTRAN90新增的編輯符 分別采用二進(jìn)制 八進(jìn)制和十六進(jìn)制形式描述整型量的輸入輸出 其基本用法與I編輯符相同 例如READ 10 I JWRITE 20 I J I J10FORMAT B3 B4 20FORMAT I5 I4 O4 Z5 END語句執(zhí)行時(shí) 若從鍵盤輸入1011101 則I J的值分別為二進(jìn)制數(shù)101和二進(jìn)制數(shù)1101 輸出結(jié)果為 5 13 5 D 有四種編輯符可以對實(shí)型數(shù)據(jù)進(jìn)行操作 它們是F編輯符 E編輯符 EN編輯符 ES編輯符和G編輯符 2 實(shí)型數(shù)據(jù)編輯描述符 1 F編輯符 用于實(shí)型量的輸入輸出 按小數(shù)形式 一般格式是 rFw d其中r為重復(fù)系數(shù) 為1時(shí)可以省略 w為字段寬度 d為輸入輸出項(xiàng)小數(shù)部分所占的位數(shù) F型輸入規(guī)則 按編輯描述符中w指定的字段寬度從輸入記錄中截取數(shù)據(jù) 若w個(gè)字符中不含小數(shù)點(diǎn) 則系統(tǒng)自動按d決定小數(shù)點(diǎn)的位置 若w個(gè)字符中含有小數(shù)點(diǎn) 則按 自帶小數(shù)點(diǎn)優(yōu)先 的原則 不再按Fw d中的d去加工該數(shù)據(jù) 此時(shí)d不起作用 例如READ 10 A B10FORMAT F7 2 F6 1 語句執(zhí)行時(shí) 如從鍵盤輸入123456 726 89 則A B的值分別為12345 6和726 89 當(dāng)輸入的是指數(shù)形式時(shí) 如果E前面的數(shù)字部分含有小數(shù)點(diǎn) 則d不起作用 如果數(shù)字部分不含有小數(shù)點(diǎn) 則自動按d決定數(shù)字部分小數(shù)點(diǎn)的位置 例如READ 10 A B10FORMAT F8 0 F7 2 執(zhí)行語句時(shí) 如從鍵盤輸入72 48E 3 2E2 則A B的值分別為0 07248 2 0 F型輸出規(guī)則 把輸出項(xiàng)的值轉(zhuǎn)換成字段寬度為w的小數(shù)形式輸出 其中小數(shù)部分占d位 小數(shù)點(diǎn)占一位 如果輸出項(xiàng)小數(shù)部分實(shí)際的位數(shù)小于d 則輸出時(shí)小數(shù)部分低位以零補(bǔ)足d位 否則保留d位 從d 1位開始四舍五入 如果輸出項(xiàng)實(shí)際長度小于w 則在左邊用空格補(bǔ)足w個(gè) 否則輸出w個(gè) 以示w太小 例如WRITE 10 A B C10FORMAT 1X 3F8 3 當(dāng)A B C的值分別是78 9 0 00072 12345 678時(shí) 輸出為 78 900 001 2 E編輯符 用于輸入輸出指數(shù)形式的實(shí)數(shù) 它的一般格式是 rEw d其中r是重復(fù)系數(shù) w是字段寬度 d為數(shù)字部分小數(shù)位數(shù) E型輸入規(guī)則 與F編輯符完全相同 E型輸出規(guī)則 采取規(guī)格化的指數(shù)形式 即數(shù)字部分小數(shù)前面為0 小數(shù)點(diǎn)后第一位為非零數(shù)字 指數(shù)部分占4列 E 指數(shù)符號位及兩位指數(shù) 如果輸出項(xiàng)數(shù)字部分的小數(shù)位數(shù)多于d位 保留d位 從第d 1位起四舍五入 小于d位 在其右邊補(bǔ)0 如果輸出項(xiàng)實(shí)際的位數(shù)小于w 左補(bǔ)空格 否則輸出w個(gè) 例如WRITE 10 A B10FORMAT 1X E12 4 E13 2 當(dāng)A B的值為128 433和 0 0008時(shí) 輸出為 1284E 03 80E 03 3 EN編輯符 EN編輯符與E編輯符基本用法相同 區(qū)別在于EN編輯符輸出數(shù)據(jù)的非指數(shù)部分的絕對值強(qiáng)制在1到1000的范圍內(nèi) 且指數(shù)可以被3整除 例如WRITE 10 128 433 0 000810FORMAT 1X EN12 4 EN13 2 輸出為 128 4330E 00 800 00E 06 4 ES編輯符 ES編輯符與E編輯符基本用法相同 區(qū)別在于ES編輯符輸出數(shù)據(jù)的非指數(shù)部分的絕對值強(qiáng)制在1到10的范圍內(nèi) 例如WRITE 10 128 433 0 000810FORMAT 1X ES12 4 ES13 2 輸出為 1 2843E 02 8 00E 04 5 G編輯符 也用于實(shí)型量的輸入輸出 一般格式為 rGw dG編輯符用于輸入時(shí) 與F E編輯符的功能完全相同 用于輸出時(shí) 要根據(jù)輸出項(xiàng)的大小決定用F格式輸出還是用E格式輸出 例如WRITE 10 123456 789 0 09876510FORMAT 1X G13 7 G11 4 輸出為 123456 8 9877E 01 3 復(fù)型數(shù)據(jù)編輯描述符復(fù)型數(shù)據(jù)沒有專門的編輯符 對復(fù)型數(shù)據(jù)的輸入輸出 可以按實(shí)部和虛部分別輸入輸出 例如COMPLEXCMREAD 10 CMWRITE 20 CM10FORMAT 2F5 2 20FORMAT 1X 2F7 2 語句執(zhí)行時(shí) 從鍵盤輸入1234567890 則輸出為 123 45 678 90 4 邏輯型數(shù)據(jù)編輯描述符邏輯型數(shù)據(jù)的輸入輸出用L編輯符 其一般格式是 rLw邏輯值只有兩個(gè) 真 TRUE 和假 FALSE 在輸入時(shí) 輸入的數(shù)據(jù)可以是 TRUE 或 FALSE 也可以是頭一個(gè)字母為T或F的任何字符串 T或F前面可以接 或空格 后面可以是任意字符 例如LOGICALL1 L2READ 10 L1 L210FORMAT L6 L3 語句執(zhí)行時(shí) 從鍵盤輸入 TRUE FT 則L1 L2的值分別是 TRUE FALSE 在輸出時(shí) 對邏輯真 TRUE 輸出一個(gè)字母T 對邏輯假 FALSE 輸出字母F 且在左邊補(bǔ)w 1個(gè)空格 例如WRITE 10 FALSE A LT B OR 1 GT 210FORMAT 1X L3 L4 輸出為 F T 5 字符型數(shù)據(jù)編輯描述符字符型數(shù)據(jù)的輸入輸出用A編輯符 其一般格式是 rAw其中字段寬度w可以省略 省略時(shí) 輸入輸出項(xiàng)的字段寬度隱含為對應(yīng)的字符型輸入輸出項(xiàng)的長度l A編輯符的輸入規(guī)則 從輸入記錄中取w個(gè)字符 但這w個(gè)字符能否全部存入對應(yīng)的輸入項(xiàng) 還取決于輸入項(xiàng)的長度l 當(dāng)w等于l時(shí) w個(gè)字符全部送給輸入項(xiàng) 當(dāng)w l時(shí) 從w個(gè)字符中取出最右邊l個(gè)字符送給對應(yīng)的輸入項(xiàng) 這一點(diǎn)與字符賦值語句的賦值規(guī)則剛好相反 當(dāng)w l時(shí) 當(dāng)w個(gè)字符全部送入輸入項(xiàng) 并靠左對齊 右邊補(bǔ)l w個(gè)空格 這一點(diǎn)同字符賦值語句的規(guī)則是相同的 例如CHARACTER 5C1 C2 C3READ 10 C1 C2 C310FORMAT A5 A2 A7 語句執(zhí)行時(shí) 從鍵盤輸入abcdefghijklmn 則C1 C2 C3的值分別為abcde fg jklmn 用A編輯符輸入字符串時(shí) 不能有字符串的定界符 如果加了撇號 則撇號也作為字符串的一個(gè)字符 而在表控格式輸入時(shí) 字符常量要加撇號定界符 A編輯符的輸出規(guī)則 在輸出記錄中 Aw編輯符所對應(yīng)的輸出項(xiàng)一定占w個(gè)字符的寬度 但輸出項(xiàng)實(shí)際包含字符的個(gè)數(shù)l可能與w不一致 當(dāng)w l時(shí) 輸出項(xiàng)所有的字符全部輸出 當(dāng)w l時(shí) 輸出項(xiàng)所有的字符全部輸出 并且靠右對齊 左補(bǔ)w l個(gè)空格 當(dāng)w l時(shí) 輸出項(xiàng)最左邊w個(gè)字符輸出 當(dāng)w省略時(shí) 按輸出項(xiàng)的長度輸出 這是最方便的形式 例如WRITE 10 FORTRAN 90 PROGRAM 10FORMAT 1X A7 A8 輸出為 FORTRAN PROGRAM 最后我們對上面討論的編輯描述符作一個(gè)總結(jié) FORTRAN90提供的編輯描述符很多 這給初學(xué)者學(xué)習(xí)帶來了困難 但一些編輯描述符也有共同特點(diǎn) 把握這些特點(diǎn)以后也就不難掌握了 可重復(fù)編輯描述符是用來決定對應(yīng)輸入輸出項(xiàng)的輸入輸出格式的 其中都有字段寬度w 而且對于輸入都是從輸入記錄中取w個(gè)字符 對于輸出都是在輸出記錄中輸出w個(gè)字符 但問題是 在輸入時(shí) 取得的w個(gè)字符按什么規(guī)則加工后傳送到對應(yīng)的輸入項(xiàng) 在輸出時(shí) 當(dāng)輸出項(xiàng)實(shí)際包括的字符的個(gè)數(shù)和編輯符中所確定的字段寬度 對于數(shù)值型數(shù)據(jù)還有小數(shù)位數(shù) 之間不相符時(shí) 如何輸出 讀者可以分?jǐn)?shù)值型 邏輯型 字符型進(jìn)行總結(jié) 非重復(fù)編輯描述符直接向當(dāng)前輸出記錄傳遞信息 因此不需要輸入輸出項(xiàng)與其對應(yīng) 非重復(fù)編輯描述符有 1 X編輯符 用于在輸入輸出的常數(shù)之間插入空格 它的一般格式是 nX其中n是正數(shù) 用于指明從當(dāng)前位置向右跳過n個(gè)字符位置 這里n不能省略 即使n為1 也要寫成1X 例如READ 10 K J A10FORMAT 2I3 3X E5 2 執(zhí)行語句時(shí) 從鍵盤輸入 876 42193671E4后 K J A的值分別為876 42 67100 0 其中非重復(fù)編輯符3X 跳過193這三個(gè)字符 6 4 2非重復(fù)編輯描述符 2 H編輯符 用于輸出一個(gè)字符串 其一般格式是 nHh1h2 hn其中n是正整數(shù) 表示字符串的長度 h1h2 hn為n個(gè)字符 3 撇號編輯符 用于輸出一個(gè)字符串 撇號編輯符和H編輯符作用相同 但撇號編輯符使用更為方便 例如WRITE 10 345 HELLO 10FORMAT 1X 2HI I4 C A 輸出為 I 345C HELLO 4 斜扛編輯符 結(jié)束當(dāng)前正在輸入或輸出的記錄 并轉(zhuǎn)入下一個(gè)記錄開始輸入輸出 例如WRITE 10 A B10FORMAT 2 10X F9 2 語句執(zhí)行后將輸出5個(gè)記錄 FORTRAN規(guī)定 將輸出記錄中的第一個(gè)字符作為縱向走紙控制符 這個(gè)字符不輸出 而從輸出紀(jì)錄的第二個(gè)字符開始輸出 常用的控制字符有 空格 走紙一行 0 走紙二行 1 換頁 不走紙 返回到本行重迭打印 例如WRITE 10 123 456710FORMAT 1X I3 2X I4 按本來意義 1X產(chǎn)生一個(gè)空格 應(yīng)輸出 123 4567但按FORTRAN規(guī)定 將輸出記錄中的第一個(gè)字符作為縱向走紙控制符 所以實(shí)際輸出是在走紙一行之后 輸出 123 4567 6 4 3縱向走紙控制符 如果不在輸出記錄的第一個(gè)字符處增加一個(gè)空格 則系統(tǒng)將應(yīng)該輸出的第一個(gè)字符作為縱向走紙控制符 從而使本來該輸出的字符被 吃掉 了 例如WRITE 10 123 456710FORMAT I3 2X I4 輸出為 空一行 23 4567輸出記錄的第一個(gè)字符 1 作為縱向走紙控制符用 走紙兩行 字符 1 本來作分頁控制用 但微機(jī)中無分頁功能 所以 在FORMAT語句中 一般都在格式說明的第一個(gè)字符位置增加一個(gè)空格作為縱向走紙控制符 在執(zhí)行輸入輸出語句時(shí) 要求輸入輸出項(xiàng)與編輯符在前后順序和數(shù)據(jù)類型方面都一一對應(yīng) 否則就會出錯(cuò) 要注意輸入輸出項(xiàng)和編輯符之間的相互作用關(guān)系 1 如果可重復(fù)編輯符的個(gè)數(shù)多于輸入輸出項(xiàng)的個(gè)數(shù) 則多余的編輯符不起作用 例如WRITE 10 123 456710FORMAT 1X I3 2X I4 I5 多余的編輯符I5不起作用 6 5輸入輸出項(xiàng)與編輯符的相互作用 2 如果可重復(fù)編輯符的個(gè)數(shù)少于輸入輸出項(xiàng)的個(gè)數(shù) 則按順序用完最后一個(gè)可重復(fù)編輯符之后 再重復(fù)使用格式說明 但產(chǎn)生一個(gè)新記錄 例如WRITE 10 A I B J10FORMAT 1X F7 2 I3 語句執(zhí)行后 將產(chǎn)生2個(gè)輸出記錄 3 如果在編輯描述符表中包含有重復(fù)使用的編輯符組 則當(dāng)所有編輯符用完之后 返回到最右邊那個(gè)編輯符組 包括其重復(fù)系數(shù) 開始使用 分析下列程序的輸出結(jié)果 I 56J 1247K 5126WRITE 10 I J K10FORMAT 1X 2 I5 2X END 在編輯描述符表中的1X 作縱向走紙控制用 I5 2X 是一個(gè)編輯符組 重復(fù)系數(shù)為2 第一次引用時(shí) 按I5輸出I值 2X產(chǎn)生兩個(gè)空格 第二次引用時(shí) 按I5輸出J值 2X產(chǎn)生兩個(gè)空格 此后是斜扛編輯符建立一個(gè)新記錄 輸出K值時(shí) 格式說明已用完 返回到編輯符組 I5 2X 并產(chǎn)生一新記錄 所以 第二行為空行 在第三行按I5輸出K值 且第一個(gè)字符 為空格 作縱向走紙控制用而不輸出 輸出結(jié)果為 56 1247 空一行 5126 習(xí)題1 有語句 INTEGERI JREALX YREAD 10 I X J Y設(shè)要求輸入的值為I 87 X 67 4 J 465 Y 345 705 用下面的FORMAT語句應(yīng)如何輸入數(shù)據(jù) 1 10FORMAT 1X I4 F6 2 I5 F8 2 2 10FORMAT 1X 2 I4 2X F10 2 3 10FORMAT I4 F6 2 I5 F8 2 4 10FORMAT I4 F6 2 I5 F8 2 5 10FORMAT I5 F8 1 6 10FORMAT I4 F8 1 I5 F10 2 I6 F10 3 2 程序執(zhí)行時(shí)輸入同樣的內(nèi)容 1234567891011121314151617181920請寫出下列程序的執(zhí)行結(jié)果 1 INTEGERAREALB CCHARACTER 10DREAD 10 A B C DWRITE A B C D10FORMAT 1X I4 2F6 2 A3 END 2 INTEGERAREALB CCHARACTER 10DREAD 10