setpawc.f

Go to the documentation of this file.

      INTEGER*4 FUNCTION setpawc()
      INTEGER npawc
      parameter(npawc = 1000000)
      INTEGER p
      COMMON /pawc/ p(npawc)
      INTEGER iquest
      common/quest/iquest(100)
      setpawc = npawc
      RETURN
      END