Go to the documentation of this file.00001 C $Id: sfstubs.h 11680 2011-03-27 17:57:51Z airwin $
00002 C common blocks required for routines in sfstubs.f
00003 C
00004 C Copyright (C) 2004 Alan W. Irwin
00005 C
00006 C This file is part of PLplot.
00007 C
00008 C PLplot is free software; you can redistribute it and/or modify
00009 C it under the terms of the GNU Library General Public License as
00010 C published by the Free Software Foundation; either version 2 of the
00011 C License, or (at your option) any later version.
00012 C
00013 C PLplot is distributed in the hope that it will be useful,
00014 C but WITHOUT ANY WARRANTY; without even the implied warranty of
00015 C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
00016 C GNU Library General Public License for more details.
00017 C
00018 C You should have received a copy of the GNU Library General Public
00019 C License along with PLplot; if not, write to the Free Software
00020 C Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
00021
00022 integer maxlen
00023 parameter (maxlen = 320)
00024 character*(maxlen) string1, string2, string3
00025 character*(maxlen) string4, string5, string6
00026 character*(maxlen) string7, string8, string9
00027 integer s1(80), s2(80), s3(80),
00028 & s4(80), s5(80), s6(80), s7(80), s8(80), s9(80)
00029 equivalence ( s1, string1 ), ( s2, string2 )
00030 equivalence ( s3, string3 ), ( s4, string4 )
00031 equivalence ( s5, string5 ), ( s6, string6 )
00032 equivalence ( s7, string7 ), ( s8, string8 )
00033 equivalence ( s9, string9 )
00034 common /zzplstr1/ string1
00035 common /zzplstr2/ string2
00036 common /zzplstr3/ string3
00037 common /zzplstr4/ string4
00038 common /zzplstr5/ string5
00039 common /zzplstr6/ string6
00040 common /zzplstr7/ string7
00041 common /zzplstr8/ string8
00042 common /zzplstr9/ string9