home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / PLIN.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  982 b   |  18 lines
  1.       SUBROUTINE PLIN(NUM,MAX,IN)                                       2581
  2.  
  3. c    include 'tcommon.for'
  4.     %include tcommon.for
  5.  
  6. C     ...PUT THINGS IN GALAXY.                                          2582
  7.       DO 100    I=1,NUM                                                 2602
  8. 200   IX=AMIN1(RAN(IZZ)*NQUAD+1.,FLOAT(NQUAD))                          2603
  9.       IY=AMIN1(RAN(IZZ)*NQUAD+1.,FLOAT(NQUAD))                          2604
  10. C    write(*,1000) ix,iy,jgal(ix,iy),ibl(ix,iy)
  11. C1000    format(' ',4i10)    
  12.       IF(JGAL(IX,IY).GE.MAX)GO TO 200                                   2605
  13.       IF(IBL(IX,IY).NE.0.AND.IN.EQ.10)GO TO 200                         2606
  14.       JGAL(IX,IY)=JGAL(IX,IY)+IN                                        2607
  15. 100   CONTINUE                                                          2608
  16.       RETURN                                                            2609
  17.       END                                                               2610
  18.