SUBROUTINE STKOUT(ADDR,ATYPE,SUBS,SBTY,BIAS)  
      INTEGER ADDR,ATYPE,SUBS,SBTY,BIAS 
    
      INTEGER     NAME (9)  
      COMMON      /NLNAME/ NAME 
    
      INTEGER  LBUF (66)
      INTEGER  LCOUNT   
      INTEGER  PGECNT   
      INTEGER  UHEAD (15)   
      INTEGER  CHEAD (8)
      INTEGER ICLP09
      COMMON   /PRT/    LBUF
      COMMON   /PRT/    LCOUNT  
      COMMON   /PRT/    PGECNT  
      COMMON   /PRT/    UHEAD   
      COMMON   /PRT/    CHEAD   
      COMMON   /PRT/    ICLP09  
      INTEGER CLOCN,L   
      IF (.NOT. (ADDR .NE. 0))GO TO 13028   
    
      L = CLOCN(ADDR)   
      CALL EST(NAME,LBUF,4,19)  
      CALL ESP(ATYPE,LBUF,21,23)
      IF (.NOT. (SUBS .NE. 0))GO TO 13030   
    
      L = CLOCN(SUBS)   
      CALL EST(NAME,LBUF,26,41) 
      CALL ESP(SBTY,LBUF,43,45) 
13030 CONTINUE  
    
      CALL ESP(BIAS,LBUF,47,50) 
      CALL SGLPRT   
13028 CONTINUE  
    
      END