1 SUBROUTINE multiprocess(numprocess, maxprocess, wrapperfcn, fcn)
7 INTEGER numprocess, maxprocess
14 INTEGER :: i, status, iretpid, ierror
44 iretpid = 0; ierror = 0
46 IF (maxprocess .GT. 1)
THEN
49 WRITE(6,*)
' Begin multi-processing: request ', numprocess,
50 ' processes distributed among ', maxprocess,
' processors'
54 CALL myfork (i, maxprocess, wrapperfcn, fcn)
59 CALL pxfwait (status, iretpid, ierror)
65 CALL wrapperfcn (i, fcn)
69 END SUBROUTINE multiprocess