V3FIT
LIBSTELL
Sources
Miscel
pxffork.f
1
SUBROUTINE
pxffork_g (ipid, ierror)
2
IMPLICIT NONE
3
INTEGER
:: ipid, ierror
4
#if defined(WIN32)
5
ierror = 0
6
ipid = 0
7
#elif !defined(CRAY) && !defined(IRIX64) && !defined(IFORT)
8
INTEGER
,
EXTERNAL
:: fork
9
10
ierror = 0
11
ipid = fork()
12
IF
(ipid < 0) ierror = -ipid
13
#else
14
CALL
pxffork (ipid, ierror)
15
#endif
16
END SUBROUTINE
pxffork_g
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17