NCL中怎么调用Fortran子函数

1. 步骤：

注：

① stub声明变量的格式

② so文件可以理解为让NCL可以读懂的媒介

C NCLFORTSTART
      subroutine f1 (x, y, z)
      integer 
      real
C NCLEND

或者：

C NCLFORTSTART
      function f2 (x, y, z)
      integer 
      real
C NCLEND

③ abc是调用函数的"引子"，告诉NCL我们要调用Fortran啦

2. 示范：

a) 提前准备好要调用的子函数，用Fortran写好，保存为ex01.F90：

b) 为F90文件写好变量声明，保存为ex01.stub：

c) 按照步骤的方式，在NCL脚本中加入Fortran函数调用申明并调用子函数：

d) 运行：

① 先产生so文件：WRAPIT ex01.stub ex01.f90

② 运行ncl：ncl ex01.ncl

刚开始y是没有值的，由new函数初始化，最后输出到屏幕可以看出试验成功。