> On 11 apr, 14:10, F90_@hotmail.com (F90_Man) wrote:
>> Hi,

>> Tricky question, I'm not sure if this is the right place for it, but
>> anyway:

>> I'm trying to run a Fortran 90 MPI program under AIX, and I want to call
>> the 'bindprocessor()' routine to prevent each process from moving between
>> processors by the system.  The theory is that it'll perform better by
>> getting
>> better cache use, etc.  This is on a 16-processor machine, I'm aiming to
>> use 15/16 processors, and allow the 16th processor to handle system stuff
>> (NFS, etc).

>> Anyway, the the problem is, I don't know how to call "bindprocessor()"
>> from fortran - it seems that you can only call it from C.

>> http://www.ncsa.uiuc.edu/UserInfo/Resources/Hardware/IBMp690/IBM/usr/...
>> info/en_US/a_doc_lib/libs/basetrf1/bindprocessor.htm

>> Any thoughts?

>> F90 Man

> Most of the arguments are ints which map to integers. The
> last one is of type cpu_t (that may be an integer too, I do not
> know). You would have to write a small wrapper in C, like:

> void bindprocessor_( int *what, int *who, int *where ) {
>     cpu_t really_where ;
>     ... convert where to really_where - depends on the actual type
>     bindprocessor( *what, *who, really_where ) ;
> }

> And call that from Fortran:

>     call bindprocessor( what, who, where )

> (note the _ - a common decoration from the Fortran compiler,
> but not universal)