SUBROUTINE A1IN(NCHAR,IA1)
      DIMENSION IADE(72),IA1(1)
      CALL TINSTR(NCHAR,IADE)
      CALL KAS2A1(NCHAR,IADE,IA1)
      RETURN
      END