subroutine tecs_plot(str)
      character str*(*)

      print *
     &  ,'give me Fortran 90 on this machine, I give you graphics'
      end