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