!--------------------------------------------------------------------------
   !---------------------------- caldyn_dmass ----------------------------------
   !$OMP DO SCHEDULE(STATIC)
   DO ij = 1, primal_num
      !DIR$ SIMD
      DO l = 1, llm
         convm(l,ij) = mass_dbk(l,ij) * dmass_col(ij)
      END DO
   END DO
   !$OMP END DO
   !---------------------------- caldyn_dmass ----------------------------------
   !--------------------------------------------------------------------------