版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖

賀儀

鐵桿木蟲 (著名寫手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時
蟲號: 995125
注冊: 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

[求助] fortran編譯 read出錯完畢

錯誤提示
POSITION.F(31): error #6358: Constants and expressions are invalid in read-only I/O lists. [MSP]
   read(15,*) (msp(i),i=1,10)
前面msp有定義
character msp(10)
  read(15,*) (msp(i),i=1,10)
語法有問題嗎？

一下是全部程序
   program getpos
ccccccccc  12 is SPPARKS OUTPUT  cccccccc
ccccccccc 15 is the molecure  ccccccccc
ccccccccc  13 is OUTPUT ccccccccccc
   integer mnum nsp
   real coord(2000,3)
   real species(10,3)
   integer nsp(10)
   real x y z
   character tile cellp cella cellb cellz msp(10)
   open(12,file='POSCAR',status='old')
   open(15,file='POSCAR',status='old')
   open(13,file='CONTCAR',status='new')
ccccccccccccccccccc sys param a b c cccccccccccccc
   read(12,*) tile
   write(13,*) tile
   read(12,*) cellp
   write(13,*) cellp
   read(12,*) cella ;
   write(13,*) cella
   read(12,*) cellb ;
   write(13,*) cellb
   read(12,*) cellc ;
   write(13,*) cellc
   read(15,*);
   read(15,*);
   read(15,*);
   read(15,*);
   read(15,*);
cccccccccccccccccccc atom char ccccccccccccccccccccccc
   read(15,*) (msp(i),i=1,10)
   write(13,*) (msp(i),i=1,10)
   read(12,*);
cccccccccccccccccccc atom num  cccccccccccccccccccccccc
   read(12,*) mnum
   read(15,*) (nsp(i),i=1,10)
   DO i=1, 10
      N_anum=mnum*nsp(i)
      write(13,N_anum)
   END DO
   read(12,*)
   read(15,*)
   write(13,*) 'R'
cccccccccccccccc  read molecue coord cccccccccccc
   DO i=1, mnum
      read(12,*) (coord(i,j),j=1,13)
   ENDDO
   close(12)
cc
   DO j=1, 10             !!! species cyc !!!!!!
         DO i=1, nsp(j)       !!! the j atom cyc !!!!!!
               read(15,*) x y z  !!!!!!!!!!!!!!!!!!!!!!!! molecure coord !!!!!!!!!!!!!
               DO k=1, mnum
                  nx=x+coord(k,1)
                  ny=y+coord(k,2)
                  nz=z+coord(k,3)
                  write(13,*) nx ,ny ,nz
               ENDDO
         ENDDO
   ENDDO
   close(15)
   close(13)
   END

[ Last edited by 賀儀 on 2011-8-23 at 14:53 ]

回復(fù)此樓

» 猜你喜歡

材料專碩英一數(shù)二306 已經(jīng)有5人回復(fù)
085600材料與化工調(diào)劑 324分已經(jīng)有9人回復(fù)
0703化學(xué)調(diào)劑已經(jīng)有12人回復(fù)
0703化學(xué) 305求調(diào)劑已經(jīng)有4人回復(fù)
0703化學(xué)調(diào)劑，求各位老師收留已經(jīng)有10人回復(fù)
271材料工程求調(diào)劑已經(jīng)有5人回復(fù)
281求調(diào)劑（0805）已經(jīng)有16人回復(fù)
304求調(diào)劑已經(jīng)有6人回復(fù)
材料工程專碩調(diào)劑已經(jīng)有6人回復(fù)
一志愿天大材料與化工（085600）總分338 已經(jīng)有4人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

急求可用的fortran編譯器已經(jīng)有13人回復(fù)
如何運行Fortran編譯好的exe并自動輸入文已經(jīng)有11人回復(fù)
請教一個fortran小程序編譯出錯的問題，謝謝已經(jīng)有9人回復(fù)
寫了一個fortran90的小程序，編譯通不過，請大俠幫忙已經(jīng)有59人回復(fù)
【求助】fortran出錯了已經(jīng)有3人回復(fù)
【整理】今天整理硬盤上的資料，偶然發(fā)現(xiàn)的好玩的小東西就直接發(fā)上來吧已經(jīng)有105人回復(fù)
【求助】求Fortran90編譯器？已經(jīng)有11人回復(fù)
【求助】fortran出錯編譯通過運行溢出已經(jīng)有10人回復(fù)
【求助】FORTRAN編譯通過，但是運行不了已經(jīng)有19人回復(fù)
【求助】Fortran編譯目標(biāo)文件后的鏈接問題已經(jīng)有4人回復(fù)
求助學(xué)習(xí)linux下fortran編譯哪本書好！已經(jīng)有4人回復(fù)
【求助】win7 的用什么fortran 編譯器啊？【已完成】已經(jīng)有14人回復(fù)

嘟啦啦嘟啦啦嘟

1樓 2011-08-23 09:57:29

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

賀儀

鐵桿木蟲 (著名寫手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時
蟲號: 995125
注冊: 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

7樓: Originally posted by snoopyzhao at 2011-08-23 15:10:46:
至少
integer mnum Nanum
character tile cellp
還是不正確的吧……
另外，\ 似乎也有問題……

我用ifort -O2 已經(jīng)通過編譯了
拿到自己想要的文件了就不管那么多了呵呵

贊一下

回復(fù)此樓

嘟啦啦嘟啦啦嘟

8樓2011-08-23 15:14:08

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 12 個回答

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

★ ★
賀儀(金幣+5): 多謝指教！ 2011-08-23 14:53:23
余澤成(金幣+2): 謝謝參與應(yīng)助！ 2011-08-24 16:20:44

引用回帖:

1樓: Originally posted by 賀儀 at 2011-08-23 09:57:29:
錯誤提示
POSITION.F(31): error #6358: Constants and expressions are invalid in read-only I/O lists. [MSP]
read(15,*) (msp(i),i=1,10)
前面msp有定義
character msp(10)
read(15,*) (msp(i ...

character 類型數(shù)據(jù)不能用 read(15, *) 這種方式來讀取吧。 * 只適合于數(shù)值，而且讀出來的格式只能是浮點數(shù)……

如果你的 msp 是用來存單個字符（10個？），那么你可以用下面的代碼試試（沒有測試，不保證正確……）

CODE:

read(15, '(a1)') (msp(i), i=1,10)

贊一下(1人)

回復(fù)此樓

2樓2011-08-23 14:31:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

程序強帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時
蟲號: 183750
注冊: 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

★ ★
賀儀(金幣+5): 多謝指教！ 2011-08-23 14:53:34
余澤成(金幣+2): 辛苦了！ 2011-08-24 16:20:55

看來我前面的說法沒有切入要點，你的問題在于
real x y z
character tile cellp cella cellb cellz msp(10)
上面兩行各個變量之間應(yīng)該用逗號來分隔……

當(dāng)然，字符的確不能用 read(15,*) 這種方式來讀……

贊一下(1人)

回復(fù)此樓

3樓2011-08-23 14:47:28

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

賀儀

鐵桿木蟲 (著名寫手)

應(yīng)助: 93 (初中生)
貴賓: 0.636
金幣: 5937
散金: 1063
紅花: 38
沙發(fā): 2
帖子: 2499
在線: 588.7小時
蟲號: 995125
注冊: 2010-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

★
余澤成(金幣+1): 謝謝參與應(yīng)助！ 2011-08-24 16:21:05

不是讀取的原因
在定義的時候用“：：”后就可以了

贊一下(1人)

回復(fù)此樓

嘟啦啦嘟啦啦嘟

4樓2011-08-23 14:55:38

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

查看全部 12 個回答

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 0703化學(xué)調(diào)劑，求各位老師收留 +10	秋有木北 2026-03-14	10/500	2026-03-19 05:52 by anny19840123
[考研] 一志愿天大材料與化工（085600）總分338 +4	蔡大美女 2026-03-13	4/200	2026-03-18 22:47 by walc
[考研] 一志愿華中科技大學(xué)，080502，354分求調(diào)劑 +4	守候夕陽CF 2026-03-18	4/200	2026-03-18 22:16 by li123456789.
[考研] 一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑 +4	Ymlll 2026-03-18	6/300	2026-03-18 22:15 by li123456789.
[考研] 344求調(diào)劑 +6	knight344 2026-03-16	7/350	2026-03-18 20:13 by walc
[考研] 化學(xué)工程321分求調(diào)劑 +15	大米飯！ 2026-03-15	18/900	2026-03-18 14:52 by haxia
[考研] 0703化學(xué)調(diào)劑，六級已過，有科研經(jīng)歷 +10	曦熙兮 2026-03-15	10/500	2026-03-18 14:19 by 007_lilei
[考研] 收復(fù)試調(diào)劑生 +4	雨后秋荷 2026-03-18	4/200	2026-03-18 14:16 by elevennnne
[考研] 280求調(diào)劑 +6	咕嚕曉曉 2026-03-18	7/350	2026-03-18 11:25 by 無際的草原
[考研] 環(huán)境工程調(diào)劑 +8	大可digkids 2026-03-16	8/400	2026-03-18 09:36 by zhukairuo
[基金申請] 今年的國基金是打分制嗎？ 50+3	zhanghaozhu 2026-03-14	3/150	2026-03-16 17:07 by 北京萊茵潤色
[考研] 求老師收留調(diào)劑 +4	jiang姜66 2026-03-14	5/250	2026-03-15 20:11 by Winj1e
[考研] 材料與化工 323 英一+數(shù)二+物化，一志愿：哈工大本人本科雙一流 +4	自由的_飛翔 2026-03-13	5/250	2026-03-14 19:39 by hmn_wj
[考研] 中科大材料專碩319求調(diào)劑 +3	孟鑫材料 2026-03-13	3/150	2026-03-14 18:10 by houyaoxu
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏
[考研] 266求調(diào)劑 +4	學(xué)員97LZgn 2026-03-13	4/200	2026-03-14 08:37 by zhukairuo
[考研] 工科材料085601 279求調(diào)劑 +8	困于星晨 2026-03-12	10/500	2026-03-13 15:42 by ms629
[考研] 290求調(diào)劑 +7	ADT 2026-03-12	7/350	2026-03-13 15:17 by JourneyLucky
[論文投稿] 投稿問題 5+4	星光燦爛xt 2026-03-12	6/300	2026-03-13 14:17 by god_tian
[考博] 福州大學(xué)楊黃浩課題組招收2026年專業(yè)學(xué)位博士研究生，2026.03.20截止 +3	Xiangyu_ou 2026-03-12	3/150	2026-03-13 09:36 by duanwu655

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

賀儀

[求助] fortran編譯 read出錯 完畢

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

賀儀

snoopyzhao

【答案】應(yīng)助回帖

snoopyzhao

【答案】應(yīng)助回帖

賀儀

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[求助] fortran編譯 read出錯完畢

» 本主題相關(guān)價值貼推薦，對您同樣有幫助: