1 c

2 c Parallel initialisation and termination stubs

3 c

4       subroutine parallel_init(iret, nWorkgroups)

5       integer iret, nWorkgroups

6       call pbeginf(nWorkgroups)

7       iret=0

8       end

9

10       subroutine parallel_end

11       call pend

12       end

13

14       subroutine parallel_memory_allocate(iret)

15       iret=0

16       end

17