 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 701 | 回復(fù): 2 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
云里看霧銀蟲 (初入文壇)
|
[求助]
關(guān)于fortran的一個小問題
|
|
|
求大神幫助啊。我在學(xué)習(xí)FORTRAN的時候遇到了這樣一個問題，參照別人的程序復(fù)制粘貼了一遍，可怎么都出來不了圖形，大家?guī)兔Ψ治鱿隆?br />
程序原代碼如下(網(wǎng)上關(guān)于材料計(jì)算的FORTRAN代碼之一): USE MSFLIB INTEGE R XR，YR !在的區(qū)域中畫一個圓 PARAMETER XR=400,YR=400 INTEGER R, S(1:XR,1:YR) X0=XR/2 ! 圓心位置X0，YO Y0=YR/2 R=MIN(X0 -10,Y0-10) ! 圓半徑 S=0 !像素的初始狀態(tài)（顏色） DO I=1,XR DO J=1,YR IF((I -X0)**2+(J-Y0)**2<=R**2)S(I,J)=10 IER=SETCOLOR(S(I,J)) IER=SETPIXEL(I,J) END DO END DO END 我使用的是CVF6.5的編譯器，所以第一個代碼我換成了USE DFLIB,編譯時發(fā)生錯誤：Error: This name has already been assigned a data type.見圖 huatu11.JPG |
回復(fù)此樓» 猜你喜歡
請問還有沒有用Latex寫文章的小伙伴們？
已經(jīng)有0人回復(fù)
-
光學(xué)工程學(xué)碩調(diào)劑信息
已經(jīng)有32人回復(fù)
-
物理學(xué)I論文潤色/翻譯怎么收費(fèi)?
已經(jīng)有257人回復(fù)
-
歡迎加入課題組
已經(jīng)有0人回復(fù)
-
散金幣，求好運(yùn)，祝面上順利！
已經(jīng)有78人回復(fù)
-
華東師范大學(xué)芯片設(shè)計(jì)徐瓏真實(shí)水平咋樣
已經(jīng)有1人回復(fù)
-
調(diào)劑
已經(jīng)有0人回復(fù)
-
【新加坡】納米電子器件項(xiàng)目組有“聯(lián)合培養(yǎng)博士生”名額
已經(jīng)有0人回復(fù)
-
中德博士后2026項(xiàng)目5月30日截止- 國內(nèi)博士后入站、德國兩年全職
已經(jīng)有0人回復(fù)
-
面向全球申請人的中德博士后2026項(xiàng)目5月30日截止- 國內(nèi)博后入站德國兩年全職
已經(jīng)有0人回復(fù)
-
【新加坡】納米電子器件項(xiàng)目組有“聯(lián)合培養(yǎng)博士生”名額
已經(jīng)有2人回復(fù)
» 本主題相關(guān)商家推薦: (我也要在這里推廣)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 急，急，急，求一fortran語言高手，幫解決程序問題
已經(jīng)有8人回復(fù)
- fortran讀寫問題
已經(jīng)有6人回復(fù)
- 一個采用fortran在linux下運(yùn)行的程序的安裝問題
已經(jīng)有9人回復(fù)
- 急求fortran運(yùn)行錯誤原因，在線等
已經(jīng)有7人回復(fù)
- 請教 fortran 運(yùn)行錯誤的原因
已經(jīng)有13人回復(fù)
- fortran轉(zhuǎn)換CHGCAR出錯
已經(jīng)有4人回復(fù)
- FORTRAN新手 求助主程序循環(huán)問題
已經(jīng)有10人回復(fù)
- fortran的一個錯誤
已經(jīng)有9人回復(fù)
- 大家?guī)臀铱匆粋�fortran的程序，我總是計(jì)算不出正確的結(jié)果
已經(jīng)有20人回復(fù)
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經(jīng)有9人回復(fù)
- Fortran的格式化輸入輸出問題
已經(jīng)有14人回復(fù)
- 三維數(shù)組換行輸入到文件（intel fortran 編譯器）
已經(jīng)有6人回復(fù)
- 有關(guān)fortran的一次而問題，希望大家能幫幫忙，謝謝
已經(jīng)有4人回復(fù)
- 寫了一個fortran90的小程序，編譯通不過，請大俠幫忙
已經(jīng)有59人回復(fù)
- 【求助】FORTRAN寫文件時每行開頭都多了一個空格？
已經(jīng)有6人回復(fù)
- 【轉(zhuǎn)帖】intel Fortran編譯器的一個“危險”優(yōu)化
已經(jīng)有9人回復(fù)
云里看霧
銀蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 281.8
- 帖子: 13
- 在線: 19.6小時
- 蟲號: 1819890
- 注冊: 2012-05-16
- 性別: GG
- 專業(yè): 金屬結(jié)構(gòu)材料
3樓2013-04-07 16:33:13
泡饃
金蟲 (初入文壇)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1487.4
- 紅花: 1
- 帖子: 46
- 在線: 312.4小時
- 蟲號: 2388812
- 注冊: 2013-03-30
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
2樓2013-04-05 19:01:53
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 341求調(diào)劑(一志愿湖南大學(xué)070300) +5 | 番茄頭--- 2026-03-22 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 081700 調(diào)劑 267分 +7 | 迷人的哈哈 2026-03-23 | 7/350 |
|
|
|
[考研] 085600材料與化工調(diào)劑 +7 | A-哆啦Z夢 2026-03-23 | 12/600 |
|
|
|
[考研] 求調(diào)劑一志愿武漢理工大學(xué)材料工程（085601） +3 | WW.' 2026-03-23 | 5/250 |
|
|
|
[考研] 接收2026碩士調(diào)劑(學(xué)碩+專碩) +4 | allen-yin 2026-03-23 | 6/300 |
|
|
|
[考研]
 一志愿070300浙大化學(xué)358分，求調(diào)劑！
