[ncl-talk] WRAPIT error

[Dennis Shea]

Hi Jonathan

I tried on my MAC and CGD systems

=========  MAC ============
%> WRAPIT qsatmodoperator.stub shr_kind_mod.F90 shr_const_mod.F90
QSatMod.F90 qsatmodoperator.F90

WRAPIT Version: 120209
*A syntax error occurred while parsing: *
COMPILING shr_kind_mod.F90
COMPILING shr_const_mod.F90
COMPILING QSatMod.F90
COMPILING qsatmodoperator.F90
LINKING
ld: warning: URGENT: building for OSX, but linking against dylib
(/usr/lib/libSystem.dylib) built for (unknown). Note: This will be an error
in the future.
END WRAPIT

======= CGD ==============

%>WRAPIT qsatmodoperator.stub shr_kind_mod.F90 shr_const_mod.F90
QSatMod.F90 qsatmodoperator.F90

WRAPIT Version: 120209
*A syntax error occurred while parsing: *
COMPILING shr_kind_mod.F90
COMPILING shr_const_mod.F90
COMPILING QSatMod.F90
COMPILING qsatmodoperator.F90
LINKING
END WRAPIT
============================

Both were using NCL 6.5.0
To my knowledge, nothing has changed for 6.6.2
****************************************
I am not sure of the error

For a test, I changed the stub file to classic f77 syntax

C NCLFORTSTART
      subroutine qsatmodoperator (timeinn,latinn,loninn,T_k_i,p_i,e_s_ou
     *      ,e_s_d_T_ou,q_s_ou,q_s_d_T_ou)
      implicit none
      integer  timeinn,latinn,loninn
      double precision T_k_i(loninn,latinn,timeinn)
     *      ,p_i(loninn,latinn,timeinn),e_s_ou(loninn,latinn,timeinn)
      double precision e_s_d_T_ou(loninn,latinn,timeinn)
     *      ,q_s_ou(loninn,latinn,timeinn),q_s_d_T_ou(loninn,latinn,timeinn)
C NCLEND

and got the same error

************
I'll keep looking.

On Sun, Dec 20, 2020 at 2:41 AM Buzan, Jonathan via ncl-talk <
ncl-talk at mailman.ucar.edu> wrote:

> Hi NCL-Talk,
>
> I am encountering an error that I have not encountered before in WRAPIT. I
> am confused by this error, because I have not changed my routines or my
> wrapper scripts.
> I tried on two different clusters, and I receive the same error. I have
> included the files that are used in the routine. Below is the error.
>
> Perhaps I am missing a flag?
>
> Cheers,
> -Jonathan
>
>
>
>  > WRAPIT qsatmodoperator.stub shr_kind_mod.F90 shr_const_mod.F90
> QSatMod.F90 qsatmodoperator.F90
>
> WRAPIT Version: 120209
> In file included from
> /apps/spack/halstead/apps/ncl/6.4.0-gcc-4.8.5-vdbunrk/include/ncarg/hlu/hlu.h:49:0,
>                  from WRAPIT.c:9:
> WRAPIT.c: In function 'qsatmodoperator_W':
> WRAPIT.c:215:10: warning: implicit declaration of function
> 'qsatmodoperator_' [-Wimplicit-function-declaration]
>
> NGCALLF(qsatmodoperator,QSATMODOPERATOR)(timeinn,latinn,loninn,T_k_i,p_i,e_s_ou,e_s_d_T_ou,q_s_ou,q_s_d_T_ou);
>           ^
> /apps/spack/halstead/apps/ncl/6.4.0-gcc-4.8.5-vdbunrk/include/ncarg/c.h:31:29:
> note: in definition of macro 'NGCALLF'
>  #define NGCALLF(reg,caps)   reg##_
>                              ^~~
> COMPILING shr_kind_mod.F90
> COMPILING shr_const_mod.F90
> COMPILING QSatMod.F90
> COMPILING qsatmodoperator.F90
> LINKING
> END WRAPIT
>
>
> _______________________________________________
> ncl-talk mailing list
> ncl-talk at mailman.ucar.edu
> List instructions, subscriber options, unsubscribe:
> https://mailman.ucar.edu/mailman/listinfo/ncl-talk
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.ucar.edu/pipermail/ncl-talk/attachments/20201220/18f01959/attachment.html>