MODULE TRCOM2
  IMPLICIT NONE

  CHARACTER(LEN=80) :: KXNDEV,KXNDCG,KXNID
  CHARACTER(LEN=80) :: KDIRW1,KDIRW2

END MODULE TRCOM2