討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
讀資料時,發生錯誤
更改我的閱讀文章字型大小
作者 : hulk(好客)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2012/2/22 上午 06:49:29
我的程式碼如下

program main
  implicit none
  integer m,l,i,j,f,c,k,s
  integer*4 count
  character*200 ::ko(2000)
  logical alive
  character*200 d
  character*200 o
character*4,allocatable::Q(:)
    character*8,allocatable::rot(:)
    character*8,allocatable::jxd(:)
    character*8,allocatable::c_p(:)
    character*8,allocatable::spx(:)
    character*8,allocatable::date(:)
     character*8,allocatable::volume(:)
    character*8,allocatable::time(:)
    character*8,allocatable::ex_time(:)
   character*8,allocatable::ex_price(:)
     character*8,allocatable::g(:)
     character*8,allocatable::h(:)
     character*8,allocatable::buy_price(:)
     character*8,allocatable::sell_price(:)
     character*8,allocatable::price(:)

  

  
    m=20070100

open(18,file="abc.txt",status='old')!
 do l=1, 1000
  m=m+1
write(18,"('mdr_',I8,'_SPX.csv')")m
  end do
close(18)
    
open(18,file="abc.txt",status='old')
do i=1, 1000
read(18,*)ko(i)
end do
     close(18)
    
 
f=40
do j=1,100

inquire(file=ko(j),exist=alive)
     if(alive)then
     !count each files line's number
open(f,file=ko(j),status="old")
     open(21,file="ccc.txt",status="old",position='append')

  
do while(.true.)
 
read(f,fmt="(A200)",iostat=c)d
s=1

     do k=1, len_trim(d)
   
     o(s:s)=d(k:k)
     s=s+1
    
     end do
     if(c/=0)exit
  write(21,"(a200)")o

     end do
     close(f)
     close(21)
     end if
     end do
stop
end

然後執行之後會發生一個錯誤的訊息如下

Error:Reference to undefined character
MAIN- at line 66

他說的line66指的就是我的write(21,"(a200)")o 這一行

但是o我已經宣告他為character了,為什麼還是會出現Undefined呢?

請各位大大幫我解答 ORZ

 板主 : 徵求中
 > Fortran - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Fortran - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Fortran
1 f77f95 3300 
2 dennis 470 
3 cc 350 
4 smallpotato 320 
5 qq 290 
6 冼鏡光 230 
7 eraser 220 
8 小文 210 
9 iner 200 
10 wuda 160 
Fortran
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.03125