Concatenarea a două șiruri

Concatenarea a două șiruri presupune existența unui șir X de n componente și a unui șir Y de m componente. Va rezulta un șir Z de n+m componente. Vom face ipoteza că n+m nu trebuie să fie mai mare de 1000. Variabila IK returnează 1 dacă s-a efectuat concatenarea și IK=0 dacă operația nu s-a efectuat. Variabila K arată numărul de componente al șirului Z concatenat.
Subprogramul este:
         SUBROUTINE CONCAT (X,N,Y,M,Z,K)
         IF(((M+M).LT.0).OR.(M+N).GT.1000) GO TO alfa
         K=0
         DO 10 I=1,N
         Z(K)=X(I)
         K=K+1
10     CONTINUE
         DO 20 I=1,N
         Z(K)=Y(I)
         K=K+1
20     CONTINUE
         RETURN
         STOP

(24 decembrie 2017)