sync: reconcile local changes and modernizations with remote

2026-07-27 11:12:06 +08:00
parent 4ee085ecde
commit dc659d2e7b
125 changed files with 6338 additions and 0 deletions
@@ -0,0 +1,64 @@
+!==============================================================================
+! 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