← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/plplot/intrepid

« back to all changes in this revision

Viewing changes to bindings/f95/sfstubs.f90

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2006-11-04 10:19:34 UTC
  • mfrom: (2.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061104101934-mlirvdg4gpwi6i5q
Tags: 5.6.1-10
* Orphaning the package
* debian/control: Changed the maintainer to the Debian QA Group

Show diffs side-by-side

added added

removed removed

Lines of Context:
bindings/f95/sfstubs.f90
 
1
!***********************************************************************
 
2
!  $Id: sfstubs.f90,v 1.3 2006/05/19 09:57:07 arjenmarkus Exp $
 
3
!  sfstubs.f
 
4
!
 
5
!  Copyright (C) 2004  Alan W. Irwin
 
6
!
 
7
!  This file is part of PLplot.
 
8
!
 
9
!  PLplot is free software; you can redistribute it and/or modify
 
10
!  it under the terms of the GNU General Library Public License as published
 
11
!  by the Free Software Foundation; either version 2 of the License, or
 
12
!  (at your option) any later version.
 
13
!
 
14
!  PLplot is distributed in the hope that it will be useful,
 
15
!  but WITHOUT ANY WARRANTY; without even the implied warranty of
 
16
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
17
!  GNU Library General Public License for more details.
 
18
!
 
19
!  You should have received a copy of the GNU Library General Public License
 
20
!  along with PLplot; if not, write to the Free Software
 
21
!  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
22
!
 
23
!
 
24
!  This file contains the more complicated fortran stub routines
 
25
!  that the more generic scstubs.c cannot handle.
 
26
!  Typical stubs here must convert a fortran character string
 
27
!  to C or vice versa.
 
28
!  N.B. the called routines (that are defined in scstubs.c) have
 
29
!  a suffix of '7' to avoid name clashes and also presumably as a
 
30
!  signal in scstubs.c that they were called from these routines.
 
31
!  Where arguments are floating-point we explicitly type them as real(kind=plflt).
 
32
!  This typing is never used since these arguments are
 
33
!  actually passed by reference.  That implies these routines should
 
34
!  work if the calling routine and libplplot itself are both
 
35
!  double precision or both single precision.
 
36
!
 
37
!***********************************************************************
 
38
 
 
39
      subroutine plsetopt(opt, optarg)
 
40
 
 
41
      implicit none
 
42
      character*(*) opt, optarg
 
43
 
 
44
      include 'sfstubs.h'
 
45
 
 
46
      call plstrf2c(opt, string1, maxlen)
 
47
      call plstrf2c(optarg, string2, maxlen)
 
48
      call plsetopt7(s1, s2)
 
49
 
 
50
      end subroutine
 
51
 
 
52
!***********************************************************************
 
53
 
 
54
      subroutine plsdev(dnam)
 
55
 
 
56
      implicit none
 
57
      character*(*) dnam
 
58
 
 
59
      include 'sfstubs.h'
 
60
 
 
61
      call plstrf2c(dnam, string1, maxlen)
 
62
      call plsdev7(s1)
 
63
 
 
64
      end subroutine
 
65
 
 
66
!***********************************************************************
 
67
 
 
68
      subroutine plgdev(dnam)
 
69
 
 
70
      implicit none
 
71
      character*(*) dnam
 
72
 
 
73
      include 'sfstubs.h'
 
74
 
 
75
      call plgdev7(string1)
 
76
      call plstrc2f(string1, dnam)
 
77
 
 
78
      end subroutine
 
79
 
 
80
!***********************************************************************
 
81
 
 
82
      subroutine plsfnam(fnam)
 
83
 
 
84
      implicit none
 
85
      character*(*) fnam
 
86
 
 
87
      include 'sfstubs.h'
 
88
 
 
89
      call plstrf2c(fnam, string1, maxlen)
 
90
      call plsfnam7(s1)
 
91
 
 
92
      end subroutine
 
93
 
 
94
!***********************************************************************
 
95
 
 
96
      subroutine plgfnam(fnam)
 
97
 
 
98
      implicit none
 
99
      character*(*) fnam
 
100
 
 
101
      include 'sfstubs.h'
 
102
 
 
103
      call plgfnam7(string1)
 
104
      call plstrc2f(string1, fnam)
 
105
 
 
106
      end subroutine
 
107
 
 
108
!***********************************************************************
 
109
 
 
110
      subroutine plgver(ver)
 
111
 
 
112
      implicit none
 
113
      character*(*) ver
 
114
 
 
115
      include 'sfstubs.h'
 
116
 
 
117
      call plgver7(s1)
 
118
      call plstrc2f(string1, ver)
 
119
 
 
120
      end subroutine
 
121
 
 
122
!***********************************************************************
 
123
 
 
124
      subroutine plaxes(x0,y0,xopt,xtick,nxsub,yopt,ytick,nysub)
 
125
 
 
126
      implicit none
 
127
      real(kind=plflt) x0, y0, xtick, ytick
 
128
      integer nxsub, nysub
 
129
      character*(*) xopt,yopt
 
130
 
 
131
      include 'sfstubs.h'
 
132
 
 
133
      call plstrf2c(xopt, string1, maxlen)
 
134
      call plstrf2c(yopt, string2, maxlen)
 
135
 
 
136
      call plaxes7(x0,y0,s1,xtick,nxsub,s2,ytick,nysub)
 
137
 
 
138
      end subroutine
 
139
 
 
140
!***********************************************************************
 
141
 
 
142
      subroutine plbox(xopt,xtick,nxsub,yopt,ytick,nysub)
 
143
 
 
144
      implicit none
 
145
      real(kind=plflt) xtick, ytick
 
146
      integer nxsub, nysub
 
147
      character*(*) xopt,yopt
 
148
 
 
149
      include 'sfstubs.h'
 
150
 
 
151
      call plstrf2c(xopt, string1, maxlen)
 
152
      call plstrf2c(yopt, string2, maxlen)
 
153
 
 
154
      call plbox7(s1,xtick,nxsub,s2,ytick,nysub)
 
155
 
 
156
      end subroutine
 
157
 
 
158
!***********************************************************************
 
159
 
 
160
      subroutine plbox3(xopt,xlabel,xtick,nxsub,yopt,ylabel,ytick,nysub, &
 
161
       zopt,zlabel,ztick,nzsub)
 
162
 
 
163
      implicit none
 
164
      real(kind=plflt) xtick, ytick, ztick
 
165
      character*(*) xopt,xlabel,yopt,ylabel,zopt,zlabel
 
166
      integer nxsub, nysub, nzsub
 
167
 
 
168
      include 'sfstubs.h'
 
169
 
 
170
      call plstrf2c(xopt, string1, maxlen)
 
171
      call plstrf2c(xlabel, string2, maxlen)
 
172
      call plstrf2c(yopt, string3, maxlen)
 
173
      call plstrf2c(ylabel, string4, maxlen)
 
174
      call plstrf2c(zopt, string5, maxlen)
 
175
      call plstrf2c(zlabel, string6, maxlen)
 
176
 
 
177
      call plbox37(s1,s2,xtick,nxsub, &
 
178
        s3,s4,ytick,nysub, &
 
179
        s5,s6,ztick,nzsub)
 
180
 
 
181
      end subroutine
 
182
 
 
183
!***********************************************************************
 
184
 
 
185
      subroutine plcontour_0(z,kx,lx,ky,ly,clevel)
 
186
 
 
187
      implicit none
 
188
      integer kx, lx, ky, ly
 
189
      real(kind=plflt) z(:,:), clevel(:)
 
190
 
 
191
      call plcon07(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel))
 
