=======================================================================

Description:
 
      Main calling program for SCF code.


=======================================================================


        INCLUDE 'scf.h'

        INTEGER n

C   Initialize state of the system.

        CALL initsys

C   Advance system state for a given number of steps.

        DO 100 n=1,nsteps

           CALL stepsys(n)

 100    CONTINUE

C   Terminate the simulation.

        CALL endrun

        STOP
        END