• Main Page
  • Namespaces
  • Classes
  • Files
  • File List
  • File Members

sfstubs.f90

Go to the documentation of this file.
00001 !***********************************************************************
00002 !  $Id: sfstubs.f90 11680 2011-03-27 17:57:51Z airwin $
00003 !  sfstubs.f
00004 !
00005 !  Copyright (C) 2004  Alan W. Irwin
00006 !
00007 !  This file is part of PLplot.
00008 !
00009 !  PLplot is free software; you can redistribute it and/or modify
00010 !  it under the terms of the GNU Library General Public License as published
00011 !  by the Free Software Foundation; either version 2 of the License, or
00012 !  (at your option) any later version.
00013 !
00014 !  PLplot is distributed in the hope that it will be useful,
00015 !  but WITHOUT ANY WARRANTY; without even the implied warranty of
00016 !  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
00017 !  GNU Library General Public License for more details.
00018 !
00019 !  You should have received a copy of the GNU Library General Public License
00020 !  along with PLplot; if not, write to the Free Software
00021 !  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
00022 !
00023 !
00024 !  This file contains the more complicated fortran stub routines
00025 !  that the more generic scstubs.c cannot handle.
00026 !  Typical stubs here must convert a fortran character string
00027 !  to C or vice versa.
00028 !  N.B. the called routines (that are defined in scstubs.c) have
00029 !  a suffix of '7' to avoid name clashes and also presumably as a
00030 !  signal in scstubs.c that they were called from these routines.
00031 !  Where arguments are floating-point we explicitly type them as real(kind=plflt).
00032 !  This typing is never used since these arguments are
00033 !  actually passed by reference.  That implies these routines should
00034 !  work if the calling routine and libplplot itself are both
00035 !  double precision or both single precision.
00036 !
00037 !***********************************************************************
00038 
00039       subroutine plsetopt(opt, optarg)
00040 
00041       implicit none
00042       character*(*) opt, optarg
00043 
00044       include 'sfstubs.h'
00045 
00046       call plstrf2c(opt, string1, maxlen)
00047       call plstrf2c(optarg, string2, maxlen)
00048       s1 = transfer( string1, s1 )
00049       s2 = transfer( string2, s2 )
00050       call plsetopt7(s1, s2)
00051 
00052       end subroutine
00053 
00054 !***********************************************************************
00055 
00056       subroutine plabort(text)
00057 
00058       implicit none
00059       character*(*) text
00060 
00061       include 'sfstubs.h'
00062 
00063       call plstrf2c(text, string1, maxlen)
00064       s1 = transfer( string1, s1 )
00065       call plabort7(s1)
00066 
00067       end subroutine
00068 
00069 !***********************************************************************
00070 
00071       subroutine plsdev(dnam)
00072 
00073       implicit none
00074       character*(*) dnam
00075 
00076       include 'sfstubs.h'
00077 
00078       call plstrf2c(dnam, string1, maxlen)
00079       s1 = transfer( string1, s1 )
00080       call plsdev7(s1)
00081 
00082       end subroutine
00083 
00084 !***********************************************************************
00085 
00086       subroutine plgdev(dnam)
00087 
00088       implicit none
00089       character*(*) dnam
00090 
00091       include 'sfstubs.h'
00092 
00093       call plgdev7(string1)
00094       call plstrc2f(string1, dnam)
00095 
00096       end subroutine
00097 
00098 !***********************************************************************
00099 
00100       subroutine plsfnam(fnam)
00101 
00102       implicit none
00103       character*(*) fnam
00104 
00105       include 'sfstubs.h'
00106 
00107       call plstrf2c(fnam, string1, maxlen)
00108       s1 = transfer( string1, s1 )
00109       call plsfnam7(s1)
00110 
00111       end subroutine
00112 
00113 !***********************************************************************
00114 
00115       subroutine plgfnam(fnam)
00116 
00117       implicit none
00118       character*(*) fnam
00119 
00120       include 'sfstubs.h'
00121 
00122       call plgfnam7(string1)
00123       call plstrc2f(string1, fnam)
00124 
00125       end subroutine
00126 
00127 !***********************************************************************
00128 
00129       subroutine plgver(ver)
00130 
00131       implicit none
00132       character*(*) ver
00133 
00134       include 'sfstubs.h'
00135 
00136       call plgver7(s1)
00137       string1 = transfer( s1, string1 )
00138       call plstrc2f(string1, ver)
00139 
00140       end subroutine
00141 
00142 !***********************************************************************
00143 
00144       subroutine plaxes(x0,y0,xopt,xtick,nxsub,yopt,ytick,nysub)
00145 
00146       implicit none
00147       real(kind=plflt) x0, y0, xtick, ytick
00148       integer nxsub, nysub
00149       character*(*) xopt,yopt
00150 
00151       include 'sfstubs.h'
00152 
00153       call plstrf2c(xopt, string1, maxlen)
00154       call plstrf2c(yopt, string2, maxlen)
00155 
00156       s1 = transfer( string1, s1 )
00157       s2 = transfer( string2, s2 )
00158       call plaxes7(x0,y0,s1,xtick,nxsub,s2,ytick,nysub)
00159 
00160       end subroutine
00161 
00162 !***********************************************************************
00163 
00164       subroutine plbox(xopt,xtick,nxsub,yopt,ytick,nysub)
00165 
00166       implicit none
00167       real(kind=plflt) xtick, ytick
00168       integer nxsub, nysub
00169       character*(*) xopt,yopt
00170 
00171       include 'sfstubs.h'
00172 
00173       call plstrf2c(xopt, string1, maxlen)
00174       call plstrf2c(yopt, string2, maxlen)
00175 
00176       s1 = transfer( string1, s1 )
00177       s2 = transfer( string2, s2 )
00178       call plbox7(s1,xtick,nxsub,s2,ytick,nysub)
00179 
00180       end subroutine
00181 
00182 !***********************************************************************
00183 
00184       subroutine plbox3(xopt,xlabel,xtick,nxsub,yopt,ylabel,ytick,nysub, &
00185        zopt,zlabel,ztick,nzsub)
00186 
00187       implicit none
00188       real(kind=plflt) xtick, ytick, ztick
00189       character*(*) xopt,xlabel,yopt,ylabel,zopt,zlabel
00190       integer nxsub, nysub, nzsub
00191 
00192       include 'sfstubs.h'
00193 
00194       call plstrf2c(xopt, string1, maxlen)
00195       call plstrf2c(xlabel, string2, maxlen)
00196       call plstrf2c(yopt, string3, maxlen)
00197       call plstrf2c(ylabel, string4, maxlen)
00198       call plstrf2c(zopt, string5, maxlen)
00199       call plstrf2c(zlabel, string6, maxlen)
00200 
00201       s1 = transfer( string1, s1 )
00202       s2 = transfer( string2, s2 )
00203       s3 = transfer( string3, s3 )
00204       s4 = transfer( string4, s4 )
00205       s5 = transfer( string5, s5 )
00206       s6 = transfer( string6, s6 )
00207       call plbox37(s1,s2,xtick,nxsub, &
00208         s3,s4,ytick,nysub, &
00209         s5,s6,ztick,nzsub)
00210 
00211       end subroutine
00212 
00213 !***********************************************************************
00214 
00215       subroutine plcontour_0(z,kx,lx,ky,ly,clevel)
00216 
00217       implicit none
00218       integer kx, lx, ky, ly
00219       real(kind=plflt) z(:,:), clevel(:)
00220 
00221       call plcon07(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel))
00222 
00223       end subroutine
00224 
00225 !***********************************************************************
00226 
00227       subroutine plcontour_1(z,kx,lx,ky,ly,clevel,xg,yg)
00228 
00229       implicit none
00230       integer kx, lx, ky, ly
00231       real(kind=plflt) z(:,:), xg(:), yg(:), clevel(:)
00232 
00233       call plcon17(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
00234 
00235       end subroutine
00236 
00237 !***********************************************************************
00238 
00239       subroutine plcontour_2(z,kx,lx,ky,ly,clevel,xg,yg)
00240 
00241       implicit none
00242       integer kx, lx, ky, ly
00243       real(kind=plflt) z(:,:), xg(:,:), yg(:,:), clevel(:)
00244 
00245       call plcon27(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
00246 
00247       end subroutine
00248 
00249 !***********************************************************************
00250 
00251       subroutine plcontour_tr(z,kx,lx,ky,ly,clevel,tr)
00252 
00253       implicit none
00254       integer kx, lx, ky, ly
00255       real(kind=plflt) z(:,:), clevel(:)
00256       real(kind=plflt) tr(6)
00257 
00258       call plcont7(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),tr)
00259 
00260       end subroutine
00261 
00262 !***********************************************************************
00263 
00264       subroutine plcontour_0_all(z,clevel)
00265 
00266       implicit none
00267       integer kx, lx, ky, ly
00268       real(kind=plflt) z(:,:), clevel(:)
00269 
00270       kx = 1
00271       lx = size(z,1)
00272       ky = 1
00273       ly = size(z,2)
00274       call plcon07(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel))
00275 
00276       end subroutine
00277 
00278 !***********************************************************************
00279 
00280       subroutine plcontour_1_all(z,clevel,xg,yg)
00281 
00282       implicit none
00283       integer kx, lx, ky, ly
00284       real(kind=plflt) z(:,:), xg(:), yg(:), clevel(:)
00285 
00286       kx = 1
00287       lx = size(z,1)
00288       ky = 1
00289       ly = size(z,2)
00290       call plcon17(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
00291 
00292       end subroutine
00293 
00294 !***********************************************************************
00295 
00296       subroutine plcontour_2_all(z,clevel,xg,yg)
00297 
00298       implicit none
00299       integer kx, lx, ky, ly
00300       real(kind=plflt) z(:,:), xg(:,:), yg(:,:), clevel(:)
00301 
00302       kx = 1
00303       lx = size(z,1)
00304       ky = 1
00305       ly = size(z,2)
00306       call plcon27(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
00307 
00308       end subroutine
00309 
00310 !***********************************************************************
00311 
00312       subroutine plcontour_tr_all(z,clevel,tr)
00313 
00314       implicit none
00315       integer kx, lx, ky, ly
00316       real(kind=plflt) z(:,:), clevel(:)
00317       real(kind=plflt) tr(6)
00318 
00319       kx = 1
00320       lx = size(z,1)
00321       ky = 1
00322       ly = size(z,2)
00323       call plcont7(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),tr)
00324 
00325       end subroutine
00326 
00327 !***********************************************************************
00328 
00329       subroutine plstring(x,y,string)
00330 
00331       implicit none
00332       real(kind=plflt) x(:), y(:)
00333       character(len=*) string
00334 
00335       include 'sfstubs.h'
00336 
00337       integer n
00338 
00339       n = size(x)
00340 
00341       call plstrf2c(string, string1, maxlen)
00342       s1 = transfer( string1, s1 )
00343       call plstring7(n,x,y,s1)
00344 
00345       end subroutine
00346 
00347 !***********************************************************************
00348 
00349       subroutine plstring3(x,y,z,string)
00350 
00351       implicit none
00352       real(kind=plflt) x(:), y(:), z(:)
00353       character(len=*) string
00354 
00355       include 'sfstubs.h'
00356 
00357       integer n
00358 
00359       n = size(x)
00360 
00361       call plstrf2c(string, string1, maxlen)
00362       s1 = transfer( string1, s1 )
00363       call plstring37(n,x,y,z,s1)
00364 
00365       end subroutine
00366 
00367 !***********************************************************************
00368 
00369       subroutine plvectors_0(u, v, scale)
00370 
00371       implicit none
00372       real(kind=plflt) u(:,:), v(:,:), scale
00373 
00374       call plvec07(u,v,size(u,1),size(u,2),scale)
00375 
00376       end subroutine
00377 
00378 !***********************************************************************
00379 
00380       subroutine plvectors_1(u, v, scale, xg, yg)
00381 
00382       implicit none
00383       real(kind=plflt) u(:,:), v(:,:), xg(:), yg(:), scale
00384 
00385       call plvec17(u,v,size(u,1),size(u,2),scale,xg,yg)
00386 
00387       end subroutine
00388 
00389 !***********************************************************************
00390 
00391       subroutine plvectors_2(u, v, scale, xg, yg)
00392 
00393       implicit none
00394       real(kind=plflt) u(:,:), v(:,:), xg(:,:), yg(:,:), 
00395                        scale
00396 
00397       call plvec27(u,v,size(u,1),size(u,2),scale,xg,yg)
00398 
00399       end subroutine
00400 
00401 !***********************************************************************
00402 
00403       subroutine plvectors_tr(u, v, scale, tr)
00404 
00405       implicit none
00406       real(kind=plflt) u(:,:), v(:,:), scale
00407       real(kind=plflt) tr(6)
00408 
00409       call plvect7(u,v,size(u,1),size(u,2),scale,tr)
00410 
00411       end subroutine
00412 
00413 !***********************************************************************
00414 
00415       subroutine plshade_single_0(z, defined, &
00416         xmin, xmax, ymin, ymax, &
00417         shade_min, shade_max, &
00418         sh_cmap, sh_color, sh_width, &
00419         min_color, min_width, max_color, max_width)
00420 
00421       implicit none
00422       character defined*(*)
00423       integer sh_cmap, sh_width
00424       integer min_color, min_width, max_color, max_width
00425       real(kind=plflt) shade_min, shade_max, sh_color
00426       real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
00427 
00428       include 'sfstubs.h'
00429 
00430 !       call plstrf2c(dnam, string1, maxlen)
00431 
00432       s1 = transfer( string1, s1 )
00433       call plshade07(z, size(z,1), size(z,2), s1, &
00434         xmin, xmax, ymin, ymax, &
00435         shade_min, shade_max, &
00436         sh_cmap, sh_color, sh_width, &
00437         min_color, min_width, max_color, max_width, size(z,1))
00438 
00439       end subroutine
00440 
00441 !***********************************************************************
00442 
00443       subroutine plshade_single_1(z, defined, &
00444         xmin, xmax, ymin, ymax, &
00445         shade_min, shade_max, &
00446         sh_cmap, sh_color, sh_width, &
00447         min_color, min_width, max_color, max_width, &
00448         xg, yg )
00449 
00450       implicit none
00451       character defined*(*)
00452       integer sh_cmap, sh_width
00453       integer min_color, min_width, max_color, max_width
00454       real(kind=plflt) shade_min, shade_max, sh_color
00455       real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, xg(:), yg(:)
00456 
00457       include 'sfstubs.h'
00458 
00459 !       call plstrf2c(dnam, string1, maxlen)
00460 
00461       s1 = transfer( string1, s1 )
00462       call plshade17(z, size(z,1), size(z,2), s1, &
00463         xmin, xmax, ymin, ymax, &
00464         shade_min, shade_max, &
00465         sh_cmap, sh_color, sh_width, &
00466         min_color, min_width, max_color, max_width, &
00467         xg, yg, size(z,1))
00468 
00469       end subroutine
00470 
00471 !***********************************************************************
00472 
00473       subroutine plshade_single_2(z, defined, &
00474         xmin, xmax, ymin, ymax, &
00475         shade_min, shade_max, &
00476         sh_cmap, sh_color, sh_width, &
00477         min_color, min_width, max_color, max_width, &
00478         xg, yg )
00479 
00480       implicit none
00481       character defined*(*)
00482       integer sh_cmap, sh_width
00483       integer min_color, min_width, max_color, max_width
00484       real(kind=plflt) shade_min, shade_max, sh_color
00485       real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, xg(:,:), yg(:,:)
00486 
00487       include 'sfstubs.h'
00488 
00489 !       call plstrf2c(dnam, string1, maxlen)
00490 
00491       s1 = transfer( string1, s1 )
00492       call plshade27(z, size(z,1), size(z,2), s1, &
00493         xmin, xmax, ymin, ymax, &
00494         shade_min, shade_max, &
00495         sh_cmap, sh_color, sh_width, &
00496         min_color, min_width, max_color, max_width, &
00497         xg, yg, size(z,1) )
00498 
00499       end subroutine
00500 
00501 !***********************************************************************
00502 
00503       subroutine plshade_single_tr(z, defined, &
00504         xmin, xmax, ymin, ymax, &
00505         shade_min, shade_max, &
00506         sh_cmap, sh_color, sh_width, &
00507         min_color, min_width, max_color, max_width, tr)
00508 
00509       implicit none
00510       character(len=*) defined
00511       integer sh_cmap, sh_width
00512       integer min_color, min_width, max_color, max_width
00513       real(kind=plflt) shade_min, shade_max, sh_color
00514       real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
00515       real(kind=plflt) tr(6)
00516 
00517       include 'sfstubs.h'
00518 
00519       s1 = transfer( string1, s1 )
00520       call plshade7(z, size(z,1), size(z,2), s1, &
00521         xmin, xmax, ymin, ymax, &
00522         shade_min, shade_max, &
00523         sh_cmap, sh_color, sh_width, &
00524         min_color, min_width, max_color, max_width, tr, size(z,1))
00525 
00526       end subroutine
00527 
00528 !***********************************************************************
00529 
00530       subroutine plshades_multiple_0(z, defined, &
00531         xmin, xmax, ymin, ymax, &
00532         clevel, fill_width, &
00533         cont_color, cont_width )
00534 
00535       implicit none
00536       character defined*(*)
00537       integer fill_width, cont_color, cont_width
00538       real(kind=plflt) clevel(:)
00539       real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
00540 
00541       include 'sfstubs.h'
00542 
00543 !       call plstrf2c(dnam, string1, maxlen)
00544 
00545       s1 = transfer( string1, s1 )
00546       call plshades07(z, size(z,1), size(z,2), s1, &
00547         xmin, xmax, ymin, ymax, &
00548         clevel, size(clevel), fill_width, &
00549         cont_color, cont_width, size(z,1))
00550 
00551       end subroutine
00552 
00553 !***********************************************************************
00554 
00555       subroutine plshades_multiple_1(z, defined, &
00556         xmin, xmax, ymin, ymax, &
00557         clevel, fill_width, &
00558         cont_color, cont_width, xg1, yg1)
00559 
00560       implicit none
00561       character defined*(*)
00562       integer fill_width, cont_color, cont_width
00563       real(kind=plflt) clevel(:)
00564       real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, 
00565                        xg1(:), yg1(:)
00566 
00567       include 'sfstubs.h'
00568 
00569 !       call plstrf2c(dnam, string1, maxlen)
00570 
00571       s1 = transfer( string1, s1 )
00572       call plshades17(z, size(z,1), size(z,2), s1, &
00573         xmin, xmax, ymin, ymax, &
00574         clevel, size(clevel), fill_width, &
00575         cont_color, cont_width, xg1, yg1, size(z,1))
00576 
00577       end subroutine
00578 
00579 !***********************************************************************
00580 
00581       subroutine plshades_multiple_2(z, defined, &
00582         xmin, xmax, ymin, ymax, &
00583         clevel, fill_width, &
00584         cont_color, cont_width, xg2, yg2)
00585 
00586       implicit none
00587       character defined*(*)
00588       integer fill_width, cont_color, cont_width
00589       real(kind=plflt) clevel(:)
00590       real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, 
00591         xg2(:,:), yg2(:,:)
00592 
00593       include 'sfstubs.h'
00594 
00595 !       call plstrf2c(dnam, string1, maxlen)
00596 
00597       s1 = transfer( string1, s1 )
00598       call plshades27(z, size(z,1), size(z,2), s1, &
00599         xmin, xmax, ymin, ymax, &
00600         clevel, size(clevel), fill_width, &
00601         cont_color, cont_width, xg2, yg2, size(z,1))
00602 
00603       end subroutine
00604 
00605 !***********************************************************************
00606 
00607       subroutine plshades_multiple_tr(z, defined, &
00608         xmin, xmax, ymin, ymax, &
00609         clevel, fill_width, &
00610         cont_color, cont_width, tr)
00611 
00612       implicit none
00613       character defined*(*)
00614       integer fill_width, cont_color, cont_width
00615       real(kind=plflt) clevel(:)
00616       real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
00617       real(kind=plflt) tr(6)
00618 
00619       include 'sfstubs.h'
00620 
00621 !       call plstrf2c(dnam, string1, maxlen)
00622 
00623       s1 = transfer( string1, s1 )
00624       call plshades7(z, size(z,1), size(z,2), s1, &
00625         xmin, xmax, ymin, ymax, &
00626         clevel, size(clevel), fill_width, &
00627         cont_color, cont_width, tr, size(z,1))
00628 
00629       end subroutine
00630 
00631 !***********************************************************************
00632 
00633       subroutine plimagefr_0(z,xmin,xmax,ymin,ymax,zmin,zmax, &
00634            valuemin,valuemax)
00635 
00636       implicit none
00637       integer nx, ny, lx
00638       real(kind=plflt) z(:,:)
00639       real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
00640 
00641       call plimagefr07(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
00642           valuemin,valuemax,size(z,1))
00643 
00644       end subroutine
00645 
00646 !***********************************************************************
00647 
00648       subroutine plimagefr_1(z,xmin,xmax,ymin,ymax,zmin,zmax, &
00649            valuemin,valuemax,xg,yg)
00650 
00651       implicit none
00652       integer nx, ny, lx
00653       real(kind=plflt) z(:,:), xg(:), yg(:)
00654       real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
00655 
00656       call plimagefr17(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
00657           valuemin,valuemax,xg,yg,size(z,1))
00658 
00659       end subroutine
00660 
00661 !***********************************************************************
00662 
00663       subroutine plimagefr_2(z,xmin,xmax,ymin,ymax,zmin,zmax, &
00664            valuemin,valuemax,xg,yg)
00665 
00666       implicit none
00667       integer nx, ny, lx
00668       real(kind=plflt) z(:,:), xg(:,:), yg(:,:)
00669       real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
00670 
00671       call plimagefr27(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
00672           valuemin,valuemax,xg,yg,size(z,1))
00673 
00674       end subroutine
00675 
00676 !***********************************************************************
00677 
00678       subroutine plimagefr_tr(z,xmin,xmax,ymin,ymax,zmin,zmax, &
00679            valuemin,valuemax,tr)
00680 
00681       implicit none
00682       integer nx, ny, lx
00683       real(kind=plflt) z(:,:)
00684       real(kind=plflt) xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax
00685       real(kind=plflt) tr(6)
00686 
00687       call plimagefr7(z,size(z,1),size(z,2),xmin,xmax,ymin,ymax,zmin,zmax, &
00688            valuemin,valuemax,tr,size(z,1))
00689 
00690       end  subroutine
00691 
00692 !***********************************************************************
00693 
00694       subroutine pllab(xlab,ylab,title)
00695 
00696       implicit none
00697       character*(*) xlab,ylab,title
00698 
00699       include 'sfstubs.h'
00700 
00701       call plstrf2c(xlab, string1, maxlen)
00702       call plstrf2c(ylab, string2, maxlen)
00703       call plstrf2c(title, string3, maxlen)
00704 
00705       s1 = transfer( string1, s1 )
00706       s2 = transfer( string2, s2 )
00707       s3 = transfer( string3, s3 )
00708       call pllab7(s1,s2,s3)
00709 
00710       end subroutine
00711 
00712 !***********************************************************************
00713 
00714       subroutine plspal0(filename)
00715 
00716       implicit none
00717       character*(*) filename
00718 
00719       include 'sfstubs.h'
00720 
00721       call plstrf2c(filename, string1, maxlen)
00722 
00723       s1 = transfer( string1, s1 )
00724       call plspal07(s1)
00725 
00726       end subroutine
00727 
00728 !***********************************************************************
00729 
00730       subroutine plspal1(filename,interpolate)
00731 
00732       implicit none
00733       character*(*) filename
00734       integer interpolate
00735 
00736       include 'sfstubs.h'
00737 
00738       call plstrf2c(filename, string1, maxlen)
00739 
00740       s1 = transfer( string1, s1 )
00741       call plspal17(s1,interpolate)
00742 
00743       end subroutine
00744 
00745 !***********************************************************************
00746 
00747       subroutine plmtex(side,disp,pos,xjust,text)
00748 
00749       implicit none
00750       real(kind=plflt) disp, pos, xjust
00751       character*(*) side, text
00752 
00753       include 'sfstubs.h'
00754 
00755       call plstrf2c(side, string1, maxlen)
00756       call plstrf2c(text, string2, maxlen)
00757 
00758       s1 = transfer( string1, s1 )
00759       s2 = transfer( string2, s2 )
00760       call plmtex7(s1,disp,pos,xjust,s2)
00761 
00762       end subroutine
00763 
00764 !***********************************************************************
00765 
00766       subroutine plmtex3(side,disp,pos,xjust,text)
00767 
00768       implicit none
00769       real(kind=plflt) disp, pos, xjust
00770       character*(*) side, text
00771 
00772       include 'sfstubs.h'
00773 
00774       call plstrf2c(side, string1, maxlen)
00775       call plstrf2c(text, string2, maxlen)
00776 
00777       s1 = transfer( string1, s1 )
00778       s2 = transfer( string2, s2 )
00779       call plmtex37(s1,disp,pos,xjust,s2)
00780 
00781       end subroutine
00782 
00783 !***********************************************************************
00784 
00785       subroutine plptex(x,y,dx,dy,xjust,text)
00786 
00787       implicit none
00788       real(kind=plflt) x, y, dx, dy, xjust
00789       character*(*) text
00790 
00791       include 'sfstubs.h'
00792 
00793       call plstrf2c(text, string1, maxlen)
00794 
00795       s1 = transfer( string1, s1 )
00796       call plptex7(x,y,dx,dy,xjust,s1)
00797 
00798       end subroutine
00799 
00800 !***********************************************************************
00801 
00802       subroutine plptex3(x,y,z,dx,dy,dz,sx,sy,sz,xjust,text)
00803 
00804       implicit none
00805       real(kind=plflt) x, y, z, dx, dy, dz, sx, sy, sz, xjust
00806       character*(*) text
00807 
00808       include 'sfstubs.h'
00809 
00810       call plstrf2c(text, string1, maxlen)
00811 
00812       s1 = transfer( string1, s1 )
00813       call plptex37(x,y,z,dx,dy,dz,sx,sy,sz,xjust,s1)
00814 
00815       end subroutine
00816 
00817 !***********************************************************************
00818 
00819       subroutine plstart(devname, nx, ny)
00820 
00821       implicit none
00822       character*(*) devname
00823       integer nx, ny
00824 
00825       include 'sfstubs.h'
00826 
00827       call plstrf2c(devname, string1, maxlen)
00828 
00829       s1 = transfer( string1, s1 )
00830       call plstart7(s1, nx, ny)
00831 
00832       end subroutine
00833 
00834 !***********************************************************************
00835 
00836       subroutine pltimefmt(fmt)
00837 
00838       implicit none
00839       character*(*) fmt
00840 
00841       include 'sfstubs.h'
00842 
00843       call plstrf2c(fmt, string1, maxlen)
00844       s1 = transfer( string1, s1 )
00845       call pltimefmt7(s1)
00846 
00847       end subroutine
00848 
00849 !***********************************************************************

Generated on Wed Oct 12 2011 20:42:23 for PLplot by  doxygen 1.7.1