192
 
 
193
      end subroutine
 
194
 
 
195
!***********************************************************************
 
196
 
 
197
      subroutine plcontour_1(z,kx,lx,ky,ly,clevel,xg,yg)
 
198
 
 
199
      implicit none
 
200
      integer kx, lx, ky, ly
 
201
      real(kind=plflt) z(:,:), xg(:), yg(:), clevel(:)
 
202
 
 
203
      call plcon17(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
 
204
 
 
205
      end subroutine
 
206
 
 
207
!***********************************************************************
 
208
 
 
209
      subroutine plcontour_2(z,kx,lx,ky,ly,clevel,xg,yg)
 
210
 
 
211
      implicit none
 
212
      integer kx, lx, ky, ly
 
213
      real(kind=plflt) z(:,:), xg(:,:), yg(:,:), clevel(:)
 
214
 
 
215
      call plcon27(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
 
216
 
 
217
      end subroutine
 
218
 
 
219
!***********************************************************************
 
220
 
 
221
      subroutine plcontour_tr(z,kx,lx,ky,ly,clevel,tr)
 
222
 
 
223
      implicit none
 
224
      integer kx, lx, ky, ly
 
225
      real(kind=plflt) z(:,:), clevel(:)
 
226
      real(kind=plflt) tr(6)
 
227
 
 
228
      call plcont7(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),tr)
 
229
 
 
230
      end subroutine
 
231
 
 
232
!***********************************************************************
 
233
 
 
234
      subroutine plcontour_0_all(z,clevel)
 
235
 
 
236
      implicit none
 
237
      integer kx, lx, ky, ly
 
238
      real(kind=plflt) z(:,:), clevel(:)
 
239
 
 
240
      kx = 1
 
241
      lx = size(z,1)
 
242
      ky = 1
 
243
      ly = size(z,2)
 
244
      call plcon07(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel))
 
