请教下面fortran代码是什么意思?
force=0.0_dpdoi=1,numnpif(id(1,i).eq.1.and.x(2,i).gt.0.0_dp)force=force-dr(1,i)enddo...
force = 0.0_dp
do i = 1,numnp
if (id(1,i).eq.1.and.x(2,i).gt.0.0_dp) force=force-dr(1,i)
enddo 展开
do i = 1,numnp
if (id(1,i).eq.1.and.x(2,i).gt.0.0_dp) force=force-dr(1,i)
enddo 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询