[ncl-talk] A useful tidbit

[Dennis Shea]

I am not sure of the question.
---
You would have to access the changed code via a 'shared object'

Does it require additional arguments? The NCL version of 'kmns' uses double
precision arguments.

C NCLFORTSTART
      subroutine *kmns136* (dat, m, n, clcntr, k,  ic1, nc
     +                   ,iter, iseed, wss, ier)
      implicit none
c                            ! INPUT
      integer m, n, k, iter, iseed
      double precision dat(m,n)
c                            ! INPUT/OUTPUT
      integer ic1(m), nc(k), ier
      double precision clcntr(n,k), wss(k)
C NCLEND
c                            ! LOCAL WORK ARRAYS
      integer          ic2(m), ncp(k), itran(k), live(k)
      double precision an1(k), an2(k), d(m)
      integer nv, kk, mm
====

Change: * kmns136* to (say) kmns136x

Then use WRAPIT to generate the shared object





On Sun, Jan 19, 2020 at 4:04 AM Barry Lynn via ncl-talk <ncl-talk at ucar.edu>
wrote:

> Hello:
>
> I would like to use cluster analysis and it would be very helpful (I hope)
> if I could modify the source code.
>
> I downloaded the NCL source code from here:
>
> https://www.earthsystemgrid.org/dataset/ncl.640.src/file.html
>
> and found the Fortran (.f) programs in this directory.
>
> NCL_SOURCE/ncl_ncarg-6.4.0/ni/src/lib/nfpfort
>
> Barry
> --
> Barry H. Lynn, Ph.D
> Senior Associate Scientist, Lecturer,
> The Institute of the Earth Science,
> The Hebrew University of Jerusalem,
> Givat Ram, Jerusalem 91904, Israel
> Tel: 972 547 231 170
> Fax: (972)-25662581
>
> C.E.O, Weather It Is, LTD
> Weather and Climate Focus
> http://weather-it-is.com
> Jerusalem, Israel
> Local: 02 930 9525
> Cell: 054 7 231 170
> Int-IS: x972 2 930 9525
>
> _______________________________________________
> ncl-talk mailing list
> ncl-talk at ucar.edu
> List instructions, subscriber options, unsubscribe:
> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.ucar.edu/pipermail/ncl-talk/attachments/20200119/98dd198a/attachment.html>