PROGRAM TUDOS
C
C     TEST PROGRAM FOR UDOSIF
C     OLYMPIC SOFTWARE  --  9/22/88
C
C     JUST INPUT THE PARAMETERS, AND WATCH WHAT HAPPENS
C
      EXTERNAL UDOSIF
      INTEGER*2 IARRAY(14)
C
      WRITE(*,20)
 20   FORMAT(' IARRAY=? ',$)
      READ(*,*)(IARRAY(I),I=1,14)
      CALL UDOSIF(IARRAY)
      WRITE(*,12)(IARRAY(I),I=1,14)
 12   FORMAT(/,15I4)
      STOP
      END