如下程序编译不成功,不知道问题出在哪里,mesh.dat文件格式是第一行是numnp, numel的数值,第二行到最后是mesh的各个四边形的具体坐标。错误信息是:Error: A specification expression object must be a dummy argument, a COMMON block object, or an object accessible through host or use association [NUMNP] integer*4 numnp, numel
还有G:\Program Files\Microsoft Visual Studio\MyProjects\mesh\pmesh.for(22) : Error: An automatic object is invalid in a main program. [X] dimension x(2,numnp),ia(numnp),请多多指教,谢谢
PROGRAM pmesh
c
c-----------------------------------------------------------------
c purpose : to eliminate the string from existed mesh data
c warning : the mesh has to be made out of quadrangles only
c in :c
c out :
c x : array containing node coordinates
c ia : nodes reference number
c ien : list of element nodes
c mat : material ref. numbers for all elements
c in : element sides ref. number
cc-----------------------------------------------------------------------
c
implicit real*8 (a-h,o-z)
real xreal,yreal
integer*4 numnp, numel
dimension x(2,numnp),ia(numnp)
dimension ien(4,numel),mat(numel),in(4,numel)