FTN 
      SUBROUTINE CRTA(REAL,IBUF),92069-16171 REV. 1912 781026 
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH OUT THE PRIOR 
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18171
C     RELOC:     92069-16171
C 
C 
C****************************************************************:
C 
C 
C 
C 
C 
      INTEGER IBUF(6) 
C THIS ROUTINE CONVERTS A REAL NUMBER INTO A 12 BYTE BUFFER 
C 
C CALLING SEQUENCE: 
C 
C       CALL CRTA(REAL,IBUF)
C 
C        WHERE: 
C 
C          REAL 
C          IS A SINGLE PRECISION REAL NUMBER
C 
C          IBUF 
C          IS A 6  WORD BUFFER
C 
C 
C 
C 
C 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C COMMON IS NOT NEEDED
C 
C 
C 
C 
C 
C 
C 
C 
C BEGIN 
C 
C DESCRIBE THE SIZE OF THE BUFFER 
C 
      CALL CODE(13) 
C 
C WRITE THE FORMAT INTO THE BUFFER
C 
      WRITE(IBUF,7000)REAL
7000  FORMAT(G13.5) 
      RETURN
      END 
                                                                                                                                                                                                                                      