home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / TRPMV.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  1.1 KB  |  20 lines
  1.  
  2.       SUBROUTINE TRPMV                                                  5046
  3.  
  4. c    include 'tcommon.for'
  5.     %include tcommon.for
  6.  
  7. C     ...TORP MOVEMENT.                                                 5064
  8.       DO 2580 J=1,NTORPS                                                5065
  9.       IF(TORPS(J,1).EQ.0.)GO TO 2580                                    5066
  10.       DX=COSD(TORPS(J,4))*TORPS(J,3)                                    5067
  11.       DY=SIND(TORPS(J,4))*TORPS(J,3)                                    5068
  12.       TORPS(J,1)=TORPS(J,1)+DX                                          5069
  13.       TORPS(J,2)=TORPS(J,2)+DY                                          5070
  14. C     ...TORPS LEAVING QUADRANT ARE DESTROYED.                          5071
  15.       IF(TORPS(J,1).LT..5.OR.TORPS(J,1).GE.10.5.OR.TORPS(J,2).LT..5.OR.T5072
  16.      1ORPS(J,2).GE.10.5)CALL DLETE(7,J)                                 5073
  17. 2580  CONTINUE                                                          5074
  18. 2600  RETURN                                                            5075
  19.       END                                                               5076
  20.