Re: [f2py] Why this error?

I have attached two files that exhibit the problem. Here is the command
line I use to: f2py -c kinds.f90 mathsub.f -m mathsub

All the names are the same, but I limited it one function in mathsub and
reduced kinds.f90 to just the desired types.

Thanks for all your help so far too! I am hoping to be out of the woods
soon.

On Fri, 2010-07-30 at 15:15 -0700, Pearu Peterson wrote:
> On Sat, Jul 31, 2010 at 12:32 AM, Al Niessner <[email protected]> wrote:
> >
> > Unfortunately not. I can send snippets if you have an idea of what you
> > want to look for.
> 
> A simple example demonstrating a problem would be sufficient.
> 
> Pearu
> 
> _______________________________________________
> f2py-users mailing list
> f2py-users-Y4l6ocDipWCuvFJfX82//[email protected]
> http://cens.ioc.ee/mailman/listinfo/f2py-users

-- 
Al Niessner
818.354.0859

--------
|  dS  | >= 0
--------

_______________________________________________
f2py-users mailing list
f2py-users-Y4l6ocDipWCuvFJfX82//[email protected]
http://cens.ioc.ee/mailman/listinfo/f2py-users

MODULE Kinds
   INTEGER, PARAMETER :: dp  = KIND( 1.0d0 )  ! Double precision, real
   INTEGER, PARAMETER :: pr  = dp             ! Default precision, real
END MODULE Kinds

      INTEGER FUNCTION LINT(X)
      USE Kinds

      IMPLICIT NONE
      REAL(pr), INTENT(IN) :: X
! - - - - - - - - - - - - - - - - - - -
      IF (X .GE. 0e0_pr) THEN
         LINT = INT(X)
      ELSE
         LINT = INT(X+1e-6_pr)-1
      END IF
      
      END FUNCTION LINT