      SUBROUTINE TRNCAT (F,E)
C$$$  SUBPROGRAM DOCUMENTATION BLOCK
C                .      .    .                                       .
C SUBPROGRAM:    TRNCAT      TRUNCATE RHOMBOIDAL COEFFICIENTS
C   PRGMMR: DIMEGO           ORG: W/NMC22    DATE: 88-03-31
C
C ABSTRACT: TRUNCATES A SET OF 30 WAVE RHOMBOIDAL COEFFICIENTS
C   BEYOND WAVE NUMBER  10  .  ALSO would TAKE IN HALF AND RETURNS
C   FULL PRECISION.  This is performed while coefficients are in IBM order
C
C PROGRAM HISTORY LOG:
C   86-01-31  SELA/DIMEGO
C   87-05-30  DIMEGO      HALF TO FULL ADDED
C   88-06-30  DIMEGO      DOCBLOCK / PL1 / FTN200
C
C USAGE:    CALL TRNCAT(F,E)
C   INPUT ARGUMENT LIST:
C     F        - 31,31 COMPLEX COEFFICIENTS (HALF)
C
C   OUTPUT ARGUMENT LIST:
C     E        - 31,31 COMPLEX COEFFICIENTS (FULL)
C              - WAVES >10 ZEROED N-S AND E-W.
C
C ATTRIBUTES:
C   LANGUAGE: STANDARD FORTRAN
C   MACHINE:
C
C$$$
C
      DIMENSION       E(2,31,31)
      REAL            F(2,31,31)
      ZERO = 0.0
      DO 3 J= 1,31
      DO 3 I= 1,31
      DO 3 K= 1,2
      E(K,I,J) = F(K,I,J)
    3 CONTINUE
      DO 1 J= 1,11
      DO 1 I=12,31
      DO 1 K=1,2
      E(K,I,J) = ZERO
    1 CONTINUE
      DO 2 J=12,31
      DO 2 I= 1,31
      DO 2 K=1,2
      E(K,I,J) = ZERO
    2 CONTINUE
      RETURN
      END
