发布网友
共1个回答
热心网友
实元k_end,k_start,uz_int中的uz_int并没有在公共块中设置成real*8,而在
子程序
中相应的哑元S确设置成了real*8,这可能就是不一致的原因。(不知道你把uz_int设置成什么?)
再有
kxy_integral(k_end,k_start,uz_int)
应该是
call
kxy_integral(k_end,k_start,uz_int)