24小时热门版块排行榜    

查看: 696  |  回复: 2

云里看雾

银虫 (初入文坛)

[求助] 关于fortran的一个小问题

求大神帮助啊。我在学习FORTRAN的时候遇到了这样一个问题,参照别人的程序复制粘贴了一遍,可怎么都出来不了图形,大家帮忙分析下。
程序原代码如下(网上关于材料计算的FORTRAN代码之一):
USE MSFLIB     
  INTEGE R  XR,YR  !在的区域中画一个圆
  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 !像素的初始状态(颜色)
  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,编译时发生错误:Error: This name has already been assigned a data type.见图

huatu11.JPG
回复此楼

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)

» 本主题相关价值贴推荐,对您同样有帮助:

Just do it!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

泡馍

金虫 (初入文坛)

【答案】应助回帖

★ ★
csgt0: 金币+1, 欢迎交流 2013-04-07 15:03:51
云里看雾: 金币+1, 有帮助 2013-04-07 16:30:10
第3行重复定义了啊。
你把第2行注释掉看看行不行。
2楼2013-04-05 19:01:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

云里看雾

银虫 (初入文坛)

引用回帖:
2楼: Originally posted by 泡馍 at 2013-04-05 19:01:53
第3行重复定义了啊。
你把第2行注释掉看看行不行。

之前试了很多次,也这样改过,就是不行,后来进入到另外一个QUICK win程序才解决掉,太感谢了~,不过网上那个都是这样写的,刚学,看不太懂哪里出问题。真谢谢你。
Just do it!
3楼2013-04-07 16:33:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 云里看雾 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 322求调剂 +3 X123- 2026-03-14 3/150 2026-03-21 18:40 by ColorlessPI
[考研] 310求调剂 +3 baibai1314 2026-03-16 3/150 2026-03-21 03:56 by JourneyLucky
[考研] 301求调剂 +10 yy要上岸呀 2026-03-17 10/500 2026-03-21 03:14 by JourneyLucky
[考研] 初始318分求调剂(有工作经验) +3 1911236844 2026-03-17 3/150 2026-03-21 02:33 by JourneyLucky
[考研] 328求调剂,英语六级551,有科研经历 +4 生物工程调剂 2026-03-17 8/400 2026-03-21 02:12 by JourneyLucky
[考研] 一志愿重庆大学085700资源与环境专硕,总分308求调剂 +3 墨墨漠 2026-03-18 3/150 2026-03-21 00:39 by JourneyLucky
[考研] 274求调剂 +10 S.H1 2026-03-18 10/500 2026-03-20 23:51 by JourneyLucky
[考研] 323求调剂 +3 洼小桶 2026-03-18 3/150 2026-03-20 22:54 by JourneyLucky
[考研] 一志愿 西北大学 ,070300化学学硕,总分287,双非一本,求调剂。 +4 晨昏线与星海 2026-03-19 4/200 2026-03-20 22:15 by JourneyLucky
[考研] 295复试调剂 +8 简木ChuFront 2026-03-19 8/400 2026-03-20 20:44 by zhukairuo
[考研] 0817 化学工程 299分求调剂 有科研经历 有二区文章 +22 rare12345 2026-03-18 22/1100 2026-03-20 20:39 by zhukairuo
[考研] 一志愿吉林大学材料学硕321求调剂 +11 Ymlll 2026-03-18 15/750 2026-03-20 19:40 by 丁丁*
[考研] 求调剂 +3 暗涌afhb 2026-03-16 3/150 2026-03-20 00:28 by 河南大学校友
[考研] 085601材料工程专硕求调剂 +10 慕寒mio 2026-03-16 10/500 2026-03-19 15:26 by 丁丁*
[考研] 266求调剂 +5 阳阳哇塞 2026-03-14 10/500 2026-03-19 15:08 by 阳阳哇塞
[考研] 材料考研调剂 +3 xwt。 2026-03-19 3/150 2026-03-19 11:22 by w沐阳w
[考研] 085601专硕,总分342求调剂,地区不限 +5 share_joy 2026-03-16 5/250 2026-03-18 14:48 by haxia
[考研] 0703化学调剂 +3 妮妮ninicgb 2026-03-17 3/150 2026-03-18 10:29 by macy2011
[考研] 070300化学学硕求调剂 +6 太想进步了0608 2026-03-16 6/300 2026-03-16 16:13 by kykm678
[考研] 0856专硕279求调剂 +5 加油加油!? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
信息提示
请填处理意见