FTN4,L C C C C C C CC************************************************************ C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * C RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * CC************************************************************ C C C C NAME: GANG3 C SOURCE: 92840 - 18152 C RELOC: 92840 - 16021 C C C CC*********************************************************** SUBROUTINE GANG3(IGCB,AWC,AMU,BUFR) +,92840-16021 REV.2013 791129 C************************************************************** C GANG3 CONVERTS A WC ANGLE INTO AN MU ANGLE. C C AMU = ANGLE IN MACHINE UNIT RADIANS. C AWC = ANGLE IN WORLD COORDINATE RADIANS. (RETURNED) C BUFR = MINIMUM 8-WORD UTILITY BUFFER. C************************************************************** INTEGER IGCB(1) REAL AWC,AMU,BUFR(1) REAL PI INTEGER IREAD DATA PI/3.14159/ DATA IREAD/1/ C************************************************************ C CALCULATE THE ANGLE IN WORLD COORDINATES. THE ALGORITHM C IS AS FOLLOWS: C XWC=COS(AWC) YWC=SIN(AWC) C********************************************************* C GET THE CONVERSION FACTORS. C 20 CONTINUE CALL GCBIM(12,1,BUFR,0,IREAD) C**************************************************************** C CONVERT TO MU UNITS. C XMU=XWC*BUFR(1) YMU=YWC*BUFR(3) C**************************************************************** C TAKE THE ARCTAN TO GET THE MU ANGLE. C AMU=ATAN2(YMU,XMU) D WRITE(1,1005) XMU,YMU,AWC,AMU D1005 FORMAT(/"GANG3: XMU,YMU = ",2F9.5," AWC AND AMU = ",2F13.5) RETURN END