if(x.lt.0)print *,'help 1'
      if(x.lt.-1)print *,'help 2'
      print *,' end of f038 test'
      stop
      end