SUBROUTINE MAINRAS(Z,FREQ,SD,RD,OPTION,DEVICE,
     & XPIXEL,YPIXEL,VUG,DEL,ZBUF,NPXYZ,FAX,ROT,REVERS)
  100 FORMAT(1X,//, '  **** WARNING :  THIS PROGRAM VERSION DOES',
     & ' NOT ALLOW FOR UNIRAS PLOTS ',//)
      WRITE(6,100)
      RETURN
      END