subroutine test(a,b, c)

use Cmn, c1 => Cmn_c1, c2 => Cmn_c2, c3 => Cmn_c3

real :: a, b, c

print *, a, b, c

end subroutine test