main.f:122.20:
          call stat(it,ncalc,smpln)                                    
                    1
Error: 'name' argument of 'stat' intrinsic at (1) must be CHARACTER
其中stat为自定义函数,it为整数,不明白出错原因