Gabriele Cosmo
11 lines
231 B
FortranFixed
11 lines
231 B
FortranFixed
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
|