关于Fortran语句的问题do ir=1,maxtriread(1,*) mat_number(ir),npotri(1,ir),npotri(2,ir),npotri(3,ir)call atclxx(npotri(1,ir),x)-------------------------------------------------------------subroutine atclxx(node,x)implicit real*8 (a-h),real*8 (o-z)dimension node(1),x(2,1)ax=x(1,node(2))-x(1,node(1))ay=x(2,node(2))-x(2,node(1))bx=x(1,node(3))-x(1,node(2))by=x(2,node(3))-x(2,node(2))主程序第二行中读取文件1中的4个值给四个变量然后调用atclxx函数,只把npotri(1,ir)的值传递给了子程序,但为什么子程序的node里面会有npotri

关于Fortran语句的问题
do ir=1,maxtri
read(1,*) mat_number(ir),npotri(1,ir),npotri(2,ir),npotri(3,ir)
call atclxx(npotri(1,ir),x)
-------------------------------------------------------------
subroutine atclxx(node,x)
implicit real*8 (a-h),real*8 (o-z)
dimension node(1),x(2,1)
ax=x(1,node(2))-x(1,node(1))
ay=x(2,node(2))-x(2,node(1))
bx=x(1,node(3))-x(1,node(2))
by=x(2,node(3))-x(2,node(2))
主程序第二行中读取文件1中的4个值给四个变量
然后调用atclxx函数,只把npotri(1,ir)的值传递给了子程序,但为什么子程序的node里面会有npotri(1,ir),npotri(2,ir),npotri(3,ir) 三个值
注：x是一个点的横纵坐标,npotri(1,ir),npotri(2,ir),npotri(3,ir)分别是三角形的三个顶点