Changeset 2058
- Timestamp:
- Nov 18, 2015 2:57:00 PM (10 years ago)
- Location:
- trunk
- Files:
-
- 17 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/fsource/polymask.for ΒΆ
r1121 r2058 20 20 REAL*4 P1X,P1Y,P2X,P2Y,XINTERS 21 21 22 DO K=0,N 22 DO K=0,N-1 23 23 MASK(K) = .FALSE. 24 24 DO I=0,M-1
Note: See TracChangeset
for help on using the changeset viewer.