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