PLplot  5.9.9
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros
sfstubs.h
Go to the documentation of this file.
1 C $Id: sfstubs.h 11680 2011-03-27 17:57:51Z airwin $
2 C common blocks required for routines in sfstubs.f
3 C
4 C Copyright (C) 2004 Alan W. Irwin
5 C
6 C This file is part of PLplot.
7 C
8 C PLplot is free software; you can redistribute it and/or modify
9 C it under the terms of the GNU Library General Public License as
10 C published by the Free Software Foundation; either version 2 of the
11 C License, or (at your option) any later version.
12 C
13 C PLplot is distributed in the hope that it will be useful,
14 C but WITHOUT ANY WARRANTY; without even the implied warranty of
15 C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 C GNU Library General Public License for more details.
17 C
18 C You should have received a copy of the GNU Library General Public
19 C License along with PLplot; if not, write to the Free Software
20 C Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21 
22  integer maxlen
23  parameter (maxlen = 320)
24  character*(maxlen) string1, string2, string3
25  character*(maxlen) string4, string5, string6
26  character*(maxlen) string7, string8, string9
27  integer s1(80), s2(80), s3(80),
28  & s4(80), s5(80), s6(80), s7(80), s8(80), s9(80)
29  equivalence ( s1, string1 ), ( s2, string2 )
30  equivalence ( s3, string3 ), ( s4, string4 )
31  equivalence ( s5, string5 ), ( s6, string6 )
32  equivalence ( s7, string7 ), ( s8, string8 )
33  equivalence ( s9, string9 )
34  common /zzplstr1/ string1
35  common /zzplstr2/ string2
36  common /zzplstr3/ string3
37  common /zzplstr4/ string4
38  common /zzplstr5/ string5
39  common /zzplstr6/ string6
40  common /zzplstr7/ string7
41  common /zzplstr8/ string8
42  common /zzplstr9/ string9