*COMDECK STSMAC 
                                   #
                                   #
*# #
*         MACRO STATUS USES THE SYMPL LIKE STATUS DECLARATION 
*         TO PRODUCE A COMPASS EQU STATEMENT AS WELL AS 
*         AN ENTRY IN  TABLE TO BE USED BY FTN LIKE CALLING 
*         SEQUENCE ROUTINES NFETCH AND NSTORE.
*                A         =STATUS NAME, TO BE USED IN COMPASS
*                           AND FORTRAN AS THE FIRST THREE CHARACTERS OF
*                           THE VARIABLE NAME.
*                B         =STATUS  VALUE TO BE APPENDED TO STATUS
*                           NAME FOR THE VARIABLE NAME. 
*         THE ACTUAL VALUE OF THE VARIABLE, AS IN SYMPL COMES FROM
*         ITS POSITION IN THE LIST, I.E. FIRST=0,SECOND=1 ETC.
* 
*        AUTHOR - V.M. SZIGETI
*        FEB 1977 
                                   #
                                   #
*#
* 
          PURGMAC STATUS# 
* 
STATUS#   MACRO  A,B
          LOCAL  N,C
N         SET    0
          IRP    B
C         DECMIC N,2
          DEF#   (A_B),,"C"_D 
N         SET    N+1
          IRP 
STATUS#   ENDM
  
