24小时热门版块排行榜    

查看: 801  |  回复: 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的回帖
相关版块跳转 我要订阅楼主 云里看雾 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 建议基金发布提前给出明确的时间点 +10 kulium 2026-08-21 12/600 2026-08-21 19:46 by kulium
[基金申请] 2026国自然函评费到账 +3 羊腰板 2026-08-21 3/150 2026-08-21 19:42 by kulium
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +15 医学老男孩 2026-08-20 19/950 2026-08-21 18:54 by 医学老男孩
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] filecode,4个jtjc了 +11 ziyangfang 2026-08-19 14/700 2026-08-21 16:51 by applepetty
[基金申请] 让我中一个面上吧! +11 大萍1987 2026-08-20 13/650 2026-08-21 14:48 by 20120902066
[基金申请] 时间戳又变了8-15 +15 archvillain 2026-08-15 27/1350 2026-08-21 11:32 by tim76
[基金申请] 今天基金会出结果吗?20260819 +15 kkkl_v 2026-08-19 16/800 2026-08-21 11:22 by 365372687
[基金申请] 应该是下周三26日公布了吧? +4 哈哈蛤? 2026-08-21 4/200 2026-08-21 10:58 by Vivilian
[论文投稿] 投稿咨询 +5 wwm09 2026-08-17 7/350 2026-08-21 10:11 by 期刊论文帮手
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[基金申请] 基金啊基金 +4 longfie172 2026-08-20 4/200 2026-08-21 08:58 by mark mao
[基金申请] 时间戳今天,20号变了 +4 archvillain 2026-08-20 4/200 2026-08-21 08:10 by gatelove
[基金申请] 今天系统多次维护,明天很可能放榜! +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 今天放榜吗? +14 布布和一二 2026-08-19 15/750 2026-08-19 18:07 by gltch
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[精细化工] 招聘 金属平磨液,抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
信息提示
请填处理意见