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