ncl调用Fortran程序，生成.so文件出错

tiantianyixin

本人想用ncl调用fortran 程序，进展到生成.so文件时出错，错误信息为：A syntax error occurred while parsing:。根据官网说明，进行了dos2unix wind.f90操作后，依然不能生成.so文件，错误信息还是如上所述。望各位大神指点:
Fortran子程序如下：
   subroutine wind(xx,yy,u,v,ss)
   implicit none
   integer,intent(in)::  xx,yy
   real, intent(in) ::  u(xx,yy),v(xx,yy)  
   real, intent(out) ::  ss(xx,yy)
     do i=1,xx
     do j=1,yy
         ss(i,j)=sqrt(u(i,j)**2+v(i,j)**2)
     end do
     end do
   return
   end

wind.stub"的文本：
C NCLFORTSTART
   subroutine wind(xx,yy,u,v,ss)
   integer xx,yy
   dimension u(xx,yy),v(xx,yy),ss(xx,yy)
C NCLEND

生成.so时，错误信息如下：
$ WRAPIT wind.stub wind.f90

WRAPIT Version: 120209
A syntax error occurred while parsing:
COMPILING wind.f90
LINKING
END WRAPIT

longlivehj

我就加了一句：

integer::i, j

可以生成so，没有遇到你提到的错误。

tiantianyixin

longlivehj 发表于 2014-12-21 13:12
我就加了一句：

integer::i, j

多谢你回复，我在Fortran程序和stub文件中加入integer ::i,j后，依然提示
$ WRAPIT wind.stub wind.f90
WRAPIT Version: 120209
A syntax error occurred while parsing:
COMPILING wind.f90
LINKING
大神，麻烦你指点一下。
END WRAPIT

longlivehj

tiantianyixin 发表于 2014-12-21 13:24
多谢你回复，我在Fortran程序和stub文件中加入integer ::i,j后，依然提示
$ WRAPIT wind.stub wind.f90
...

wind.stub有没有用dos2unix处理？如果没有，处理后再试一下。

tiantianyixin

longlivehj 发表于 2014-12-21 13:45
wind.stub有没有用dos2unix处理？如果没有，处理后再试一下。

嗯，确实是这个问题，谢谢大神

又是那隻貓

longlivehj 发表于 2014-12-21 13:45
wind.stub有没有用dos2unix处理？如果没有，处理后再试一下。

好厉害

Dan_King

又是那隻貓 发表于 2014-12-21 16:02
好厉害

我也遇到了这样的问题，用dos2unix处理了也还是报错，错误和楼主之前的一样，不知道怎么解决啊，求高手指点啊

Juliustan

后来解决了吗

tiantianyixin

Juliustan 发表于 2016-5-20 16:59
后来解决了吗

解决了，根据大神的回复成功解决

95niande77

我也是stub文件和f90文件都执行了dos2unix，但依旧报错：
我用的是官网的例子
cquad.f90文件：
subroutine cquad(a,b,c,nq,x,quad)
implicit none
integer    ::nq
real       ::a,b,c,x(nq),quad(nq)
integer    ::i
quad = a*x**2+b*x+c
return
end subroutine cquad

cquad.stub文件：
C NCLFORTSTART
   subroutine cquad(a,b,c,nq,x,quad)
   real a,b,c
   integer nq
   dimension x(nq),quad(nq)
C NCLEND
报错如下：
$ WRAPIT cquad.stub cquad.f90

WRAPIT Version: 120209
In file included from /nuist/p/public/app/ncl/6.3.0/intel/18.0.0/include/ncarg/hlu/hlu.h:28:0,
                 from WRAPIT.c:9:
/nuist/p/public/app/intel/compilers_and_libraries_2018.0.128/linux/compiler/include/limits.h:36:54: error: missing binary operator before token "("
     defined(__has_include_next) && __has_include_next(<limits.h>)
                                                      ^
COMPILING cquad.f90
LINKING
gcc: error: WRAPIT.o: No such file or directory
rm: cannot remove ‘WRAPIT.o’: No such file or directory
END WRAPIT
请问怎么解决？？？