function dpet3e()
      character*4 dpet3e
      mype=ipet3e()
      write(dpet3e,100)mype
 100  format(i3.3,'/')
      write(6,*)'mype,dpet3e=',mype,dpet3e
      return
      end