[基礎(chǔ)科學(xué)]第一章緒論-資料下載頁
2024-10-18 23:20本頁面
【正文】 W(I,J)=2. ENDDO。ENDDO CALL OPP(W,X1) END SUBTOUTINE OPP(A,S1) REAL A(5,5) S1=0. DO 10 I=1,5 S1=S1+A(I,I) 10 CONTINUE END 文件 文件操作語句 OPEN(說明項(xiàng) ) 說明項(xiàng)包括以下幾項(xiàng)： （ 1）通道號說明。 [UNIT=]ie。 ie是一個(gè)值為正整數(shù)的算術(shù)表達(dá)式（當(dāng)然可以是常量或變量）。其值由用戶給出。數(shù)值單位為 1到 99。如果通道說明是OPEN語句中的第一項(xiàng)，則 UNIT=可以省略不寫。 （ 2）文件名指定。 FILE=ce。 ce是一個(gè)字符串表達(dá)式（當(dāng)然可以是字符串常量或變量）。其值（不計(jì)尾隨空格）是由用戶給出的數(shù)據(jù)文件名。此文件名與同一 OPEN語句中的通道號連接起來。 （ 3）文件狀態(tài)說明。 STATUS=ce。 ce是一字符串表達(dá)式，其值由用戶給出，通常是以下三種字符串之一。 NEW：表示指定的文件尚不存在。當(dāng)在執(zhí)行 OPEN語句時(shí)，將在磁盤上建立該文件的同時(shí)，使文件的狀態(tài)改變成 OLD。NEW狀態(tài)一般用于寫操作。通常如果指定的文件名已經(jīng)存在，將給出出錯(cuò)信息。 OLD：表示指定的文件是已經(jīng)存在的老文件。這一狀態(tài)一般用于讀操作。如果用于寫操作則意味著重寫文件或?qū)ξ募M(jìn)行添加。如果指定的文件不存在，計(jì)算機(jī)將給出出錯(cuò)信息。 UNKNOWN：這一指定表示由計(jì)算機(jī)系統(tǒng)來規(guī)定文件的狀態(tài)。當(dāng)省略 STATUS說明項(xiàng)時(shí)，則意味著指定的是 UNKNOWN。 （ 4）存取方式說明。 ACCESS=ce。 ce是一個(gè)字符串，由用戶給出。此表達(dá)式的值可以是以下兩種之一。 SEQUENTIAL：說明存取方式為順序方式。 DIRECT：說明存取方式為直接方式。 省略此項(xiàng)時(shí)，則代表順序存取方式。 記錄格式說明。 FORM=ce。 ce是一個(gè)字符串表達(dá)式，由用戶給出。此表達(dá)式的值可以是下列三種之一。 FORMATTED：說明記錄按有格式的形式存放。 UNFORMATTED：說明記錄按無格式的形式存放。 BINARY：說明記錄按二進(jìn)制無格式的形式存放。 當(dāng)省略此項(xiàng)說明時(shí)，對于順序存取文件，隱含是有格式的；對于直接存取文件，一般不省略。 （ 6）記錄長度說明。 RECL=ie。 ie是一個(gè)值為正整數(shù)的算術(shù)表達(dá)式，其值由用戶指定。記錄長度的單位為字節(jié)。對于直接存取文件必須指定記錄長度。對于順序存取文件，這項(xiàng)說明必須省略。 通常氣象數(shù)據(jù)為二進(jìn)制無格式直接存取方式存儲(chǔ)，對于全球數(shù)據(jù)若分辨率為 *，則共有 144*73個(gè)格點(diǎn)，則取記錄長度為 4*144*73（這里 4表明每個(gè)實(shí)數(shù)或整數(shù)占 4個(gè)字節(jié)）。 其相應(yīng)的文件操作及輸入（輸出）語句為： open(10,file=‘e:\test\’,form=‘binary’,access=‘direct’,recl=4*144*73) irec=1 read(10,rec=irec) ((a(i,j),i=1,144),j=1,73) close(10) 將 OPEN語句放在循環(huán)中可重復(fù)打開多個(gè)文件，但注意必須在循環(huán)體中每次關(guān)閉文件，否則出錯(cuò)。 character year(10) data year/’50’,’51’,’52’,’53’,’54’,’55’,’56’,’57’,’58’,’59’/ do iy=1,10 open(10,file=‘e:\test\test’//year(iy)//’.dat’,form=‘binary’,access=‘direct’,recl=4*144*73) irec=1 read(10,rec=irec) ((a(i,j),i=1,144),j=1,73) close(10) enddo
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1