integer(4) my_comm
       common/my_communicator/my_comm