<div dir="ltr"><div>I am not sure of the question.</div><div>---<br></div><div>You would have to access the changed code via a 'shared object'</div><div><br></div><div>Does it require additional arguments? The NCL version of 'kmns' uses double precision arguments.</div><div><br></div><div>C NCLFORTSTART<br> subroutine <b>kmns136</b> (dat, m, n, clcntr, k, ic1, nc<br> + ,iter, iseed, wss, ier)<br> implicit none<br>c ! INPUT<br> integer m, n, k, iter, iseed<br> double precision dat(m,n)<br>c ! INPUT/OUTPUT<br> integer ic1(m), nc(k), ier<br> double precision clcntr(n,k), wss(k)<br>C NCLEND<br>c ! LOCAL WORK ARRAYS<br> integer ic2(m), ncp(k), itran(k), live(k)<br> double precision an1(k), an2(k), d(m)<br> integer nv, kk, mm</div><div>====</div><div><br></div><div>Change: <b> kmns136</b> to (say) kmns136x</div><div><br></div><div>Then use WRAPIT to generate the shared object<br></div><div><br></div><div><br></div><div><br></div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sun, Jan 19, 2020 at 4:04 AM Barry Lynn via ncl-talk <<a href="mailto:ncl-talk@ucar.edu">ncl-talk@ucar.edu</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr">Hello:<div><br></div><div>I would like to use cluster analysis and it would be very helpful (I hope) if I could modify the source code.</div><div><br></div><div>I downloaded the NCL source code from here:</div><div><br></div><div><a href="https://www.earthsystemgrid.org/dataset/ncl.640.src/file.html" target="_blank">https://www.earthsystemgrid.org/dataset/ncl.640.src/file.html</a><br></div><div><br></div><div>and found the Fortran (.f) programs in this directory.</div><div><br></div><div>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:19px;line-height:normal;font-family:"Courier New";color:rgb(0,0,0)"><span style="font-variant-ligatures:no-common-ligatures">NCL_SOURCE/ncl_ncarg-6.4.0/ni/src/lib/nfpfort</span></p><div><br></div><div>Barry</div>-- <br><div dir="ltr"><div dir="ltr"><div><div dir="ltr">Barry H. Lynn, Ph.D<div><div>Senior Associate Scientist, Lecturer,</div><div><div><span style="color:rgb(136,136,136)">The Institute of the Earth Science, </span><br style="color:rgb(136,136,136)"><span style="color:rgb(136,136,136)">The Hebrew University of Jerusalem, </span><br style="color:rgb(136,136,136)"><span style="color:rgb(136,136,136)">Givat Ram, Jerusalem 91904, Israel </span><br style="color:rgb(136,136,136)"></div><span style="color:rgb(136,136,136)">Tel: 972 547 231 170</span><br style="color:rgb(136,136,136)"><span style="color:rgb(136,136,136)">Fax: (972)-25662581</span></div></div><div><span style="color:rgb(136,136,136)"><br></span></div><div>C.E.O, Weather It Is, LTD<br>Weather and Climate Focus<br><a href="http://weather-it-is.com" target="_blank">http://weather-it-is.com</a><br>Jerusalem, Israel<br>Local: 02 930 9525<br>Cell: 054 7 231 170<br>Int-IS: x972 2 930 9525<br><br></div></div></div></div></div></div></div>
_______________________________________________<br>
ncl-talk mailing list<br>
<a href="mailto:ncl-talk@ucar.edu" target="_blank">ncl-talk@ucar.edu</a><br>
List instructions, subscriber options, unsubscribe:<br>
<a href="http://mailman.ucar.edu/mailman/listinfo/ncl-talk" rel="noreferrer" target="_blank">http://mailman.ucar.edu/mailman/listinfo/ncl-talk</a></blockquote></div>