V3FIT
LIBSTELL
Sources
Miscel
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
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17