d_cw_name(1:NLEN) = dn_blnk(1:NLEN)

            dn(ii)(1:NLEN) = dn_blnk(1:NLEN)

      CHARACTER*(NLEN) dn_blnk

            dn_blnk(i:i) = ' '

          d_cw_name(1:NLEN) = dn_blnk(1:NLEN)

            dn(ii)(1:NLEN) = dn_blnk(1:NLEN)

          d_cw_name(1:NLEN) = dn_blnk(1:NLEN)

            dn(ii)(1:NLEN) = dn_blnk(1:NLEN)

          d_cw_name(1:NLEN) = dn_blnk(1:NLEN)

            dn(ii)(1:NLEN) = dn_blnk(1:NLEN)

      CHARACTER*(NLEN) dn_blnk

            dn_blnk(i:i) = ' '

        dn(1)(1:NLEN) = dn_blnk(1:NLEN)

          dn(1)(1:NLEN) = dn_blnk(1:NLEN)

          d_cw_gname(1:NLEN) = dn_blnk(1:NLEN)

          dn(ii)(1:NLEN) = dn_blnk(1:NLEN)

      CHARACTER*(NLEN) dn_blnk

          dn_blnk(i:i) = ' '