C     ICETRAN TRAVERSE CALCULATION
C     INTEGRATED CIVIL ENGINEERING SYSTEM (ICES), MIT 1966
C     COMPUTES COORDINATES ALONG A TRAVERSE FROM BEARINGS AND DISTANCES
C
      SUBROUTINE TRAV(X0, Y0, N, BEAR, DIST, XC, YC, ERR)
      REAL X0, Y0, XC(50), YC(50), BEAR(50), DIST(50)
      INTEGER N, ERR
      REAL PI, RAD
      DATA PI/3.14159265358979/
      ERR = 0
      IF (N .LE. 0) GO TO 99
      IF (N .GT. 50) GO TO 99
      XC(1) = X0
      YC(1) = Y0
      DO 20 I = 1, N
          RAD = BEAR(I) * PI / 180.0
          XC(I+1) = XC(I) + DIST(I) * SIN(RAD)
          YC(I+1) = YC(I) + DIST(I) * COS(RAD)
   20 CONTINUE
      RETURN
   99 ERR = 1
      RETURN
      END