V3FIT
pxfwait.f
1  SUBROUTINE pxfwait_g(istat, iretpid, ierror)
2  IMPLICIT NONE
3  INTEGER :: istat, iretpid, ierror
4 #if defined(WIN32)
5  istat = 0
6  iretpid = 0
7  ierror = 0
8 #elif !defined(CRAY) && !defined(IRIX64) && !defined(IFORT)
9  INTEGER, EXTERNAL :: wait
10 
11  iretpid = 0
12  istat = 0
13 
14  ierror = wait(0)
15 #else
16  CALL pxfwait(istat, iretpid, ierror)
17 #endif
18 
19  END SUBROUTINE pxfwait_g