<div dir="ltr"><div class="gmail_default" style="font-size:small">Thanks Orion, I applied your patches and checked them in. They seem to work fine on my Mac using a gcc compiler.</div><div class="gmail_default" style="font-size:small"><br></div><div class="gmail_default" style="font-size:small">--Mary</div><div class="gmail_default" style="font-size:small"><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Jun 7, 2016 at 3:03 PM, David Brown <span dir="ltr"><<a href="mailto:dbrown@ucar.edu" target="_blank">dbrown@ucar.edu</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi Orion,<br>
Thanks much for the bug-report and the patch that fixes it. We<br>
certainly appreciate your continued involvement in helping to keep our<br>
software working as it should.<br>
-dave<br>
<div><div class="h5"><br>
On Tue, Jun 7, 2016 at 2:59 PM, Orion Poplawski <<a href="mailto:orion@cora.nwra.com">orion@cora.nwra.com</a>> wrote:<br>
> Compiling ncl 6.3.0 with ifort 16.0.3, I get the following errors:<br>
><br>
> shagc.f(616): error #6634: The shape matching rules of actual arguments and<br>
> dummy arguments have been violated. [WORK]<br>
> CALL DGAQD(NLAT,DTHETA,DWTS,WORK,LW,IER)<br>
> ----------------------------------^<br>
><br>
><br>
> mdrgsq.f(55): warning #6717: This name has not been given an explicit type.<br>
> [ICHARF]<br>
> ICHARF(CARG)=MOD(ICHAR(CARG)+256,256)<br>
> --------^<br>
> mdrgsq.f(85): warning #6717: This name has not been given an explicit type.<br>
> [ISHIFT]<br>
> IPOS=IOR(ISHIFT(IOR(ISHIFT(IOR(ISHIFT(ICHARF(CTM4(4:4)),8),<br>
> -----------------^<br>
> mdrgsq.f(85): error #6362: The data types of the argument(s) are invalid. [IOR]<br>
> IPOS=IOR(ISHIFT(IOR(ISHIFT(IOR(ISHIFT(ICHARF(CTM4(4:4)),8),<br>
> ----------------------------^<br>
> mdrgsq.f(85): error #6362: The data types of the argument(s) are invalid. [IOR]<br>
> IPOS=IOR(ISHIFT(IOR(ISHIFT(IOR(ISHIFT(ICHARF(CTM4(4:4)),8),<br>
> -----------------^<br>
> mdrgsq.f(252): warning #6717: This name has not been given an explicit type.<br>
> [ICFELL]<br>
> IF (ICFELL('MDRGSQ',9).NE.0) RETURN<br>
> ------------------------------^<br>
><br>
> mdrgsx.f(113): warning #6717: This name has not been given an explicit type.<br>
> [ISHIFT]<br>
> IPOS=IOR(ISHIFT(IOR(ISHIFT(IOR(ISHIFT(ICHARF(CTM4(4:4)),8),<br>
> -----------------^<br>
> mdrgsx.f(113): error #6362: The data types of the argument(s) are invalid. [IOR]<br>
> IPOS=IOR(ISHIFT(IOR(ISHIFT(IOR(ISHIFT(ICHARF(CTM4(4:4)),8),<br>
> ----------------------------^<br>
><br>
><br>
> vtseti.f(168): warning #6717: This name has not been given an explicit type.<br>
> [ISHIFT]<br>
> ITBM=IOR(ISHIFT(ISHIFT(ITBM,-12),12),IAND(IVAL,4095))<br>
> -----------------^<br>
> vtseti.f(168): warning #7319: This argument's data type is incompatible with<br>
> this intrinsic proc<br>
> edure; procedure assumed EXTERNAL. [IOR]<br>
> ITBM=IOR(ISHIFT(ISHIFT(ITBM,-12),12),IAND(IVAL,4095))<br>
> -----------------^<br>
> vtseti.f(168): error #6363: The intrinsic data types of the arguments must be<br>
> the same. [IOR]<br>
> ITBM=IOR(ISHIFT(ISHIFT(ITBM,-12),12),IAND(IVAL,4095))<br>
> ---------------------------------------------^<br>
><br>
> vtsetr.f(200): warning #6717: This name has not been given an explicit type.<br>
> [ISHIFT]<br>
> ITBM=IOR(ISHIFT(ISHIFT(ITBM,-12),12),IAND(INT(RVAL),4095))<br>
> -----------------^<br>
> vtsetr.f(200): warning #7319: This argument's data type is incompatible with<br>
> this intrinsic proce<br>
> dure; procedure assumed EXTERNAL. [IOR]<br>
> ITBM=IOR(ISHIFT(ISHIFT(ITBM,-12),12),IAND(INT(RVAL),4095))<br>
> -----------------^<br>
> vtsetr.f(200): error #6363: The intrinsic data types of the arguments must be<br>
> the same. [IOR]<br>
> ITBM=IOR(ISHIFT(ISHIFT(ITBM,-12),12),IAND(INT(RVAL),4095))<br>
> ---------------------------------------------^<br>
><br>
><br>
> The attached patch seems to fix. There were other errors like the first,<br>
> which was triggered by -warn all turning on -gen-interfaces, but I ended up<br>
> using -nogen-interfaces to work around those.<br>
><br>
> Also, I ended up linking with "ifort -nofor-main" by setting CLoader/CC_LD to<br>
> that value. That's Intel's recommended way of mixing C and Fortran code.<br>
><br>
> --<br>
> Orion Poplawski<br>
> Technical Manager 303-415-9701 x222<br>
> NWRA, Boulder/CoRA Office FAX: 303-415-9702<br>
> 3380 Mitchell Lane <a href="mailto:orion@nwra.com">orion@nwra.com</a><br>
> Boulder, CO 80301 <a href="http://www.nwra.com" rel="noreferrer" target="_blank">http://www.nwra.com</a><br>
><br>
</div></div>> _______________________________________________<br>
> ncl-install mailing list<br>
> List instructions, subscriber options, unsubscribe:<br>
> <a href="http://mailman.ucar.edu/mailman/listinfo/ncl-install" rel="noreferrer" target="_blank">http://mailman.ucar.edu/mailman/listinfo/ncl-install</a><br>
><br>
_______________________________________________<br>
ncl-install mailing list<br>
List instructions, subscriber options, unsubscribe:<br>
<a href="http://mailman.ucar.edu/mailman/listinfo/ncl-install" rel="noreferrer" target="_blank">http://mailman.ucar.edu/mailman/listinfo/ncl-install</a><br>
</blockquote></div><br></div>