41       SUBROUTINE svLS_COMMU_CREATE(commu, commi)  argument
45       TYPE(svLS_commuType), INTENT(INOUT) :: commu  local
51       IF (commu%foC) THEN
56       commu%foC  = .TRUE.
57       commu%comm = commi
61       CALL MPI_COMM_RANK(comm, commu%task, ierr)
62       CALL MPI_COMM_SIZE(comm, commu%nTasks, ierr)
64       CALL MPI_ALLREDUCE(commu%task, commu%master, 1, mpint, MPI_MIN, 
67       IF (commu%master .NE. 0) THEN
73       commu%masF  = .FALSE.
74       commu%tF    = commu%task + 1
75       IF (commu%task .EQ. commu%master) THEN
76          commu%masF = .TRUE.
84       SUBROUTINE svLS_COMMU_FREE(commu)  argument
88       TYPE(svLS_commuType), INTENT(INOUT) :: commu  local
90       IF (.NOT.commu%foC) THEN
95       commu%foC  = .FALSE.