!-------------------------------------------------------!
!   2D,invscid,air solver by Zhang Xuke                 !
!-------------------------------------------------------!
        PROGRAM MAIN
        USE BASIC_MOD
        IMPLICIT NONE
        INTEGER::  NN,COUNT
        TIME=0.D0
        TEND=3D-2
        NLOOP=0
        COUNT=1
        CALL READER()
        CALL INITIA()
        CALL OUTPUT(0)
1000    CONTINUE
        CALL CFLCON()
        DO NN=1,2
            CALL BOUNDI()
            CALL ADVECTION()
            CALL UPDATE(NN)
        END DO
        NLOOP=NLOOP+1
        TIME=TIME+DT
        IF(TIME<TEND*COUNT/50.D0.AND.TIME+DT.GE.TEND*COUNT/50.D0) THEN
            CALL OUTPUT(COUNT)
            COUNT=COUNT+1
        END IF
        WRITE(*,*) DT,TIME
        IF(TIME.LE.TEND) GOTO 1000
        CALL OUTPUT(NLOOP)
        END PROGRAM