SUBROUTINE BLANKN(NAME)
C
C     FILL A NAME WITH BLANKS
C
      DIMENSION NAME(2),NBLANK(2)
      DATA NBLANK/4H    ,4H    /
C
      NAME(1) = NBLANK(1)
      NAME(2) = NBLANK(2)
      RETURN
      END