62 lines
1.2 KiB
Fortran
62 lines
1.2 KiB
Fortran
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
|