在Fortran 77中合并数组

Question

我有两个数组：A = [1 2 3 4]和B = [5 6 7 8]。我怎样才能合并A＆amp; B成一个数组C，然后按升序排序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