[f2py] On to the next error

Al Niessner <[email protected]> Fri, 06 Aug 2010 15:38:10 -0700

Newsgroups	gmane.comp.python.f2py.user
Message-ID	<[email protected]>

I sliced and diced the code up and I attached a short example. Seems
like f2py is not respecting private as it is generating wrapper methods
for module procedures in the private portions.

f2py -c kinds.f90 io.f90 mathsub.f 

is the command that I am using. Also, I have moved to the svn release of
numpy so I have and can use the very latest f2py changes.

-- 
Al Niessner
818.354.0859

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

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

io.f90 (text/x-fortran, 685 B)

module io
  public :: PrintMsg

  private

  interface PrintMsg
     module procedure PrintMsg_On,   &
                      PrintMsg_Level
  end interface

  contains

    SUBROUTINE PrintMsg_On(MsgStr)

      IMPLICIT NONE
      CHARACTER*(*), INTENT(IN) :: MsgStr
      ! - - - - - - - - - - - - - - - - - - -
    END SUBROUTINE PrintMsg_On
    !
    ! ------------------------------------------------------------------
    !
    SUBROUTINE PrintMsg_Level(MsgStr,VerboseLevel)

      IMPLICIT NONE
      CHARACTER*(*),INTENT(IN) :: MsgStr
      INTEGER(1),   INTENT(IN) :: VerboseLevel
      ! - - - - - - - - - - - - - - - - - - -
    END SUBROUTINE PrintMsg_Level

end module io

kinds.f90 (text/x-fortran, 174 B)

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

mathsub.f (text/x-fortran, 288 B)

      INTEGER FUNCTION LINT(X)
      USE Kinds

      IMPLICIT NONE
      REAL(kind=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