1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      PROGRAM LAY1
5
6      PARAMETER( NMAX=401, JMAX=51 )
7      REAL Y(NMAX), YY(JMAX)
8
9*-- データ ----
10      Y0 = 0.5
11      DO 10 N=1,NMAX
12        Y(N) = 5.*Y0 + 10.
13        Y0   = 3.7*Y0*(1.-Y0)
14   10 CONTINUE
15
16      CALL GLRGET( 'RUNDEF', RUNDEF )
17
18*-- グラフ ----
19      WRITE(*,*) ' WORKSTATION ID (I)  ? ;'
20      CALL SGPWSN
21      READ (*,*) IWS
22
23      CALL GROPN( IWS )
24      CALL SLDIV( 'Y', 3, 2 )
25
26      DO 20 I=1,8
27        CALL GRFRM
28
29        IJMIN = (I-1)*(JMAX-1) + 1
30        IJ = IJMIN
31        DO 30 J=1,JMAX
32          YY(J) = Y(IJ)
33          IJ = IJ + 1
34   30   CONTINUE
35        XMIN = IJMIN + 1599
36        XMAX =  XMIN + JMAX - 1
37
38        CALL GRSWND( XMIN, XMAX, RUNDEF, RUNDEF )
39        CALL USSTTL( 'TIME', 'YEAR', 'TEMPERATURE', 'DEG' )
40        CALL USGRPH( JMAX, RUNDEF, YY )
41   20 CONTINUE
42
43      CALL GRCLS
44
45      END
46