Fortran 从文件中读取数据放入数组中，然后对其进行bubble sort，使用了一些方法防止人为错误

PROGRAM hw_bubble_sort

IMPLICIT NONE

INTEGER,PARAMETER::SIZE=10

 

INTEGER::IO_state

CHARACTER(LEN=128)::IO_msg

CHARACTER(LEN=128)::format_str,temp_str

 

REAL,DIMENSION(SIZE)::array

INTEGER::loop_index,i,j,iptr

CHARACTER(LEN=128)::file_name

REAL::temp

INTEGER::num_data

 

    ! FILE valid?

    WRITE(*,*) 'Enter the file name'

    DO

        READ(*,*) file_name

        OPEN(UNIT=1,FILE=file_name,IOSTAT=IO_state,IOMSG=IO_msg,STATUS='OLD',ACTION='READ')

        IF(IO_state==0) EXIT

        WRITE(*,*) IO_msg

        WRITE(*,*) 'Re-enter the file name:'

    END DO

    ! read from file

    num_data=0