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: GANG2
C      SOURCE: 92840 - 18151
C      RELOC:  92840 - 16021
C 
C 
C 
CC*********************************************************** 
      SUBROUTINE GANG2(IGCB,AMU,AWC,BUFR) 
     +,92840-16021 REV.2013 791128
C************************************************************** 
C GANG2 CONVERTS AN MU ANGLE INTO A WC 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 AMU,AWC,BUFR(1)
      REAL PI 
      INTEGER IREAD 
      DATA PI/3.14159/
      DATA IREAD/1/ 
C***********************************************************
C GET THE LENGTHS IN MU UNITS.
C 
      XMU=COS(AMU)
      YMU=SIN(AMU)
C********************************************************** 
C GET THE CONVERSION FACTORS. 
C 
20    CONTINUE
      CALL GCBIM(12,1,BUFR,0,IREAD) 
C**************************************************************** 
C CONVERT TO WC UNITS.
C 
      YWC=YMU/BUFR(3) 
      XWC=XMU/BUFR(1) 
C**************************************************************** 
C TAKE THE ARCTAN TO GET THE WC ANGLE.
C 
      AWC=ATAN2(YWC,XWC)
      RETURN
      END 
                                                                      