From jago@mclink.it  Wed Feb 20 09:54:16 2002
From: jago@mclink.it (Stefano Iacus)
Date: Wed, 20 Feb 2002 10:54:16 +0100
Subject: [Rd] f2c problem
Message-ID: <CD0C9ECC-25E7-11D6-B62B-003065CC4CB8@mclink.it>

In building princurve package for MacOS I need to use f2c on fortran 
files.

Here is the output of f2c for getlam.f

getlam.f:
    getlam:
    newlam:
    lamix:
Error on line 116 of getlam.f: Declaration error for v: adjustable 
dimension on non-argument
Error on line 116 of getlam.f: wr_ardecls:  nonconstant array size

what I found strange is that both newlam and get lam have definitions 
like


  subroutine newlam(n,p,sx,lambda,tag)
       integer n,p,tag(n)
       double precision sx(n,p),lambda(n),lami


but for some reason f2c complains only with the last lamix subroutine

   subroutine lamix(ns,p,x,s,lambda,dismin,temps)
       integer ns,p
       double precision lambda,x(p),s(ns,p),dismin,temps(p)
       double precision v(2,p),d1sqr,d2sqr,d12,dsqr, d1,w

probably because v is not passed as an argument.

Any idea on how to manage this in f2c ?

Stefano

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


[Rd] f2c problem
Stefano Iacus