245
 
 
246
      end subroutine
 
247
 
 
248
!***********************************************************************
 
249
 
 
250
      subroutine plcontour_1_all(z,clevel,xg,yg)
 
251
 
 
252
      implicit none
 
253
      integer kx, lx, ky, ly
 
254
      real(kind=plflt) z(:,:), xg(:), yg(:), clevel(:)
 
255
 
 
256
      kx = 1
 
257
      lx = size(z,1)
 
258
      ky = 1
 
259
      ly = size(z,2)
 
260
      call plcon17(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
 
261
 
 
262
      end subroutine
 
263
 
 
264
!***********************************************************************
 
265
 
 
266
      subroutine plcontour_2_all(z,clevel,xg,yg)
 
267
 
 
268
      implicit none
 
269
      integer kx, lx, ky, ly
 
270
      real(kind=plflt) z(:,:), xg(:,:), yg(:,:), clevel(:)
 
271
 
 
272
      kx = 1
 
273
      lx = size(z,1)
 
274
      ky = 1
 
275
      ly = size(z,2)
 
276
      call plcon27(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),xg,yg)
 
277
 
 
278
      end subroutine
 
279
 
 
280
!***********************************************************************
 
281
 
 
282
      subroutine plcontour_tr_all(z,clevel,tr)
 
283
 
 
284
      implicit none
 
285
      integer kx, lx, ky, ly
 
286
      real(kind=plflt) z(:,:), clevel(:)
 
287
      real(kind=plflt) tr(6)
 
288
 
 
289
      kx = 1
 
290
      lx = size(z,1)
 
291
      ky = 1
 
292
      ly = size(z,2)
 
293
      call plcont7(z,size(z,1),size(z,2),kx,lx,ky,ly,clevel,size(clevel),tr)
 
294
 
 
295
      end subroutine
 
296
 
 
297
!***********************************************************************
 
298
 
 
299
      subroutine plvectors_0(u, v, scale)
 
300
 
 
301
      implicit none
 
302
      real(kind=plflt) u(:,:), v(:,:), scale
 
303
 
 
304
      call plvec07(u,v,size(u,1),size(u,2),scale)
 
305
 
 
306
      end subroutine
 
307
 
 
308
!***********************************************************************
 
309
 
 
310
      subroutine plvectors_1(u, v, scale, xg, yg)
 
311
 
 
312
      implicit none
 
313
      real(kind=plflt) u(:,:), v(:,:), xg(:), yg(:), scale
 
314
 
 
315
      call plvec17(u,v,size(u,1),size(u,2),scale,xg,yg)
 
316
 
 
317
      end subroutine
 
318
 
 
319
!***********************************************************************
 
320
 
 
321
      subroutine plvectors_2(u, v, scale, xg, yg)
 
322
 
 
323
      implicit none
 
324
      real(kind=plflt) u(:,:), v(:,:), xg(:,:), yg(:,:), &
 
325
                       scale
 
326
 
 
327
      call plvec27(u,v,size(u,1),size(u,2),scale,xg,yg)
 
