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 
                                                                                                                                                                  