[SciPy-dev] compilation with fort77

[Pauli Virtanen]

Thu, 04 Feb 2010 11:40:52 +0100, Sturla Molden wrote:
>>> the problem is that fort77 cannot deal with those variable sized input
>>> arguments:
>>>
>>>      SUBROUTINE mvnun(d, n, lower, upper, means, covar, maxpts,
>>>     &                   abseps, releps, value, inform)
>>> ...
>>>      integer n, d, infin(d), maxpts, inform, tmpinf double precision
>>>      lower(d), upper(d), releps, abseps,
>>>     &                 error, value, stdev(d), rho(d*(d-1)/2), &       
>>>              covar(d,d),
>>>     &                 nlower(d), nupper(d), means(d,n), tmpval
>>>      integer i, j
>>>
>>> Could some Fortran expert please help me to make it fort77 compatible?
> 
> The code posted here (I haven't looked in SVN) looks like valid Fortran
> 77 to me. Dummy arguments can have variable size. f2c might not accept
> it because variable-size arrays are not supported in C89, and the
> Fortran to C conversion is rather primitive.

Note that infin, stdev, rho, nlower, and nupper are not dummy variables, 
so it's not valid F77.

-- 
Pauli Virtanen