home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / matlab.lha / Matlab / matlab.lzh / Source / MatLab / PUTID.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  197 b   |  17 lines
  1.       SUBROUTINE PUTID (X, Y)
  2.       IMPLICIT NONE
  3. C
  4. C STORE A NAME
  5. C
  6.       INTEGER X(4), Y(4)
  7. C
  8.       INTEGER I
  9. C
  10. C
  11.       DO 10 I = 1, 4
  12.         X(I) = Y(I)
  13. 10    CONTINUE
  14. C
  15.       RETURN
  16.       END
  17.