1*-----------------------------------------------------------------------
2*     TONE ROUTINE ON RC (HARD FILL - BUFFERING)
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE SZOPTZ
7
8      PARAMETER (NMAX = 16384)
9
10      REAL      WX(NMAX), WY(NMAX)
11
12      SAVE
13
14
15      NN = 0
16
17      RETURN
18*-----------------------------------------------------------------------
19      ENTRY SZSTTZ(RX, RY)
20
21      NN = NN +1
22      IF (NN.GT.NMAX)
23     +     CALL MSGDMP('E', 'SZSTTZ', 'WORKING AREA OVER FLOW')
24
25      CALL STFWTR(RX, RY, WX(NN), WY(NN))
26
27      RETURN
28*-----------------------------------------------------------------------
29      ENTRY SZCLTZ
30
31      CALL SWGTON(NN, WX, WY, ITPATZ)
32
33      RETURN
34*-----------------------------------------------------------------------
35      ENTRY SZTITZ(ITPAT)
36
37      ITPATZ = ITPAT
38
39      RETURN
40      END
41