fe4da5cc |
1 | * |
2 | * $Id$ |
3 | * |
4 | * $Log$ |
5 | * Revision 1.1.1.1 1996/04/01 15:02:27 mclareni |
6 | * Mathlib gen |
7 | * |
8 | * |
9 | #include "gen/pilot.h" |
10 | SUBROUTINE PROC1(A,QR,M,N,IM) |
11 | DIMENSION A(IM,N),QR(M,N) |
12 | C |
13 | DO 5 I=1,M |
14 | DO 5 J=1,N |
15 | 5 QR(I,J)=A(I,J) |
16 | RETURN |
17 | END |