      INTEGER*2 DEVLEN,FNMLEN,FID(3)
      CHARACTER*64 DEV
      CHARACTER*256 FNM
      WRITE(6,'(1X,A,$)') 'Device : '
      READ(5,'(Q,A)') DEVLEN,DEV
      WRITE(6,'(1X,A,$)') 'FID    : '
      READ(5,*) FID
      CALL LIB$FID_TO_NAME(DEV(1:DEVLEN),FID,FNM,FNMLEN)
      WRITE(6,*) FNM(1:FNMLEN)
      END
