*COMDECK XCFD 
          IDENT  XCFD 
          ENTRY  XCFD 
          SYSCOM B1 
          TITLE  XCFD - CONVERT INTEGER TO F10.3 FORMAT.
          COMMENT CONVERT INTEGER TO F10.3 FORMAT.
          COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
 XCFD     SPACE  4,10 
***       XCFD - CONVERT INTEGER TO F10.3 FORMAT. 
* 
*         HOLLERITH = XCFD (INTEGER). 
* 
*         XX = XCFD(YY);           (*SYMPL* CALL) 
* 
*         ENTRY  (YY) = THE INTEGER TO BE CONVERTED.
* 
*         EXIT   XX, A CHARACTER ITEM TO CONTAIN DISPLAY CODE ON EXIT.
* 
*         USES   X - 1. 
*                A - 1. 
*                B - 1. 
* 
*         CALLS  CFD
  
  
 XCFD     SUBR               ENTRY/EXIT 
          SB1    1
          SA1    X1+
          RJ     =XCFD=      CONVERT
          EQ     XCFDX       RETURN, RESULT IN X6 
  
          END 
