Zusammenführen von Arrays in Fortran 77

Question

Ich habe zwei Arrays: A = [1 2 3 4] und B = [5 6 7 8]. Wie kann ich A & B in ein Array C zusammenführen und dann C in aufsteigender Reihenfolge sortieren? Ich brauche dies in Fortran 77.

Answer 1

hier zu tun, ist eine naive Implementierung der Verkettung/Sortieralgorithmus:

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