setpawc.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer *4 function	setpawc ()

Function/Subroutine Documentation

setpawc()

integer*4 function setpawc

(

)

Definition at line 27 of file setpawc.f.

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

Here is the call graph for this function: