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