home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / PUTIN.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  1.1 KB  |  21 lines
  1.  
  2.       SUBROUTINE PUTIN(IX,IY,NBAD,IBAD,IALPH)                           3360
  3.     character*4 ialph
  4.  
  5. c    include 'tcommon.for'
  6.     %include tcommon.for
  7.  
  8. C     ...PUT THINGS IN A QUADRANT.                                      3361
  9.       DIMENSION IBAD(100,2)                                             3379
  10. 100   IX=RAN(IZZ)*10.+1.                                                3380
  11.       IY=RAN(IZZ)*10.+1.                                                3381
  12.       DO 200   I=1,NBAD                                                 3382
  13.       IF(IX.EQ.IBAD(I,1).AND.IY.EQ.IBAD(I,2))GO TO 100                  3383
  14. 200   CONTINUE                                                          3384
  15.       NBAD=NBAD+1                                                       3385
  16.       IBAD(NBAD,1)=IX                                                   3386
  17.       IBAD(NBAD,2)=IY                                                   3387
  18.       IPQ(IX,IY)=IALPH                                                  3388
  19.       RETURN                                                            3389
  20.       END                                                               3390
  21.