328
 
 
329
      end subroutine
 
330
 
 
331
!***********************************************************************
 
332
 
 
333
      subroutine plvectors_tr(u, v, scale, tr)
 
334
 
 
335
      implicit none
 
336
      real(kind=plflt) u(:,:), v(:,:), scale
 
337
      real(kind=plflt) tr(6)
 
338
 
 
339
      call plvect7(u,v,size(u,1),size(u,2),scale,tr)
 
340
 
 
341
      end subroutine
 
342
 
 
343
!***********************************************************************
 
344
 
 
345
      subroutine plshade_single_0(z, defined, &
 
346
        xmin, xmax, ymin, ymax, &
 
347
        shade_min, shade_max, &
 
348
        sh_cmap, sh_color, sh_width, &
 
349
        min_color, min_width, max_color, max_width)
 
350
 
 
351
      implicit none
 
352
      character defined*(*)
 
353
      integer sh_cmap, sh_width
 
354
      integer min_color, min_width, max_color, max_width
 
355
      real(kind=plflt) shade_min, shade_max, sh_color
 
356
      real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
 
357
 
 
358
      include 'sfstubs.h'
 
359
 
 
360
!       call plstrf2c(dnam, string1, maxlen)
 
361
 
 
362
      call plshade07(z, size(z,1), size(z,2), s1, &
 
363
        xmin, xmax, ymin, ymax, &
 
364
        shade_min, shade_max, &
 
365
        sh_cmap, sh_color, sh_width, &
 
366
        min_color, min_width, max_color, max_width, size(z,1))
 
367
 
 
368
      end subroutine
 
369
 
 
370
!***********************************************************************
 
371
 
 
372
      subroutine plshade_single_1(z, defined, &
 
373
        xmin, xmax, ymin, ymax, &
 
374
        shade_min, shade_max, &
 
375
        sh_cmap, sh_color, sh_width, &
 
376
        min_color, min_width, max_color, max_width, &
 
377
        xg, yg )
 
378
 
 
379
      implicit none
 
380
      character defined*(*)
 
381
      integer sh_cmap, sh_width
 
382
      integer min_color, min_width, max_color, max_width
 
383
      real(kind=plflt) shade_min, shade_max, sh_color
 
384
      real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, xg(:), yg(:)
 
385
 
 
386
      include 'sfstubs.h'
 
387
 
 
388
!       call plstrf2c(dnam, string1, maxlen)
 
389
 
 
390
      call plshade17(z, size(z,1), size(z,2), s1, &
 
391
        xmin, xmax, ymin, ymax, &
 
392
        shade_min, shade_max, &
 
393
        sh_cmap, sh_color, sh_width, &
 
394
        min_color, min_width, max_color, max_width, &
 
395
        xg, yg, size(z,1))
 
396
 
 
397
      end subroutine
 
398
 
 
399
!***********************************************************************
 
400
 
 
401
      subroutine plshade_single_2(z, defined, &
 
402
        xmin, xmax, ymin, ymax, &
 
403
        shade_min, shade_max, &
 
404
        sh_cmap, sh_color, sh_width, &
 
405
        min_color, min_width, max_color, max_width, &
 
406
        xg, yg )
 
407
 
 
408
      implicit none
 
409
      character defined*(*)
 
410
      integer sh_cmap, sh_width
 
411
      integer min_color, min_width, max_color, max_width
 
412
      real(kind=plflt) shade_min, shade_max, sh_color
 
413
      real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, xg(:,:), yg(:,:)
 
414
 
 
415
      include 'sfstubs.h'
 
416
 
 
417
!       call plstrf2c(dnam, string1, maxlen)
 
418
 
 
419
      call plshade27(z, size(z,1), size(z,2), s1, &
 
420
        xmin, xmax, ymin, ymax, &
 
421
        shade_min, shade_max, &
 
422
        sh_cmap, sh_color, sh_width, &
 
423
        min_color, min_width, max_color, max_width, &
 
424
        xg, yg, size(z,1) )
 
425
 
 
426
      end subroutine
 
427
 
 
428
!***********************************************************************
 
