Go to the source code of this file.
|
subroutine | ccommc (KNC, KCOM1, KCOM2, KN1, CD1, KN2, CD2) |
|
◆ ccommc()
subroutine ccommc |
( |
integer(kind=jpim) |
KNC, |
|
|
integer(kind=jpim), dimension (knc) |
KCOM1, |
|
|
integer(kind=jpim), dimension (knc) |
KCOM2, |
|
|
integer(kind=jpim) |
KN1, |
|
|
character(len=*), dimension (kn1) |
CD1, |
|
|
integer(kind=jpim) |
KN2, |
|
|
character(len=*), dimension (kn2) |
CD2 |
|
) |
| |