!==============================================================================
! TLUSTY208 主程序
! 
! Non-LTE model stellar atmospheres computer program
! Universal code for stellar atmospheres and accretion disks
!
! 版本：TLUSTY208
!==============================================================================

PROGRAM TLUSTY
    USE impli_module
    USE basics_module
    USE iterat_module
    USE alipar_module
    
    IMPLICIT NONE
    
    INTEGER :: INIT, ITER
    LOGICAL :: LFIN
    
    ! 打开临时文件
    OPEN(UNIT=91, STATUS='SCRATCH', FORM='UNFORMATTED')
    OPEN(UNIT=92, STATUS='SCRATCH', FORM='UNFORMATTED')
    OPEN(UNIT=93, STATUS='SCRATCH', FORM='UNFORMATTED')
    
    ! 初始化
    INIT = 1
    ITER = 0
    CALL START
    LFIN = .FALSE.
    IF (NITER .EQ. 0) LFIN = .TRUE.
    
    ! 混合 CL/ALI 方法的基本迭代循环
10  CONTINUE
    ITER = ITER + 1
    
    ! 1. 形式解步骤
    CALL RESOLV
    ! CALL TIMING(1,ITER)
    INIT = 0
    IF (LFIN) GO TO 20
    
    ! 1b. 收敛加速
    IF (IACC .GT. 0) CALL ACCEL2
    ! IF (LAC2) GO TO 10
    
    ! 2. 线性方程组的解
    IF (IFRYB .EQ. 0) THEN
        IF (NN .GT. MSMX) THEN
            CALL SOLVE
        ELSE
            CALL SOLVES
        END IF
    ELSE
        CALL RYBSOL
    END IF
    
    CALL TIMING(2, ITER)
    GO TO 10
    
20  CONTINUE
    
    STOP
END PROGRAM TLUSTY