调用子程序前后数值发生变化？

quartzbj

program ab
int na,nb
int a,b,c

na=4

call sab(a,b,c)
这里的na的值就不等于4，有可能什么原因？因为子程序sab中没有使用na。
.....
end

subroutine sab(a,b,c)
....

freefrompassion

根据你的描述写了段小程序,并没发现你说的问题,可能还是你的程序本身的问题,可能要用单步调试慢慢找了!
program ab
  implicit none
  integer na,nb
  integer a,b,c
  na=4
  a=1; b=2; c=3;

  write(*,*)"na=",na
  call sab(a,b,c)
  write(*,*)"na=",na
end program ab

subroutine sab(a,b,c)
  integer a,b,c
  write(*,*)"a=",a,"b=",b,"c=",c
end subroutine sab

[虽然只是简单常识,但作者求实认真,助人乐精神可佳]

iwtry

有没有可能是你a,b,c在调用前后数据类型不同造成的？

quartzbj

对，现在问题解决了，谢谢。
发现有时候不能把问题想简单了，越简单的问题越容易出错。还不知道什么原因。