+4
|
酥酥魚.. 2026-03-21 | 4/200 |
|
|
|
[考研] 一志愿中南化學(xué)（0703）總分337求調(diào)劑 +9 | niko- 2026-03-19 | 10/500 |
|
|
|
[考研] 一志愿華中科技大學(xué)071000，求調(diào)劑 +4 | 沿岸有貝殼6 2026-03-21 | 4/200 |
|
|
|
[考研] 資源與環(huán)境 調(diào)劑申請(333分) +5 | holy J 2026-03-21 | 5/250 |
|
|
|
[考研] 0805 316求調(diào)劑 +3 | 大雪深藏 2026-03-18 | 3/150 |
|
|
|
[考研] 材料工程專碩 348分求調(diào)劑 +3 | 冬辭. 2026-03-17 | 5/250 |
|
|
|
[考研] 材料 336 求調(diào)劑 +3 | An@. 2026-03-18 | 4/200 |
|
|
|
[考研] 南京大學(xué)化學(xué)376求調(diào)劑 +3 | hisfailed 2026-03-19 | 6/300 |
|
|
|
[考研] 329求調(diào)劑 +9 | 想上學(xué)吖吖 2026-03-19 | 9/450 |
|
|
|
[考研] 一志愿西南交通 專碩 材料355 本科雙非 求調(diào)劑 +5 | 西南交通專材355 2026-03-19 | 5/250 |
|
|
|
[考研] 求調(diào)劑 +3 | eation27 2026-03-20 | 3/150 |
|
|
|
[考研] 招收調(diào)劑碩士 +4 | lidianxing 2026-03-19 | 12/600 |
|
|
|
[考研] 生物學(xué)調(diào)劑招人�。�！ +3 | 山海天嵐 2026-03-17 | 4/200 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 +4 | 18889395102 2026-03-18 | 4/200 |
|
|
|
[考研] 考研調(diào)劑 +3 | 淇ya_~ 2026-03-17 | 5/250 |
|