MINICERN/mathlib/gen/e/proc1.F

   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