INTEGER CW_DIMS, NLEN
PARAMETER ( NLEN = 80 )
CHARACTER*(NLEN) dn(CW_DIMS)
CHARACTER*(NLEN) d_cw_name
d_cw_name(1:NLEN) = dn_blnk(1:NLEN)
dn(ii)(1:NLEN) = dn_blnk(1:NLEN)
CHARACTER*(NLEN) dn_blnk
DO i = 1,NLEN
dn(1)(1:NLEN) = dn_blnk(1:NLEN)
d_cw_gname(1:NLEN) = dn_blnk(1:NLEN)
CHARACTER*(NLEN) d_cw_gname
CHARACTER*(NLEN) d_cw_gname0