What does this function please ? pgi_mp_reset()

Hi,

I’m trying ton compile Gaussian with ifort and openmp.
The recommended compiler is PGF77.

Could you please help me finding an equivalent for this function ?
I don’t know what it does.

#ifdef _OPENMP_
#ifdef _I386_
#ifdef __APPLE__
    istat = pgi_mp_reset();
#endif
#endif
#endif

Thanks for your help.
PR


The context : Apple MacOSX 10.5.8 with ifort

#ifdef _OPENMP_
#ifdef _I386_
#ifdef __APPLE__
    istat = pgi_mp_reset();
#endif
#endif
#endif
...
#ifdef __hppa_11
/* execle fails with multithreaded executables.  This sets the number of threads down to 1 just before 
   the execle. */
   istat = 1; cps_set_threads( &istat );
#endif
#ifdef _HITACHI_
    istat = execle (fullname, fullname, SYSOPT, cmem, chkname_, Z1[savunx_.chk],
#else
    istat = execle (fullname, fullname, cmem, chkname_, Z1[savunx_.chk],
#endif
      intname_, Z1[savunx_.intg], rwfname_, Z1[savunx_.rwf], d2ename_,
      Z1[savunx_.d2e], scrname_, Z1[savunx_.scr], inpname_, Z1[savunx_.inp],
      outname_, Z1[savunx_.out], (char *) 0, myenvir);
    errno1 = errno;
    printf ("Returned from execl, istat=%d, errno=%d!\n",istat, errno1);
    errno = errno1;
    gperror("Returned from execl!\n");
#endif
#endif
}

Sorry, I have no idea what Ifort’s equivalent would be. The function simply kills all active OpenMP threads.

  • Mat