setntuc.f

Go to the documentation of this file.

      INTEGER*4 FUNCTION setntuc()
      INTEGER nntuc
      parameter(nntuc = 200)
      INTEGER*4 nvar,p
      COMMON /ntuc/ nvar,p(nntuc)
      nvar = 0
      setntuc = nntuc
      RETURN
      END