program test_getpid
c
ccccc ipd = getpid()
ccccc call getpid(ipd)
      ipd=pid()
c
      print *,'Process id = ',ipd
      stop
      end