You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
l 8 l182 183 184 cl 8 5186 18 7 c188 1B91'10 19 l c192 c19 3 c194l 'I 519619 7l 'I e19920020 l202203204205206207 c208209210 c211212 c213214 c215216 30021721B219 301220221 30222222322422 5226 303227?28 305229 30423023 l23223 3234235 1007-30 c237238Ei'iD OF FILE~U~Rf'JUTINECCGRO( ICN, IFPCNT, !OEPTHIT,.!S SU8ROUT!NE ("COORO"I CALCULATES ABSOLUTE COORDINATES FOR ANYPOINT IN THE INTENSIVE STUOY AREA GIVEN THE COLONIST NUMBER I IC'O~ND THE LOCAT!CN CCDE DESCR!Bl!l.G THE COORO!NATES OF THE POINT WITHINTHE LOT I !FRONT r. !DEPTH). THE VALUES "lXCO" ANO "!YCO• RETURNEJBY THE SUBROUTINE ~EPRESENT O!STANCES EAST ANO ~ORTH RESPECTIVELY' IN ·~ETER s, FR:'JM AN AFHl!TRAR y REF ER ENCE POI NT LOCATED ours lDE THESTUDY AREA AT A POINT 15.3 KMS oua SOUTH OF THE MOUTH OF TRAVESSAJ19121. ALL D!RECTYCNS ARE FROM MAGNETIC NORTH, WHICH IS ll DEGREEil"EST OF TRUE NORTH. IF A COLONIST IS LOCATED OUTS!OE OF THE INTENSIVESTUOY AREA. VALUES OF "0" ARE RETURNED FOR THE COORDINATES.COMMOl\/COORGl/ [Xl(l77), !Ylll77J, !X2(177), IY21177lCOM .. Cll/COCR02/ rxco. IYCCl XC'J • -0!YC'J • -0IF ( ICN .eo. 0 .CR. !C1' .EO. -Ol GO TO 100[F (IXL( !CNl .EO. -o .OR. !Yll!CNI .EO. -Ol GO TO 100DEPTH • FLCAT(!OEPTHICRONT s FLOAT([FROl\TlXREFl " FLOAT( !Xl( !CN l lYREFl "FLOAT([Yl(!CNllXPEF2 • "L0AT(1X2(!C'dlYREF2" CLQAT(!Y2(!CNllc " 0.017453ABOVE CONVERSICN FACTCR FOR DEGREES TO RADIANSl •1.IF (!Xll!CNl .El'.I. lX21!CNll GO TO 300ABOVE FOP VERTICAL LOTSIF l!Xll!CNI .LT. lX2(!CNll GO TO 301ABOVc FOR OUAORANTS l ANO 4z " -1.ABOVE FOR CUAORANTS 2 ANO 3r.o TO 301!F (!YlllCNl .GT. IY21ICNll P"l • 270. •C!F (!Yll!CNI ,LT. lY21!CNll P"l "90. • CGO TrJ 302CONT!NU;:PH[ "~TANllYREF2 - YREFll/(XREF2 - XREFlllCONTINUE!F (FRQ!llT .LT. o.oll r,o TC 30~!F (l)EPTH ,LT. O.Oll r,c TC 305THETA = ATAN(FRG~T I DEPTH!r.o Tl'J 304THE TA z 0.r.o TO 304THETA • l~O. • C(;A~~A • PHY - THETAD • SORTIFRCNT•FRONT + DEPTH•OEPTHIXCO ~ XREFl + l * P • COSIGAMMAIYCO • YREFl + Z • P * S!N(r,AM~Al!XCO • ll'!XIXCOIIYCO • !FlXIYCOlCONTINUEENO OF SU~PCUT!!llE •ccc~o·~ ETLIR"IEND
Change language