program main use mpi use cpl, only : md_realm, CPL_create_comm implicit none integer :: rank, ierror, MD_COMM call MPI_Init(ierror) call CPL_create_comm(md_realm, MD_COMM, ierror) call MPI_Finalize(ierror) end program main