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