Fortran error#5082:Syntax error,found INTEGER_CONSTANT ‘5‘ when expecting one of: <IDENTIFIER>

这段Fortran代码中存在数组下标引用错误,导致编译失败。错误主要集中在使用了整数常量'5'的地方,预期应该为标识符。程序试图输出850hPa和700hPa的气象数据,包括平均温度、最低和最高气温及对应的经纬度。修复这些错误需要检查imin和imax的值以及pos函数的参数是否正确。
摘要由CSDN通过智能技术生成

Fortran 程序

 do i=1,4,2
        print 100,i,ave(i),&
        &i,tmin(i),pos(imin(i)/5,imin(i)%5,1),pos(imin(i)/5,imin(i)%5,2),&
        &i,tmax(i),pos(imax(i)/5,imax(i)%5,1),pos(imax(i)/5,imax(i)%5,2)
        print 200,i+1,ave(i+1),&
        &i+1,tmin(i+1),pos(imin(i+1)/5,imin(i+1)%5,1),pos(imin(i+1)/5,imin(i+1)%5,2),&
        &i+1,tmax(i+1),pos(imax(i+1)/5,imax(i+1)%5,1),pos(imax(i+1)/5,imax(i+1)%5,2)
    end do
100 format(i1,'月850hPa上平均温度',f6.2,',',&
    &i1,'月850hPa上最低气温',f6.2,'相应的经纬度位置',a10,a10,',',&
    &i1,'月850hPa上最高气温',f6.2,',','相应的经纬度位置',a10,a10)
200 format(i1,'月700hPa上平均温度',f6.2,',',&
    &i1,'月700hPa上最低气温',f6.2,'相应的经纬度位置',a10,a10,',',&
    &i1,'月700hPa上最高气温',f6.2,',','相应的经纬度位置',a10,a10)
错误	1	 error #5082: Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <IDENTIFIER> [	D:\Download\ivf\projects\a5\a5\Source1.f90	55	
错误	2	 error #5082: Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <IDENTIFIER> [	D:\Download\ivf\projects\a5\a5\Source1.f90	55	
错误	3	 error #5082: Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <IDENTIFIER> [	D:\Download\ivf\projects\a5\a5\Source1.f90	56	
错误	4	 error #5082: Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <IDENTIFIER> [	D:\Download\ivf\projects\a5\a5\Source1.f90	56	
错误	5	 error #5082: Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <IDENTIFIER> [	D:\Download\ivf\projects\a5\a5\Source1.f90	58	
错误	6	 error #5082: Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <IDENTIFIER> [	D:\Download\ivf\projects\a5\a5\Source1.f90	58	
错误	7	 error #5082: Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <IDENTIFIER> [	D:\Download\ivf\projects\a5\a5\Source1.f90	59	
错误	8	 error #5082: Syntax error, found INTEGER_CONSTANT '5' when expecting one of: <IDENTIFIER> [	D:\Download\ivf\projects\a5\a5\Source1.f90	59	
错误	9	Compilation Aborted (code 1)	D:\Download\ivf\projects\a5\a5\Source1.f90	1	

好像是数组下标引用出问题,但是不知道怎么改正


2024.09.
我重新看了一下,应该是下标的问题,括号里的东西写太多了,如果改的话,把括号里的东西取出来单独赋值,逐个检查哪里错误。
不过源代码早没了,只是这个修改思路可以参考一下。

评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值