SUBROUTINE AINST(NCHAR,IAM)
      DIMENSION IADE(72),IAM(1)
      CALL TINSTR(NCHAR,IADE)
      CALL KAS2AM(NCHAR,IADE,IAM)
      RETURN
      END