00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
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
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
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
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
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
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
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
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