429
 
 
430
      subroutine plshade_single_tr(z, defined, &
 
431
        xmin, xmax, ymin, ymax, &
 
432
        shade_min, shade_max, &
 
433
        sh_cmap, sh_color, sh_width, &
 
434
        min_color, min_width, max_color, max_width, tr)
 
435
 
 
436
      implicit none
 
437
      character(len=*) defined
 
438
      integer sh_cmap, sh_width
 
439
      integer min_color, min_width, max_color, max_width
 
440
      real(kind=plflt) shade_min, shade_max, sh_color
 
441
      real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
 
442
      real(kind=plflt) tr(6)
 
443
 
 
444
      include 'sfstubs.h'
 
445
 
 
446
      call plshade7(z, size(z,1), size(z,2), s1, &
 
447
        xmin, xmax, ymin, ymax, &
 
448
        shade_min, shade_max, &
 
449
        sh_cmap, sh_color, sh_width, &
 
450
        min_color, min_width, max_color, max_width, tr, size(z,1))
 
451
 
 
452
      end subroutine
 
453
 
 
454
!***********************************************************************
 
455
 
 
456
      subroutine plshades_multiple_0(z, defined, &
 
457
        xmin, xmax, ymin, ymax, &
 
458
        clevel, fill_width, &
 
459
        cont_color, cont_width )
 
460
 
 
461
      implicit none
 
462
      character defined*(*)
 
463
      integer fill_width, cont_color, cont_width
 
464
      real(kind=plflt) clevel(:)
 
465
      real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
 
466
 
 
467
      include 'sfstubs.h'
 
468
 
 
469
!       call plstrf2c(dnam, string1, maxlen)
 
470
 
 
471
      call plshades07(z, size(z,1), size(z,2), s1, &
 
472
        xmin, xmax, ymin, ymax, &
 
473
        clevel, size(clevel), fill_width, &
 
474
        cont_color, cont_width, size(z,1))
 
475
 
 
476
      end subroutine
 
477
 
 
478
!***********************************************************************
 
479
 
 
480
      subroutine plshades_multiple_1(z, defined, &
 
481
        xmin, xmax, ymin, ymax, &
 
482
        clevel, fill_width, &
 
483
        cont_color, cont_width, xg1, yg1)
 
484
 
 
485
      implicit none
 
486
      character defined*(*)
 
487
      integer fill_width, cont_color, cont_width
 
488
      real(kind=plflt) clevel(:)
 
489
      real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
 
490
                       xg1(:), yg1(:)
 
491
 
 
492
      include 'sfstubs.h'
 
493
 
 
494
!       call plstrf2c(dnam, string1, maxlen)
 
495
 
 
496
      call plshades17(z, size(z,1), size(z,2), s1, &
 
497
        xmin, xmax, ymin, ymax, &
 
498
        clevel, size(clevel), fill_width, &
 
499
        cont_color, cont_width, xg1, yg1, size(z,1))
 
500
 
 
501
      end subroutine
 
502
 
 
503
!***********************************************************************
 
504
 
 
505
      subroutine plshades_multiple_2(z, defined, &
 
506
        xmin, xmax, ymin, ymax, &
 
507
        clevel, fill_width, &
 
508
        cont_color, cont_width, xg2, yg2)
 
509
 
 
510
      implicit none
 
511
      character defined*(*)
 
512
      integer fill_width, cont_color, cont_width
 
513
      real(kind=plflt) clevel(:)
 
514
      real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax, &
 
515
        xg2(:,:), yg2(:,:)
 
516
 
 
517
      include 'sfstubs.h'
 
518
 
 
519
!       call plstrf2c(dnam, string1, maxlen)
 
520
 
 
521
      call plshades27(z, size(z,1), size(z,2), s1, &
 
522
        xmin, xmax, ymin, ymax, &
 
523
        clevel, size(clevel), fill_width, &
 
524
        cont_color, cont_width, xg2, yg2, size(z,1))
 
525
 
 
526
      end subroutine
 
527
 
 
528
!***********************************************************************
 
529
 
 
530
      subroutine plshades_multiple_tr(z, defined, &
 
531
        xmin, xmax, ymin, ymax, &
 
532
        clevel, fill_width, &
 
533
        cont_color, cont_width, tr)
 
534
 
 
535
      implicit none
 
