Displaying 1 result from an estimated 1 matches for "istand".
Did you mean:
stand
2005 Aug 03
7
call fortran in R
...ve done:
In the terminal this how I compiled my fortran code:
R CMD SHLIB ~/Desktop/Fortan_kmeans/kmeans3.f
There is the wrapper I have paste inside de kmeans3.f file:
c THIS IS THE WRAPPER
subroutine wrapper(n, p, nran, mat, ishort, w, z,
+ ntran, istand, k1, k2, iassign, iseed)
integer n,p,kmax
real*8 mat(n,p),sx(kmax,p),sx2(kmax,p),vect(p),
+ xbar(kmax,p),var(kmax,p),mean(p),coord(10)
real*8 D1,Dref,SSE,SSEref,Dvec(kmax),w(p),SST
real*8 CH,CHr(kmax),SSEr(kmax),temp...