子程序传入传出参数问题，求大佬帮助

fcode

推荐阅读：http://passarray.w.fcode.cn/
    Integer,Parameter::Numt=7.0         !时间迭代总次数/min
    Integer,Parameter::NumL=6.0         !管长迭代总次数/节
    Integer,Parameter::Numx=5.0         !翅片宽度方向迭代总次数/节
Real::Two(0:numx,0:NumL,0:Numt)
Real Htair(numx,NumL,Numt)
子程序里也这样定义。
你的 k , j , i 是循环变量，并不是数组的大小。
你确定你的子程序中 Real Aair(k,j,i) 这些数组，是用循环变量作为大小的吗？
那么第一次循环，将会是 Real Aair(1,1,1) 大小是1*1*1 的

fcode

问题：
1. 需要传入 i,j,k 的值
call Get_Htair(Tair,Two,Htairx,k,j,i)
Subroutine Get_Htair(Tair,Two,Htairx,k,j,i)
2. 无需interface，去掉。（如果你用的假定形状，那么需要interface，但是你用的是固定大小数组）