Re: help: WRAPIT

All,

This turned out to be a case sensitive naming issue. The function was being referred to as "area_wgt_avg_4D" in the NCL script, but "area_wgt_avg_4d" in the F90 subroutine.

NCL is case-sensitive, so it's important to have the exact names for both sets of functions.

--Mary

On Mar 11, 2013, at 4:00 PM, Sha Feng wrote:

> Hi there,
>
>
>
> When I am trying to call a fortran subroutine when running a ncl script, the error information appears below.
>
> +++++++++
>
> Copyright (C) 1995-2012 - All Rights Reserved
>
> University Corporation for Atmospheric Research
>
> NCAR Command Language Version 6.1.0
>
> The use of this software is governed by a License Agreement.
>
> See http://www.ncl.ucar.edu/ for more details.
>
> fatal:syntax error: procedure area_wgt_avg_4D is not defined in package SMOOTHING_4D
>
>
>
> fatal:error at line 121 in file A2_create_LSF_d03_smoothing.ncl
>
>
>
> fatal:Syntax Error in block, block not executed
>
> fatal:error at line 775 in file A2_create_LSF_d03_smoothing.ncl
>
> ++++++++
>
>
>
> In the ncl script, the related lines are listed below:
>
>
>
> ==============
>
> …
>
> external SMOOTHING_4D "./area_wgt_avg_4D.so"
>
> …
>
> SMOOTHING_4D::area_wgt_avg_4D(u_p,dim(0),dim(1),dimu(2),dimu(3),dx,dx,u_p@_FillValue,len,u_L)
>
> …
>
> ==============
>
>
>
> Below is the output for run WRAPIT to create area_wgt_avg_4D.so file.
>
>
>
> +++++++++++
>
> $ WRAPIT -in -m64 area_wgt_avg_4D.stub area_wgt_avg_4D.f90
>
>
> WRAPIT Version: 120209
>
> /opt/intel/bin/ifort
>
> /opt/intel/bin/ifort
>
> COMPILING area_wgt_avg_4D.f90
>
> LINKING
>
> END WRAPIT
>
> +++++++++++
>
>
>
> Does anyone have clues to fix this issue?
>
>
>
> Thanks,
>
> Sha
>
>
>
> _______________________________________________
> ncl-talk mailing list
> List instructions, subscriber options, unsubscribe:
> http://mailman.ucar.edu/mailman/listinfo/ncl-talk

_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Tue Mar 12 12:03:43 2013