【已解决】大家帮忙看看这个代码是啥意思，运行了没问题，但是有3个warning

爱的侍者

--------------------Configuration: temp - Win32 Debug--------------------
Compiling Fortran...
G:\01\temp.f90
G:\01\temp.f90(66) : Warning: In the call to RDL, actual argument #17 does not match the type and kind of the corresponding dummy argument.
call rdl(fname,sumu,sdmd,stmt,smmm,spmp,uaverage,daverage,taverage,maverage,paverage,sdmd,powerdensity,rate1,rate2,rate3,ku,kd,ktm,kp)
-------------------------------------------------------------------------------------------------------------------^
G:\01\temp.f90(66) : Warning: In the call to RDL, actual argument #21 has no corresponding dummy argument.
call rdl(fname,sumu,sdmd,stmt,smmm,spmp,uaverage,daverage,taverage,maverage,paverage,sdmd,powerdensity,rate1,rate2,rate3,ku,kd,ktm,kp)
-----------------------------------------------------------------------------------------------------------------------------------^
G:\01\temp.f90(66) : Warning: Routine RDL called with different number and/or type of actual arguments in earlier call - C attribute required if intended.
call rdl(fname,sumu,sdmd,stmt,smmm,spmp,uaverage,daverage,taverage,maverage,paverage,sdmd,powerdensity,rate1,rate2,rate3,ku,kd,ktm,kp)
-----^
temp.obj - 0 error(s), 3 warning(s)

#的意思 是啥？ 眼睛看花了 代码几百行

善人/jw

warning是不要紧的，还是可以运行程序的

爱的侍者

善人/jw 发表于 2013-1-6 18:16

                               
登录/注册后可看大图

warning是不要紧的，还是可以运行程序的

是 但是为啥会出现这个问题呢 ？？ 他显示我的子函数可能存在着问题，但是心里还是很担心，想把这个问题解决掉。我贴上一段代码大家看看。
program main
implicit none
integer*2 rr,nk,i,j,k,ii,jj,ku,kd,ktm,kp      
parameter(rr=1440,nk=6)
character*51 fname
character*21 outname1,outname2
character*21 outname3
character tt*39,mon(12)*2,date(31)*2,aa*62,bb*24
real sumu(rr,nk),sdmd(rr,nk),stmt(rr,nk),smmm(rr,nk),spmp(rr,nk),uaverage(nk),daverage(nk),taverage(nk),maverage(nk),paverage(nk),powerdensity(rr,nk),&
&rate1(rr,nk),rate2(rr,nk),rate3(rr,nk)
主函数中关于声明的部分
call rdl(fname,sumu,sdmd,stmt,smmm,spmp,uaverage,daverage,taverage,maverage,paverage,sdmd,powerdensity,rate1,rate2,rate3,ku,kd,ktm,kp)
do k=1,nk
uaverage(k)=0.
daverage(k)=0.
taverage(k)=0.
maverage(k)=0.
paverage(k)=0.
enddo

enddo
enddo

调用子函数的部分
subroutine rdl(fname,sumu,sdmd,stmt,smmm,spmp,uaverage,daverage,taverage,maverage,paverage,powerdensity,rate1,rate2,rate3,ku,kd,ktm,kp)
implicit none
integer*2 rr,cc,nk,i,j,k,tt,ku,kd,ktm,kp
parameter(rr=1440,cc=60,nk=6)
integer*2 ymd(rr,6)
integer*1 qu(rr,cc,nk),qd(rr,cc,nk),qt(rr,cc,nk),qm(rr,cc,nk),qp(rr,cc,nk)
real*4 u(rr,cc,nk),d(rr,cc,nk),t(rr,cc,nk),m(rr,cc,nk),p(rr,cc,nk)
real sumu(rr,nk),sdmd(rr,nk),stmt(rr,nk),smmm(rr,nk),spmp(rr,nk),uaverage(nk),daverage(nk),taverage(nk),maverage(nk),paverage(nk),powerdensity(rr,nk),rate1(rr,nk),&
&rate2(rr,nk),rate3(rr,nk),na(rr,nk),nc(rr,nk),ne(rr,nk),ng(rr,nk),ni(rr,nk),nb(nk),nd(nk),nf(nk),nh(nk),nj(nk)
integer pp,qq,aa,dl,ul,tl,ml,pl

character*154 ftitle
character*51 fname
!character*9 fname1
!character*9 fname2
!character*9 fname3
character*21 outname1,outname2
character*21 outname3
子函数中声明的部分

爱的侍者

已解决
去掉了主函数中声明的 ku,kd,ktm,kp及子函数中相对应的参数
同时子函数中重复了一个sdmd的变量~！

善人/jw

自己动手，丰衣足食了~~

xiahaha

楼主厉害了