!
SETJDLOCAL PROJECT=868 TITLE='???' TURNROUND NOW PRINT=SAVE PUNCHLIMIT 100
SETJDLOCAL PRINTLIMIT 900 PAGE=0 POST=OBS
RUNFILE %RESTH
FILE %H! TO &DATA/FB
PLOT    NO PLOT NO PLOT NO PLOT
36 Tau
PLOT    NO PRINTPRINT   XEROE   BEST
2900.D0 46100.D0 9.D0 0.7D0 108.D0 11.D0 1 5.D0 -1
   19702.40     22.1   0.0 204
   19826.17     16.2   0.0 204
   19842.13     16.6   0.0 204
   21232.25     14.4   0.0 204
   22985.41      0.4   0.0 205
9  44925.00     20.0   0.0 102
   44870.05     11.9
   44950.92     12.5
   45009.85     12.6
   45599.14     15.3
   45661.00     15.0
   45706.85     16.8
   46042.07     13.2
   46114.22      4.1
   46135.81      1.5
   46343.09      1.8
   46453.86      3.8
   46671.17      4.9       220
   46692.17      7.1
   46699.12      4.9
   46720.12      6.9
   46771.02      7.2
   46826.86      7.4
   46854.82      6.0       220
   46875.82      7.3
   47091.03      8.9
   47108.15      7.8       123
   47174.90      8.6
   47235.79      8.8       220
   47445.11     10.8
   47469.08      9.9       220
   47471.07     11.0       220
   47501.00     11.5
   47543.90     10.3
   47615.79     10.4       220
   47816.10     12.9
   47847.05     13.4
   47882.99     12.2
   47921.90     12.1       220
   47937.00     11.8       123
   48168.17     13.9
   48229.05     14.2
   48282.97     14.1       220
   48336.82     15.6
   48558.09     16.6        92
   48643.94     17.7        92
   48679.24     16.4       219
   48734.82     17.5        92
   48800.11     17.2        92
   48847.12     17.0        92
   48923.01     13.9
   48932.05     13.8
   48973.00      9.5        92
   49028.84      2.7        92
   49035.93      2.5        92
   49064.81      0.5        92
   49296.18      2.9        92
   49347.00      3.7        92
   49361.93      3.3        92
   49398.84      4.2        92
   49566.15      6.2        92
   49696.92      6.7        92
   49718.87      7.8        92

220 1.0
1.6D0 4.D0
-3. 23. 0.
5. 5.
1000. 500. 0 1

END
!
SETUPLOCAL (FT01F001=%H!)
1
<%IBMDATE>
!
FTQLR OBJECT=RFG1.BINLIB:BINARY LIBRARY=RFG1.BINLIB+CAMPLOT.FORTLIB +++
      DD 'PLOT=RFG1.PL36TAU/W/FB' DATA=&DATA/FB