V3FIT
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