SUBROUTINE AOUTST(NCHAR,IAM)
      DIMENSION IADE(72),IAM(1)
      CALL KAM2AS(NCHAR,IAM,IADE)
      CALL ANSTR(NCHAR,IADE)
      RETURN
      END