PLplot
5.10.0
|
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 !***********************************************************************