PROGRAM TLUSTY
C
C ****************** Version TLUSTY207 ********************
C
C     Non-LTE model stellar atmospheres computer program
C     Universal code for stellar atmospheres and accretion disks
C
C *********************************************************
C
C
      INCLUDE 'IMPLIC.FOR'
      INCLUDE 'BASICS.FOR'
      INCLUDE 'ITERAT.FOR'
      INCLUDE 'ALIPAR.FOR'
C
      OPEN(UNIT=91,STATUS='SCRATCH',FORM='UNFORMATTED')
      OPEN(UNIT=92,STATUS='SCRATCH',FORM='UNFORMATTED')
      OPEN(UNIT=93,STATUS='SCRATCH',FORM='UNFORMATTED')
C
C     Initialization
C
      INIT=1
      ITER=0
      CALL START
      LFIN=.FALSE.
      IF(NITER.EQ.0) LFIN=.TRUE.
C
C     Basic iteration loop of the hybrid CL/ALI method:
C
   10 ITER=ITER+1
C
C     1. Formal solution step
C
      CALL RESOLV
c     CALL TIMING(1,ITER)
      INIT=0
      IF(LFIN) GO TO 20
C
C     1b. Acceleration of convergence
C
      IF(IACC.GT.0) CALL ACCEL2
c     IF(LAC2) GO TO 10
C
C     2. Solution of the linearized equations
C
      IF(IFRYB.EQ.0) THEN
         IF(NN.GT.MSMX) THEN
            CALL SOLVE
          ELSE
            CALL SOLVES
         END IF
       ELSE
         CALL RYBSOL
      END IF
C
      CALL TIMING(2,ITER)
      GO TO 10
   20 CONTINUE
C
      STOP
      END