LOGICAL FUNCTION IFBLNK(NAME)
C
C     IS NAME BLANK?
C     VERSION FOR NWORD=2
C
      DIMENSION NAME(2)
      DATA JBLANK/4H    /
C
      IFBLNK = NAME(1).EQ.JBLANK .AND. NAME(2).EQ.JBLANK
      RETURN
      END