	SUBROUTINE CALC_LOAD
*******************************************************************************
* 
*    UNIT NAME:  CALC_LOAD
* 
*    PURPOSE:  PROCESS "/LOAD" COMMAND
* 
*    INVOCATION METHOD:
* 	CALL CALC_LOAD
* 
*    ARGUMENT LIST:  NONE
* 
*    LOCAL VARIABLES:
*      NAME      	  TYPE         FULL NAME:DESCRIPTION
*    -------------------- ----         ---------------------
*    FNAME                C*80         FILE NAME
*    ECHO                 L*4          IF TRUE, THEN ECHO INPUT AS READ
*    OUTPUT               L*4          IF TRUE, THEN PRINT VALUES AS EVALUATED
* 
*    MODULES CALLED:
*      NAME           PURPOSE
*    -------------    --------------------------------------
*    CALC_IND         ACTUALLY PROCESS INPUT FILE
* 
*    DEVELOPMENT HISTORY:
*      AUTHOR	            DATE  	COMMENTS
*    D. FITZGERALD         4/14/83        
* 
*******************************************************************************
*
*		SPECIFICATIONS
*
	INTEGER*4 CLI$PRESENT
	LOGICAL*4 ECHO,OUTPUT
	CHARACTER*80 FNAME
*
*		CODE SECTION
*
	ECHO = CLI$PRESENT('LIST')
	OUTPUT = CLI$PRESENT('OUTPUT')
	CALL CLI$GET_VALUE('FILE',FNAME)
	CALL CALC_IND(FNAME, ECHO, OUTPUT, '.DAT')
	RETURN
	END
