      SUBROUTINE PLTFIN
      IMPLICIT NONE
C
C ***      CLOSE OUT THE PLOTS
C
      CALL ENDPLT
      RETURN
      END