536
      character defined*(*)
 
537
      integer fill_width, cont_color, cont_width
 
538
      real(kind=plflt) clevel(:)
 
539
      real(kind=plflt) z(:,:), xmin, xmax, ymin, ymax
 
540
      real(kind=plflt) tr(6)
 
541
 
 
542
      include 'sfstubs.h'
 
543
 
 
544
!       call plstrf2c(dnam, string1, maxlen)
 
545
 
 
546
      call plshades7(z, size(z,1), size(z,2), s1, &
 
547
        xmin, xmax, ymin, ymax, &
 
548
        clevel, size(clevel), fill_width, &
 
549
        cont_color, cont_width, tr, size(z,1))
 
550
 
 
551
      end subroutine
 
552
 
 
553
!***********************************************************************
 
554
 
 
555
      subroutine pllab(xlab,ylab,title)
 
556
 
 
557
      implicit none
 
558
      character*(*) xlab,ylab,title
 
559
 
 
560
      include 'sfstubs.h'
 
561
 
 
562
      call plstrf2c(xlab, string1, maxlen)
 
563
      call plstrf2c(ylab, string2, maxlen)
 
564
      call plstrf2c(title, string3, maxlen)
 
565
 
 
566
      call pllab7(s1,s2,s3)
 
567
 
 
568
      end subroutine
 
569
 
 
570
!***********************************************************************
 
571
 
 
572
      subroutine plmtex(side,disp,pos,xjust,text)
 
573
 
 
574
      implicit none
 
575
      real(kind=plflt) disp, pos, xjust
 
576
      character*(*) side, text
 
577
 
 
578
      include 'sfstubs.h'
 
579
 
 
580
      call plstrf2c(side, string1, maxlen)
 
581
      call plstrf2c(text, string2, maxlen)
 
582
 
 
583
      call plmtex7(s1,disp,pos,xjust,s2)
 
584
 
 
585
      end subroutine
 
586
 
 
587
!***********************************************************************
 
588
 
 
589
      subroutine plptex(x,y,dx,dy,xjust,text)
 
590
 
 
591
      implicit none
 
592
      real(kind=plflt) x, y, dx, dy, xjust
 
593
      character*(*) text
 
594
 
 
595
      include 'sfstubs.h'
 
596
 
 
597
      call plstrf2c(text, string1, maxlen)
 
598
 
 
599
      call plptex7(x,y,dx,dy,xjust,s1)
 
600
 
 
601
      end subroutine
 
602
 
 
603
!***********************************************************************
 
604
 
 
605
      subroutine plstart(devname, nx, ny)
 
606
 
 
607
      implicit none
 
608
      character*(*) devname
 
609
      integer nx, ny
 
610
 
 
611
      include 'sfstubs.h'
 
612
 
 
613
      call plstrf2c(devname, string1, maxlen)
 
614
 
 
615
      call plstart7(s1, nx, ny)
 
616
 
 
617
      end subroutine
 
618
 
 
619
!***********************************************************************
 
620
 
 
621
      subroutine plmap(mapform,mapname,minx,maxx,miny,maxy)
 
622
 
 
623
      implicit none
 
624
      real(kind=plflt) minx, maxx, miny, maxy
 
625
      character*(*) mapname
 
626
      external mapform
 
627
 
 
628
      include 'sfstubs.h'
 
629
 
 
630
      call plstrf2c(mapname, string1, maxlen)
 
631
 
 
632
      call plsetmapformc(mapform)
 
633
      call plmapc(s1,minx,maxx,miny,maxy)
 
634
 
 
635
      end subroutine
 
636
 
 
637
!***********************************************************************
 
638
 
 
639
      subroutine plmeridians(mapform,dlong,dlat,minlong,maxlong, &
 
640
                             minlat,maxlat)
 
641
 
 
642
      implicit none
 
643
      real(kind=plflt) dlong, dlat, minlong, maxlong, minlat, maxlat
 
644
      external mapform
 
645
 
 
646
      include 'sfstubs.h'
 
647
 
 
648
      call plsetmapformc(mapform)
 
649
      call plmeridiansc(dlong,dlat,minlong,maxlong,minlat,maxlat)
 
650
 
 
651
      end subroutine
 
652