Fortran 77での配列のマージ

Question

私は2つの配列：A = [1 2 3 4]とB = [5 6 7 8]を持っています。 & Bを1つの配列Cにマージし、昇順にソートするにはどうすればよいですか？私は、アルゴリズムのソート/連結の素朴な実装であるここでは、FORTRAN 77

Answer 1

でこれを実行する必要があります。

program sort 
    integer size1, size2, sizeout 
    parameter (size1 = 4, size2 = 4) 
    parameter (sizeout = size1 + size2) 
    integer in1(size1), in2(size1) 
    data in1/1,2,4,4/, in2/5,8,7,5/ 
    integer out(sizeout) 

c concatenate arrays 
    do j=1,size1 
     out(j)=in1(j) 
    enddo 
    do j=1,size2 
     out(j+size1)=in2(j) 
    enddo 

c sort the elements of the output array 
4 do j=2,sizeout 
     if(out(j).lt.out(j-1)) then 
      temp =out(j-1) 
      out(j-1)=out(j ) 
      out(j )=temp 
      goto 4 
     endif 
    enddo 

    end