*"表題 ヘッダーの複写 GTOOL3(GHCOPY)
*
*"履歴 90/08/21 沼口  敦
*
*
**********************************************************************
*"         << ヘッダーの複写 >>
**********************************************************************
      SUBROUTINE GHCOPY
     I         ( HHEAD ,
     O           HHEADO )
*
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HHEADO( * )*(*)         !" ヘッダー(出力)
*
#ifdef SYS_IBMS
      INCLUDE    (GZSIZE)                !" NCC, NDC
#else
#include         "gzsize.F"              !" NCC, NDC
#endif
*
*"         < 1. [SIZE] 以外をコピー >
*
      DO 1100 II = 1, NDC-1
         HHEADO ( II ) = HHEAD ( II )
 1100 CONTINUE
*
      RETURN
      END
