setntuc.f File Reference

Go to the source code of this file.

Functions/Subroutines
integer *4 function	setntuc ()

Function/Subroutine Documentation

setntuc()

integer*4 function setntuc

(

)

Definition at line 27 of file setntuc.f.

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