V3FIT
pspline_calls.f
1 ! interface module generated by iface_simple.csh -- Wed Apr 25 15:21:11 EDT 2007
2 !
3 ! cwd = /u/dmccune/transp/codesys/source/pspline
4 !
5 ! input file arguments:
6 !
7 ! 1. akherm1.for
8 ! 2. akherm2.for
9 ! 3. akherm3.for
10 ! 4. bcspeval.for
11 ! 5. bcspgrid.for
12 ! 6. bcspline.for
13 ! 7. bcspvec.for
14 ! 8. bpsplinb.for
15 ! 9. bpspline.for
16 ! 10. cspeval.for
17 ! 11. cspline.for
18 ! 12. cubsplb.for
19 ! 13. dnherm1.for
20 ! 14. dnherm2.for
21 ! 15. dnherm3.for
22 ! 16. evbicub.for
23 ! 17. evintrp2d.for
24 ! 18. evintrp3d.for
25 ! 19. evspline.for
26 ! 20. evtricub.for
27 ! 21. f2test.for
28 ! 22. f3test.for
29 ! 23. genxpkg.for
30 ! 24. gridbicub.for
31 ! 25. gridherm1.for
32 ! 26. gridherm2.for
33 ! 27. gridherm3.for
34 ! 28. gridintrp2d.for
35 ! 29. gridintrp3d.for
36 ! 30. gridpc1.for
37 ! 31. gridpc2.for
38 ! 32. gridpc3.for
39 ! 33. gridspline.for
40 ! 34. gridtricub.for
41 ! 35. herm1ev.for
42 ! 36. herm2ev.for
43 ! 37. herm3ev.for
44 ! 38. ibc_ck.for
45 ! 39. mkbicub.for
46 ! 40. mkbicubw.for
47 ! 41. mkherm1.for
48 ! 42. mkherm2.for
49 ! 43. mkherm3.for
50 ! 44. mkintrp2d.for
51 ! 45. mkintrp3d.for
52 ! 46. mkspl2pb.for
53 ! 47. mkspl2p.for
54 ! 48. mkspl2zb.for
55 ! 49. mkspl2z.for
56 ! 50. mkspl3pb.for
57 ! 51. mkspl3zb.for
58 ! 52. mkspline.for
59 ! 53. mktricub.for
60 ! 54. mktricubw.for
61 ! 55. nspline.for
62 ! 56. pc1ev.for
63 ! 57. pc2ev.for
64 ! 58. pc3ev.for
65 ! 59. pspline.for
66 ! 60. r8akherm1.for
67 ! 61. r8akherm2.for
68 ! 62. r8akherm3.for
69 ! 63. r8bcspeval.for
70 ! 64. r8bcspgrid.for
71 ! 65. r8bcspline.for
72 ! 66. r8bcspvec.for
73 ! 67. r8bpsplinb.for
74 ! 68. r8bpspline.for
75 ! 69. r8cspeval.for
76 ! 70. r8cspline.for
77 ! 71. r8cubsplb.for
78 ! 72. r8dnherm1.for
79 ! 73. r8dnherm2.for
80 ! 74. r8dnherm3.for
81 ! 75. r8evbicub.for
82 ! 76. r8evintrp2d.for
83 ! 77. r8evintrp3d.for
84 ! 78. r8evspline.for
85 ! 79. r8evtricub.for
86 ! 80. r8f2test.for
87 ! 81. r8f3test.for
88 ! 82. r8genxpkg.for
89 ! 83. r8gridbicub.for
90 ! 84. r8gridherm1.for
91 ! 85. r8gridherm2.for
92 ! 86. r8gridherm3.for
93 ! 87. r8gridintrp2d.for
94 ! 88. r8gridintrp3d.for
95 ! 89. r8gridpc1.for
96 ! 90. r8gridpc2.for
97 ! 91. r8gridpc3.for
98 ! 92. r8gridspline.for
99 ! 93. r8gridtricub.for
100 ! 94. r8herm1ev.for
101 ! 95. r8herm2ev.for
102 ! 96. r8herm3ev.for
103 ! 97. r8mkbicub.for
104 ! 98. r8mkbicubw.for
105 ! 99. r8mkherm1.for
106 ! 100. r8mkherm2.for
107 ! 101. r8mkherm3.for
108 ! 102. r8mkintrp2d.for
109 ! 103. r8mkintrp3d.for
110 ! 104. r8mkspl2pb.for
111 ! 105. r8mkspl2p.for
112 ! 106. r8mkspl2zb.for
113 ! 107. r8mkspl2z.for
114 ! 108. r8mkspl3pb.for
115 ! 109. r8mkspl3zb.for
116 ! 110. r8mkspline.for
117 ! 111. r8mktricub.for
118 ! 112. r8mktricubw.for
119 ! 113. r8nspline.for
120 ! 114. r8pc1ev.for
121 ! 115. r8pc2ev.for
122 ! 116. r8pc3ev.for
123 ! 117. r8pspline.for
124 ! 118. r8seval2.for
125 ! 119. r8seval3.for
126 ! 120. r8seval.for
127 ! 121. r8speval.for
128 ! 122. r8spgrid.for
129 ! 123. r8splaan.for
130 ! 124. r8splbrk.for
131 ! 125. r8spleen.for
132 ! 126. r8splinck.for
133 ! 127. r8spline.for
134 ! 128. r8spvec.for
135 ! 129. r8tcspeval.for
136 ! 130. r8tcspgrid.for
137 ! 131. r8tcspline.for
138 ! 132. r8tcspvec.for
139 ! 133. r8tpsplinb.for
140 ! 134. r8tpspline.for
141 ! 135. r8util_bcherm1.for
142 ! 136. r8util_bcherm2.for
143 ! 137. r8util_bcherm3.for
144 ! 138. r8vecbicub.for
145 ! 139. r8vecherm1.for
146 ! 140. r8vecherm2.for
147 ! 141. r8vecherm3.for
148 ! 142. r8vecintrp2d.for
149 ! 143. r8vecintrp3d.for
150 ! 144. r8vecpc1.for
151 ! 145. r8vecpc2.for
152 ! 146. r8vecpc3.for
153 ! 147. r8vecspline.for
154 ! 148. r8vectricub.for
155 ! 149. r8v_spline.for
156 ! 150. r8xlookup.for
157 ! 151. r8zonfind.for
158 ! 152. seval2.for
159 ! 153. seval3.for
160 ! 154. seval.for
161 ! 155. speval.for
162 ! 156. spgrid.for
163 ! 157. splaan.for
164 ! 158. splbrk.for
165 ! 159. spleen.for
166 ! 160. splinck.for
167 ! 161. spline.for
168 ! 162. spvec.for
169 ! 163. tcspeval.for
170 ! 164. tcspgrid.for
171 ! 165. tcspline.for
172 ! 166. tcspvec.for
173 ! 167. tpsplinb.for
174 ! 168. tpspline.for
175 ! 169. util_bcherm1.for
176 ! 170. util_bcherm2.for
177 ! 171. util_bcherm3.for
178 ! 172. vecbicub.for
179 ! 173. vecherm1.for
180 ! 174. vecherm2.for
181 ! 175. vecherm3.for
182 ! 176. vecin2d_argchk.for
183 ! 177. vecin3d_argchk.for
184 ! 178. vecintrp2d.for
185 ! 179. vecintrp3d.for
186 ! 180. vecpc1.for
187 ! 181. vecpc2.for
188 ! 182. vecpc3.for
189 ! 183. vecspline.for
190 ! 184. vectricub.for
191 ! 185. v_spline.for
192 ! 186. xlookup.for
193 ! 187. zonfind.for
194 !
195  MODULE pspline_calls
196 !
197  ! block file generated by iface.for -- 25Apr2007
198 !==============================================================
199 ! iface -- generated interface body module: AKHERM1
200 !
201  INTERFACE akherm1
202 
203 !----------------------------------------------------------
204 ! iface: interface block generated segment for subroutine
205 ! AKHERM1 ... for meaning of arguments see the documentation
206 
207  SUBROUTINE akherm1(
208  > X,NX,FHERM,ILINX,IER)
209 
210  IMPLICIT NONE
211 
212 ! argument declarations
213  INTEGER NX
214  INTEGER ILINX
215  INTEGER IER
216  REAL X(NX)
217  REAL FHERM(0:1,NX)
218 
219  end subroutine akherm1
220 !
221  END INTERFACE
222 !==============================================================
223 ! iface -- generated interface body module: AKHERM1P
224 !
225  INTERFACE akherm1p
226 
227 !----------------------------------------------------------
228 ! iface: interface block generated segment for subroutine
229 ! AKHERM1P ... for meaning of arguments see the documentation
230 
231  SUBROUTINE akherm1p(
232  > X,NX,FHERM,ILINX,IPX,IER)
233 
234  IMPLICIT NONE
235 
236 ! argument declarations
237  INTEGER NX
238  INTEGER ILINX
239  INTEGER IPX
240  INTEGER IER
241  REAL X(NX)
242  REAL FHERM(0:1,NX)
243 
244  end subroutine akherm1p
245 !
246  END INTERFACE
247 !==============================================================
248 ! iface -- generated interface body module: AKHERM0
249 !
250  INTERFACE akherm0
251 
252 !----------------------------------------------------------
253 ! iface: interface block generated segment for subroutine
254 ! AKHERM0 ... for meaning of arguments see the documentation
255 
256  SUBROUTINE akherm0(
257  > CXMM,CXM,CXP,CXPP,WX,RESULT)
258 
259  IMPLICIT NONE
260 
261 ! argument declarations
262  REAL CXMM
263  REAL CXM
264  REAL CXP
265  REAL CXPP
266  REAL RESULT
267  REAL WX(2)
268 
269  end subroutine akherm0
270 !
271  END INTERFACE
272  ! block file generated by iface.for -- 25Apr2007
273 !==============================================================
274 ! iface -- generated interface body module: AKHERM2
275 !
276  INTERFACE akherm2
277 
278 !----------------------------------------------------------
279 ! iface: interface block generated segment for subroutine
280 ! AKHERM2 ... for meaning of arguments see the documentation
281 
282  SUBROUTINE akherm2(
283  > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)
284 
285  IMPLICIT NONE
286 
287 ! argument declarations
288  INTEGER NX
289  INTEGER NY
290  INTEGER NF2
291  INTEGER ILINX
292  INTEGER ILINY
293  INTEGER IER
294  REAL X(NX)
295  REAL Y(NY)
296  REAL FHERM(0:3,NF2,NY)
297 
298  end subroutine akherm2
299 !
300  END INTERFACE
301 !==============================================================
302 ! iface -- generated interface body module: AKHERM2P
303 !
304  INTERFACE akherm2p
305 
306 !----------------------------------------------------------
307 ! iface: interface block generated segment for subroutine
308 ! AKHERM2P ... for meaning of arguments see the documentation
309 
310  SUBROUTINE akherm2p(
311  > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IPX,IPY,IER)
312 
313  IMPLICIT NONE
314 
315 ! argument declarations
316  INTEGER NX
317  INTEGER NY
318  INTEGER NF2
319  INTEGER ILINX
320  INTEGER ILINY
321  INTEGER IPX
322  INTEGER IPY
323  INTEGER IER
324  REAL X(NX)
325  REAL Y(NY)
326  REAL FHERM(0:3,NF2,NY)
327 
328  end subroutine akherm2p
329 !
330  END INTERFACE
331  ! block file generated by iface.for -- 25Apr2007
332 !==============================================================
333 ! iface -- generated interface body module: AKHERM3
334 !
335  INTERFACE akherm3
336 
337 !----------------------------------------------------------
338 ! iface: interface block generated segment for subroutine
339 ! AKHERM3 ... for meaning of arguments see the documentation
340 
341  SUBROUTINE akherm3(
342  > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)
343 
344  IMPLICIT NONE
345 
346 ! argument declarations
347  INTEGER NX
348  INTEGER NY
349  INTEGER NZ
350  INTEGER NF2
351  INTEGER NF3
352  INTEGER ILINX
353  INTEGER ILINY
354  INTEGER ILINZ
355  INTEGER IER
356  REAL X(NX)
357  REAL Y(NY)
358  REAL Z(NZ)
359  REAL FHERM(0:7,NF2,NF3,NZ)
360 
361  end subroutine akherm3
362 !
363  END INTERFACE
364 !==============================================================
365 ! iface -- generated interface body module: AKHERM3P
366 !
367  INTERFACE akherm3p
368 
369 !----------------------------------------------------------
370 ! iface: interface block generated segment for subroutine
371 ! AKHERM3P ... for meaning of arguments see the documentation
372 
373  SUBROUTINE akherm3p(
374  > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IPX,IPY,IPZ,IER)
375 
376  IMPLICIT NONE
377 
378 ! argument declarations
379  INTEGER NX
380  INTEGER NY
381  INTEGER NZ
382  INTEGER NF2
383  INTEGER NF3
384  INTEGER ILINX
385  INTEGER ILINY
386  INTEGER ILINZ
387  INTEGER IPX
388  INTEGER IPY
389  INTEGER IPZ
390  INTEGER IER
391  REAL X(NX)
392  REAL Y(NY)
393  REAL Z(NZ)
394  REAL FHERM(0:7,NF2,NF3,NZ)
395 
396  end subroutine akherm3p
397 !
398  END INTERFACE
399  ! block file generated by iface.for -- 25Apr2007
400 !==============================================================
401 ! iface -- generated interface body module: BCSPEVAL
402 !
403  INTERFACE bcspeval
404 
405 !----------------------------------------------------------
406 ! iface: interface block generated segment for subroutine
407 ! BCSPEVAL ... for meaning of arguments see the documentation
408 
409  SUBROUTINE bcspeval(
410  > XGET,YGET,ISELECT,FVAL,X,NX,Y,NY,ILINX,ILINY,F,INF3,IER)
411 
412  IMPLICIT NONE
413 
414 ! argument declarations
415  REAL XGET
416  REAL YGET
417  INTEGER NX
418  INTEGER NY
419  INTEGER ILINX
420  INTEGER ILINY
421  INTEGER INF3
422  INTEGER IER
423  INTEGER ISELECT(6)
424  REAL FVAL(*)
425  REAL X(NX)
426  REAL Y(NY)
427  REAL F(4,4,INF3,NY)
428 
429  end subroutine bcspeval
430 !
431  END INTERFACE
432 !==============================================================
433 ! iface -- generated interface body module: BCSPEVXY
434 !
435  INTERFACE bcspevxy
436 
437 !----------------------------------------------------------
438 ! iface: interface block generated segment for subroutine
439 ! BCSPEVXY ... for meaning of arguments see the documentation
440 
441  SUBROUTINE bcspevxy(
442  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,DX,DY,IER)
443 
444  IMPLICIT NONE
445 
446 ! argument declarations
447  REAL XGET
448  REAL YGET
449  INTEGER NX
450  INTEGER NY
451  INTEGER ILINX
452  INTEGER ILINY
453  INTEGER I
454  INTEGER J
455  REAL DX
456  REAL DY
457  INTEGER IER
458  REAL X(NX)
459  REAL Y(NY)
460 
461  end subroutine bcspevxy
462 !
463  END INTERFACE
464 !==============================================================
465 ! iface -- generated interface body module: BCSPEVFN
466 !
467  INTERFACE bcspevfn
468 
469 !----------------------------------------------------------
470 ! iface: interface block generated segment for subroutine
471 ! BCSPEVFN ... for meaning of arguments see the documentation
472 
473  SUBROUTINE bcspevfn(
474  > ICT,IVEC,IVD,FVAL,IV,JV,DXV,DYV,F,INF3,NY)
475 
476  IMPLICIT NONE
477 
478 ! argument declarations
479  INTEGER IVEC
480  INTEGER IVD
481  INTEGER INF3
482  INTEGER NY
483  INTEGER ICT(6)
484  REAL FVAL(IVD,*)
485  INTEGER IV(IVEC)
486  INTEGER JV(IVEC)
487  REAL DXV(IVEC)
488  REAL DYV(IVEC)
489  REAL F(4,4,INF3,NY)
490 
491  end subroutine bcspevfn
492 !
493  END INTERFACE
494  ! block file generated by iface.for -- 25Apr2007
495 !==============================================================
496 ! iface -- generated interface body module: BCSPGRID
497 !
498  INTERFACE bcspgrid
499 
500 !----------------------------------------------------------
501 ! iface: interface block generated segment for subroutine
502 ! BCSPGRID ... for meaning of arguments see the documentation
503 
504  SUBROUTINE bcspgrid(
505  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
506  > INF3,IWARN,IER)
507 
508  IMPLICIT NONE
509 
510 ! argument declarations
511  INTEGER NX_NEW
512  INTEGER NY_NEW
513  INTEGER IF1
514  INTEGER NX
515  INTEGER NY
516  INTEGER INF3
517  INTEGER IWARN
518  INTEGER IER
519  REAL X_NEWGRID(NX_NEW)
520  REAL Y_NEWGRID(NY_NEW)
521  REAL F_NEW(IF1,NY_NEW)
522  REAL XPKG(NX,4)
523  REAL YPKG(NY,4)
524  REAL FSPL(4,4,INF3,NY)
525 
526  end subroutine bcspgrid
527 !
528  END INTERFACE
529  ! block file generated by iface.for -- 25Apr2007
530 !==============================================================
531 ! iface -- generated interface body module: BCSPLINE
532 !
533  INTERFACE bcspline
534 
535 !----------------------------------------------------------
536 ! iface: interface block generated segment for subroutine
537 ! BCSPLINE ... for meaning of arguments see the documentation
538 
539  SUBROUTINE bcspline(
540  > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,
541  > BCTHMIN,IBCTHMAX,BCTHMAX,WK,NWK,ILINX,ILINTH,IER)
542 
543  IMPLICIT NONE
544 
545 ! argument declarations
546  INTEGER INX
547  INTEGER INTH
548  INTEGER INF3
549  INTEGER IBCXMIN
550  INTEGER IBCXMAX
551  INTEGER IBCTHMIN
552  INTEGER IBCTHMAX
553  INTEGER NWK
554  INTEGER ILINX
555  INTEGER ILINTH
556  INTEGER IER
557  REAL X(INX)
558  REAL TH(INTH)
559  REAL FSPL(4,4,INF3,INTH)
560  REAL BCXMIN(*)
561  REAL BCXMAX(*)
562  REAL BCTHMIN(*)
563  REAL BCTHMAX(*)
564  REAL WK(NWK)
565 
566  end subroutine bcspline
567 !
568  END INTERFACE
569  ! block file generated by iface.for -- 25Apr2007
570 !==============================================================
571 ! iface -- generated interface body module: BCSPVEC
572 !
573  INTERFACE bcspvec
574 
575 !----------------------------------------------------------
576 ! iface: interface block generated segment for subroutine
577 ! BCSPVEC ... for meaning of arguments see the documentation
578 
579  SUBROUTINE bcspvec(
580  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF3,IWARN,IER)
581 
582  IMPLICIT NONE
583 
584 ! argument declarations
585  INTEGER IVEC
586  INTEGER IVD
587  INTEGER NX
588  INTEGER NY
589  INTEGER INF3
590  INTEGER IWARN
591  INTEGER IER
592  INTEGER ICT(6)
593  REAL XVEC(IVEC)
594  REAL YVEC(IVEC)
595  REAL FVAL(IVD,*)
596  REAL XPKG(NX,4)
597  REAL YPKG(NY,4)
598  REAL FSPL(4,4,INF3,NY)
599 
600  end subroutine bcspvec
601 !
602  END INTERFACE
603  ! block file generated by iface.for -- 25Apr2007
604 !==============================================================
605 ! iface -- generated interface body module: BPSPLINB
606 !
607  INTERFACE bpsplinb
608 
609 !----------------------------------------------------------
610 ! iface: interface block generated segment for subroutine
611 ! BPSPLINB ... for meaning of arguments see the documentation
612 
613  SUBROUTINE bpsplinb(
614  > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,NWK,
615  > ILINX,ILINTH,IER)
616 
617  IMPLICIT NONE
618 
619 ! argument declarations
620  INTEGER INX
621  INTEGER INTH
622  INTEGER INF3
623  INTEGER IBCXMIN
624  INTEGER IBCXMAX
625  INTEGER NWK
626  INTEGER ILINX
627  INTEGER ILINTH
628  INTEGER IER
629  REAL X(INX)
630  REAL TH(INTH)
631  REAL FSPL(4,4,INF3,INTH)
632  REAL BCXMIN(INTH)
633  REAL BCXMAX(INTH)
634  REAL WK(NWK)
635 
636  end subroutine BPSPLINB
637 !
638  END INTERFACE
639  ! block file generated by iface.for -- 25Apr2007
640 !==============================================================
641 ! iface -- generated interface body module: BPSPLINE
642 !
643  INTERFACE bpspline
644 
645 !----------------------------------------------------------
646 ! iface: interface block generated segment for subroutine
647 ! BPSPLINE ... for meaning of arguments see the documentation
648 
649  SUBROUTINE bpspline(
650  > X,INX,TH,INTH,FSPL,INF3,WK,NWK,ILINX,ILINTH,IER)
651 
652  IMPLICIT NONE
653 
654 ! argument declarations
655  INTEGER INX
656  INTEGER INTH
657  INTEGER INF3
658  INTEGER NWK
659  INTEGER ILINX
660  INTEGER ILINTH
661  INTEGER IER
662  REAL X(INX)
663  REAL TH(INTH)
664  REAL FSPL(4,4,INF3,INTH)
665  REAL WK(NWK)
666 
667  end subroutine bpspline
668 !
669  END INTERFACE
670  ! block file generated by iface.for -- 25Apr2007
671 !==============================================================
672 ! iface -- generated interface body module: CSPEVAL
673 !
674  INTERFACE cspeval
675 
676 !----------------------------------------------------------
677 ! iface: interface block generated segment for subroutine
678 ! CSPEVAL ... for meaning of arguments see the documentation
679 
680  SUBROUTINE cspeval(
681  > XGET,ISELECT,FVAL,X,NX,ILINX,F,IER)
682 
683  IMPLICIT NONE
684 
685 ! argument declarations
686  REAL XGET
687  INTEGER NX
688  INTEGER ILINX
689  INTEGER IER
690  INTEGER ISELECT(3)
691  REAL FVAL(3)
692  REAL X(NX)
693  REAL F(4,NX)
694 
695  end subroutine CSPEVAL
696 !
697  END INTERFACE
698 !==============================================================
699 ! iface -- generated interface body module: CSPEVX
700 !
701  INTERFACE cspevx
702 
703 !----------------------------------------------------------
704 ! iface: interface block generated segment for subroutine
705 ! CSPEVX ... for meaning of arguments see the documentation
706 
707  SUBROUTINE cspevx(
708  > XGET,X,NX,ILINX,I,DX,IER)
709 
710  IMPLICIT NONE
711 
712 ! argument declarations
713  REAL XGET
714  INTEGER NX
715  INTEGER ILINX
716  INTEGER I
717  REAL DX
718  INTEGER IER
719  REAL X(NX)
720 
721  end subroutine cspevx
722 !
723  END INTERFACE
724 !==============================================================
725 ! iface -- generated interface body module: CSPEVFN
726 !
727  INTERFACE cspevfn
728 
729 !----------------------------------------------------------
730 ! iface: interface block generated segment for subroutine
731 ! CSPEVFN ... for meaning of arguments see the documentation
732 
733  SUBROUTINE cspevfn(
734  > ICT,IVEC,IVD,FVAL,IV,DXV,F,NX)
735 
736  IMPLICIT NONE
737 
738 ! argument declarations
739  INTEGER IVEC
740  INTEGER IVD
741  INTEGER NX
742  INTEGER ICT(3)
743  REAL FVAL(IVD,*)
744  INTEGER IV(IVEC)
745  REAL DXV(IVEC)
746  REAL F(4,NX)
747 
748  end subroutine cspevfn
749 !
750  END INTERFACE
751  ! block file generated by iface.for -- 25Apr2007
752 !==============================================================
753 ! iface -- generated interface body module: CSPLINE
754 !
755  INTERFACE cspline
756 
757 !----------------------------------------------------------
758 ! iface: interface block generated segment for subroutine
759 ! CSPLINE ... for meaning of arguments see the documentation
760 
761  SUBROUTINE cspline(
762  > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,IWK,ILINX,IER)
763 
764  IMPLICIT NONE
765 
766 ! argument declarations
767  INTEGER NX
768  INTEGER IBCXMIN
769  REAL BCXMIN
770  INTEGER IBCXMAX
771  REAL BCXMAX
772  INTEGER IWK
773  INTEGER ILINX
774  INTEGER IER
775  REAL X(NX)
776  REAL FSPL(4,NX)
777  REAL WK(IWK)
778 
779  end subroutine CSPLINE
780 !
781  END INTERFACE
782  ! block file generated by iface.for -- 25Apr2007
783 !==============================================================
784 ! iface -- generated interface body module: CUBSPLB
785 !
786  INTERFACE cubsplb
787 
788 !----------------------------------------------------------
789 ! iface: interface block generated segment for subroutine
790 ! CUBSPLB ... for meaning of arguments see the documentation
791 
792  SUBROUTINE cubsplb(
793  > TAU,C,N,IBCBEG,IBCEND)
794 
795  IMPLICIT NONE
796 
797 ! argument declarations
798  INTEGER N
799  INTEGER IBCBEG
800  INTEGER IBCEND
801  REAL TAU(N)
802  REAL C(4,N)
803 
804  end subroutine cubsplb
805 !
806  END INTERFACE
807  ! block file generated by iface.for -- 25Apr2007
808 !==============================================================
809 ! iface -- generated interface body module: DNHERM1
810 !
811  INTERFACE dnherm1
812 
813 !----------------------------------------------------------
814 ! iface: interface block generated segment for subroutine
815 ! DNHERM1 ... for meaning of arguments see the documentation
816 
817  SUBROUTINE dnherm1(
818  > X,NX,FHERM,ILINX,IER)
819 
820  IMPLICIT NONE
821 
822 ! argument declarations
823  INTEGER NX
824  INTEGER ILINX
825  INTEGER IER
826  REAL X(NX)
827  REAL FHERM(0:1,NX)
828 
829  end subroutine dnherm1
830 !
831  END INTERFACE
832  ! block file generated by iface.for -- 25Apr2007
833 !==============================================================
834 ! iface -- generated interface body module: DNHERM2
835 !
836  INTERFACE dnherm2
837 
838 !----------------------------------------------------------
839 ! iface: interface block generated segment for subroutine
840 ! DNHERM2 ... for meaning of arguments see the documentation
841 
842  SUBROUTINE dnherm2(
843  > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)
844 
845  IMPLICIT NONE
846 
847 ! argument declarations
848  INTEGER NX
849  INTEGER NY
850  INTEGER NF2
851  INTEGER ILINX
852  INTEGER ILINY
853  INTEGER IER
854  REAL X(NX)
855  REAL Y(NY)
856  REAL FHERM(0:3,NF2,NY)
857 
858  end subroutine DNHERM2
859 !
860  END INTERFACE
861  ! block file generated by iface.for -- 25Apr2007
862 !==============================================================
863 ! iface -- generated interface body module: DNHERM3
864 !
865  INTERFACE dnherm3
866 
867 !----------------------------------------------------------
868 ! iface: interface block generated segment for subroutine
869 ! DNHERM3 ... for meaning of arguments see the documentation
870 
871  SUBROUTINE dnherm3(
872  > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)
873 
874  IMPLICIT NONE
875 
876 ! argument declarations
877  INTEGER NX
878  INTEGER NY
879  INTEGER NZ
880  INTEGER NF2
881  INTEGER NF3
882  INTEGER ILINX
883  INTEGER ILINY
884  INTEGER ILINZ
885  INTEGER IER
886  REAL X(NX)
887  REAL Y(NY)
888  REAL Z(NZ)
889  REAL FHERM(0:7,NF2,NF3,NZ)
890 
891  end subroutine dnherm3
892 !
893  END INTERFACE
894  ! block file generated by iface.for -- 25Apr2007
895 !==============================================================
896 ! iface -- generated interface body module: EVBICUB
897 !
898  INTERFACE evbicub
899 
900 !----------------------------------------------------------
901 ! iface: interface block generated segment for subroutine
902 ! EVBICUB ... for meaning of arguments see the documentation
903 
904  SUBROUTINE evbicub(
905  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
906 
907  IMPLICIT NONE
908 
909 ! argument declarations
910  REAL XGET
911  REAL YGET
912  INTEGER NX
913  INTEGER NY
914  INTEGER ILINX
915  INTEGER ILINY
916  INTEGER INF2
917  INTEGER IER
918  REAL X(NX)
919  REAL Y(NY)
920  REAL F(0:3,INF2,NY)
921  INTEGER ICT(6)
922  REAL FVAL(*)
923 
924  end subroutine EVBICUB
925 !
926  END INTERFACE
927 !==============================================================
928 ! iface -- generated interface body module: FVBICUB
929 !
930  INTERFACE fvbicub
931 
932 !----------------------------------------------------------
933 ! iface: interface block generated segment for subroutine
934 ! FVBICUB ... for meaning of arguments see the documentation
935 
936  SUBROUTINE fvbicub(
937  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
938  > NY)
939 
940  IMPLICIT NONE
941 
942 ! argument declarations
943  INTEGER IVEC
944  INTEGER IVECD
945  INTEGER INF2
946  INTEGER NY
947  INTEGER ICT(6)
948  REAL FVAL(IVECD,*)
949  INTEGER II(IVEC)
950  INTEGER JJ(IVEC)
951  REAL XPARAM(IVEC)
952  REAL YPARAM(IVEC)
953  REAL HX(IVEC)
954  REAL HXI(IVEC)
955  REAL HY(IVEC)
956  REAL HYI(IVEC)
957  REAL FIN(0:3,INF2,NY)
958 
959  end subroutine fvbicub
960 !
961  END INTERFACE
962 !==============================================================
963 ! iface -- generated interface body module: FVBICUBX
964 !
965  INTERFACE fvbicubx
966 
967 !----------------------------------------------------------
968 ! iface: interface block generated segment for subroutine
969 ! FVBICUBX ... for meaning of arguments see the documentation
970 
971  SUBROUTINE fvbicubx(
972  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
973  > NY)
974 
975  IMPLICIT NONE
976 
977 ! argument declarations
978  INTEGER IVEC
979  INTEGER IVECD
980  INTEGER JJ
981  REAL YPARAM
982  REAL HY
983  REAL HYI
984  INTEGER INF2
985  INTEGER NY
986  INTEGER ICT(6)
987  REAL FVAL(IVECD,*)
988  INTEGER II(IVEC)
989  REAL XPARAM(IVEC)
990  REAL HX(IVEC)
991  REAL HXI(IVEC)
992  REAL FIN(0:3,INF2,NY)
993 
994  end subroutine FVBICUBX
995 !
996  END INTERFACE
997  ! block file generated by iface.for -- 25Apr2007
998 !==============================================================
999 ! iface -- generated interface body module: EVINTRP2D
1000 !
1001  INTERFACE evintrp2d
1002 
1003 !----------------------------------------------------------
1004 ! iface: interface block generated segment for subroutine
1005 ! EVINTRP2D ... for meaning of arguments see the documentation
1006 
1007  SUBROUTINE evintrp2d(
1008  > XGET,YGET,X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,ICT,FVAL,IER)
1009 
1010  IMPLICIT NONE
1011 
1012 ! argument declarations
1013  REAL XGET
1014  REAL YGET
1015  INTEGER NX
1016  INTEGER NY
1017  INTEGER ICOEFF
1018  INTEGER IXDIM
1019  INTEGER IYDIM
1020  INTEGER IER
1021  REAL X(NX)
1022  REAL Y(NY)
1023  INTEGER JSPLINE(2)
1024  REAL F(ICOEFF,IXDIM,IYDIM)
1025  INTEGER ICT(6)
1026  REAL FVAL(6)
1027 
1028  end subroutine evintrp2d
1029 !
1030  END INTERFACE
1031 !==============================================================
1032 ! iface -- generated interface body module: FVINTRP2D
1033 !
1034  INTERFACE fvintrp2d
1035 
1036 !----------------------------------------------------------
1037 ! iface: interface block generated segment for subroutine
1038 ! FVINTRP2D ... for meaning of arguments see the documentation
1039 
1040  SUBROUTINE fvintrp2d(
1041  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,JSPLINE,
1042  > FIN,ICOEFF,IXDIM,IYDIM)
1043 
1044  IMPLICIT NONE
1045 
1046 ! argument declarations
1047  INTEGER IVEC
1048  INTEGER IVECD
1049  INTEGER ICOEFF
1050  INTEGER IXDIM
1051  INTEGER IYDIM
1052  INTEGER ICT(6)
1053  REAL FVAL(IVECD,6)
1054  INTEGER II(IVEC)
1055  INTEGER JJ(IVEC)
1056  REAL XPARAM(IVEC)
1057  REAL YPARAM(IVEC)
1058  REAL HX(IVEC)
1059  REAL HXI(IVEC)
1060  REAL HY(IVEC)
1061  REAL HYI(IVEC)
1062  INTEGER JSPLINE(2)
1063  REAL FIN(ICOEFF,IXDIM,IYDIM)
1064 
1065  end subroutine fvintrp2d
1066 !
1067  END INTERFACE
1068  ! block file generated by iface.for -- 25Apr2007
1069 !==============================================================
1070 ! iface -- generated interface body module: EVINTRP3D
1071 !
1072  INTERFACE evintrp3d
1073 
1074 !----------------------------------------------------------
1075 ! iface: interface block generated segment for subroutine
1076 ! EVINTRP3D ... for meaning of arguments see the documentation
1077 
1078  SUBROUTINE evintrp3d(
1079  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,
1080  > ICT,FVAL,IER)
1081 
1082  IMPLICIT NONE
1083 
1084 ! argument declarations
1085  REAL XGET
1086  REAL YGET
1087  REAL ZGET
1088  INTEGER NX
1089  INTEGER NY
1090  INTEGER NZ
1091  INTEGER ICOEFF
1092  INTEGER IXDIM
1093  INTEGER IYDIM
1094  INTEGER IZDIM
1095  INTEGER IER
1096  REAL X(NX)
1097  REAL Y(NY)
1098  REAL Z(NZ)
1099  INTEGER JSPLINE(3)
1100  REAL F(ICOEFF,IXDIM,IYDIM,IZDIM)
1101  INTEGER ICT(10)
1102  REAL FVAL(10)
1103 
1104  end subroutine evintrp3d
1105 !
1106  END INTERFACE
1107 !==============================================================
1108 ! iface -- generated interface body module: FVINTRP3D
1109 !
1110  INTERFACE fvintrp3d
1111 
1112 !----------------------------------------------------------
1113 ! iface: interface block generated segment for subroutine
1114 ! FVINTRP3D ... for meaning of arguments see the documentation
1115 
1116  SUBROUTINE fvintrp3d(
1117  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
1118  > HZ,HZI,JSPLINE,FIN,ICOEFF,IXDIM,IYDIM,IZDIM)
1119 
1120  IMPLICIT NONE
1121 
1122 ! argument declarations
1123  INTEGER IVEC
1124  INTEGER IVECD
1125  INTEGER ICOEFF
1126  INTEGER IXDIM
1127  INTEGER IYDIM
1128  INTEGER IZDIM
1129  INTEGER ICT(10)
1130  REAL FVAL(IVECD,10)
1131  INTEGER II(IVEC)
1132  INTEGER JJ(IVEC)
1133  INTEGER KK(IVEC)
1134  REAL XPARAM(IVEC)
1135  REAL YPARAM(IVEC)
1136  REAL ZPARAM(IVEC)
1137  REAL HX(IVEC)
1138  REAL HXI(IVEC)
1139  REAL HY(IVEC)
1140  REAL HYI(IVEC)
1141  REAL HZ(IVEC)
1142  REAL HZI(IVEC)
1143  INTEGER JSPLINE(3)
1144  REAL FIN(ICOEFF,IXDIM,IYDIM,IZDIM)
1145 
1146  end subroutine FVINTRP3D
1147 !
1148  END INTERFACE
1149  ! block file generated by iface.for -- 25Apr2007
1150 !==============================================================
1151 ! iface -- generated interface body module: EVSPLINE
1152 !
1153  INTERFACE evspline
1154 
1155 !----------------------------------------------------------
1156 ! iface: interface block generated segment for subroutine
1157 ! EVSPLINE ... for meaning of arguments see the documentation
1158 
1159  SUBROUTINE evspline(
1160  > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
1161 
1162  IMPLICIT NONE
1163 
1164 ! argument declarations
1165  REAL XGET
1166  INTEGER NX
1167  INTEGER ILINX
1168  INTEGER IER
1169  REAL X(NX)
1170  REAL F(0:1,NX)
1171  INTEGER ICT(3)
1172  REAL FVAL(*)
1173 
1174  end subroutine evspline
1175 !
1176  END INTERFACE
1177 !==============================================================
1178 ! iface -- generated interface body module: FVSPLINE
1179 !
1180  INTERFACE fvspline
1181 
1182 !----------------------------------------------------------
1183 ! iface: interface block generated segment for subroutine
1184 ! FVSPLINE ... for meaning of arguments see the documentation
1185 
1186  SUBROUTINE fvspline(
1187  > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
1188 
1189  IMPLICIT NONE
1190 
1191 ! argument declarations
1192  INTEGER IVEC
1193  INTEGER IVECD
1194  INTEGER NX
1195  INTEGER ICT(3)
1196  REAL FVAL(IVECD,*)
1197  INTEGER II(IVEC)
1198  REAL XPARAM(IVEC)
1199  REAL HX(IVEC)
1200  REAL HXI(IVEC)
1201  REAL FIN(0:1,NX)
1202 
1203  end subroutine fvspline
1204 !
1205  END INTERFACE
1206  ! block file generated by iface.for -- 25Apr2007
1207 !==============================================================
1208 ! iface -- generated interface body module: EVTRICUB
1209 !
1210  INTERFACE evtricub
1211 
1212 !----------------------------------------------------------
1213 ! iface: interface block generated segment for subroutine
1214 ! EVTRICUB ... for meaning of arguments see the documentation
1215 
1216  SUBROUTINE evtricub(
1217  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
1218  > FVAL,IER)
1219 
1220  IMPLICIT NONE
1221 
1222 ! argument declarations
1223  REAL XGET
1224  REAL YGET
1225  REAL ZGET
1226  INTEGER NX
1227  INTEGER NY
1228  INTEGER NZ
1229  INTEGER ILINX
1230  INTEGER ILINY
1231  INTEGER ILINZ
1232  INTEGER INF2
1233  INTEGER INF3
1234  INTEGER IER
1235  REAL X(NX)
1236  REAL Y(NY)
1237  REAL Z(NZ)
1238  REAL F(0:7,INF2,INF3,NZ)
1239  INTEGER ICT(10)
1240  REAL FVAL(*)
1241 
1242  end subroutine evtricub
1243 !
1244  END INTERFACE
1245 !==============================================================
1246 ! iface -- generated interface body module: FVTRICUB
1247 !
1248  INTERFACE fvtricub
1249 
1250 !----------------------------------------------------------
1251 ! iface: interface block generated segment for subroutine
1252 ! FVTRICUB ... for meaning of arguments see the documentation
1253 
1254  SUBROUTINE fvtricub(
1255  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
1256  > HZ,HZI,FIN,INF2,INF3,NZ)
1257 
1258  IMPLICIT NONE
1259 
1260 ! argument declarations
1261  INTEGER IVEC
1262  INTEGER IVECD
1263  INTEGER INF2
1264  INTEGER INF3
1265  INTEGER NZ
1266  INTEGER ICT(10)
1267  REAL FVAL(IVECD,*)
1268  INTEGER II(IVEC)
1269  INTEGER JJ(IVEC)
1270  INTEGER KK(IVEC)
1271  REAL XPARAM(IVEC)
1272  REAL YPARAM(IVEC)
1273  REAL ZPARAM(IVEC)
1274  REAL HX(IVEC)
1275  REAL HXI(IVEC)
1276  REAL HY(IVEC)
1277  REAL HYI(IVEC)
1278  REAL HZ(IVEC)
1279  REAL HZI(IVEC)
1280  REAL FIN(0:7,INF2,INF3,NZ)
1281 
1282  end subroutine fvtricub
1283 !
1284  END INTERFACE
1285 !==============================================================
1286 ! iface -- generated interface body module: FVTRICUBX
1287 !
1288  INTERFACE fvtricubx
1289 
1290 !----------------------------------------------------------
1291 ! iface: interface block generated segment for subroutine
1292 ! FVTRICUBX ... for meaning of arguments see the documentation
1293 
1294  SUBROUTINE fvtricubx(
1295  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
1296  > HZ,HZI,FIN,INF2,INF3,NZ)
1297 
1298  IMPLICIT NONE
1299 
1300 ! argument declarations
1301  INTEGER IVEC
1302  INTEGER IVECD
1303  INTEGER JJ
1304  INTEGER KK
1305  REAL YPARAM
1306  REAL ZPARAM
1307  REAL HY
1308  REAL HYI
1309  REAL HZ
1310  REAL HZI
1311  INTEGER INF2
1312  INTEGER INF3
1313  INTEGER NZ
1314  INTEGER ICT(10)
1315  REAL FVAL(IVECD,*)
1316  INTEGER II(IVEC)
1317  REAL XPARAM(IVEC)
1318  REAL HX(IVEC)
1319  REAL HXI(IVEC)
1320  REAL FIN(0:7,INF2,INF3,NZ)
1321 
1322  end subroutine fvtricubx
1323 !
1324  END INTERFACE
1325  ! block file generated by iface.for -- 25Apr2007
1326 !==============================================================
1327 ! iface -- generated interface body module: F2TEST
1328 !
1329  INTERFACE f2test
1330 
1331 !----------------------------------------------------------
1332 ! iface: interface block generated segment for subroutine
1333 ! F2TEST ... for meaning of arguments see the documentation
1334 
1335  SUBROUTINE f2test(
1336  > FUN1,FUN2,INUMP,XMIN,XMAX,YMIN,YMAX,NAME,NAMEX,NAMEY)
1337 
1338  IMPLICIT NONE
1339 
1340 ! argument declarations
1341  EXTERNAL fun1
1342  EXTERNAL fun2
1343  INTEGER INUMP
1344  REAL XMIN
1345  REAL XMAX
1346  REAL YMIN
1347  REAL YMAX
1348  CHARACTER*(*) NAME
1349  CHARACTER*(*) NAMEX
1350  CHARACTER*(*) NAMEY
1351 
1352  end subroutine f2test
1353 !
1354  END INTERFACE
1355  ! block file generated by iface.for -- 25Apr2007
1356 !==============================================================
1357 ! iface -- generated interface body module: F3TEST
1358 !
1359  INTERFACE f3test
1360 
1361 !----------------------------------------------------------
1362 ! iface: interface block generated segment for subroutine
1363 ! F3TEST ... for meaning of arguments see the documentation
1364 
1365  SUBROUTINE f3test(
1366  > FUN1,FUN2,ID,INUMP,XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,NAME,NAMEX,
1367  > NAMEY,NAMEZ)
1368 
1369  IMPLICIT NONE
1370 
1371 ! argument declarations
1372  EXTERNAL fun1
1373  EXTERNAL fun2
1374  INTEGER ID
1375  INTEGER INUMP
1376  REAL XMIN
1377  REAL XMAX
1378  REAL YMIN
1379  REAL YMAX
1380  REAL ZMIN
1381  REAL ZMAX
1382  CHARACTER*(*) NAME
1383  CHARACTER*(*) NAMEX
1384  CHARACTER*(*) NAMEY
1385  CHARACTER*(*) NAMEZ
1386 
1387  end subroutine f3test
1388 !
1389  END INTERFACE
1390  ! block file generated by iface.for -- 25Apr2007
1391 !==============================================================
1392 ! iface -- generated interface body module: GENXPKG
1393 !
1394  INTERFACE genxpkg
1395 
1396 !----------------------------------------------------------
1397 ! iface: interface block generated segment for subroutine
1398 ! GENXPKG ... for meaning of arguments see the documentation
1399 
1400  SUBROUTINE genxpkg(
1401  > NX,X,XPKG,IPER,IMSG,ITOL,ZTOL,IALG,IER)
1402 
1403  IMPLICIT NONE
1404 
1405 ! argument declarations
1406  INTEGER NX
1407  INTEGER IPER
1408  INTEGER IMSG
1409  INTEGER ITOL
1410  REAL ZTOL
1411  INTEGER IALG
1412  INTEGER IER
1413  REAL X(NX)
1414  REAL XPKG(NX,4)
1415 
1416  end subroutine genxpkg
1417 !
1418  END INTERFACE
1419  ! block file generated by iface.for -- 25Apr2007
1420 !==============================================================
1421 ! iface -- generated interface body module: GRIDBICUB
1422 !
1423  INTERFACE gridbicub
1424 
1425 !----------------------------------------------------------
1426 ! iface: interface block generated segment for subroutine
1427 ! GRIDBICUB ... for meaning of arguments see the documentation
1428 
1429  SUBROUTINE gridbicub(
1430  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
1431  > INF3,IWARN,IER)
1432 
1433  IMPLICIT NONE
1434 
1435 ! argument declarations
1436  INTEGER NX_NEW
1437  INTEGER NY_NEW
1438  INTEGER IF1
1439  INTEGER NX
1440  INTEGER NY
1441  INTEGER INF3
1442  INTEGER IWARN
1443  INTEGER IER
1444  REAL X_NEWGRID(NX_NEW)
1445  REAL Y_NEWGRID(NY_NEW)
1446  REAL F_NEW(IF1,NY_NEW)
1447  REAL XPKG(NX,4)
1448  REAL YPKG(NY,4)
1449  REAL FSPL(4,INF3,NY)
1450 
1451  end subroutine GRIDBICUB
1452 !
1453  END INTERFACE
1454  ! block file generated by iface.for -- 25Apr2007
1455 !==============================================================
1456 ! iface -- generated interface body module: GRIDHERM1
1457 !
1458  INTERFACE gridherm1
1459 
1460 !----------------------------------------------------------
1461 ! iface: interface block generated segment for subroutine
1462 ! GRIDHERM1 ... for meaning of arguments see the documentation
1463 
1464  SUBROUTINE gridherm1(
1465  > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
1466 
1467  IMPLICIT NONE
1468 
1469 ! argument declarations
1470  INTEGER NX_NEW
1471  INTEGER NX
1472  INTEGER IWARN
1473  INTEGER IER
1474  REAL X_NEWGRID(NX_NEW)
1475  REAL F_NEW(NX_NEW)
1476  REAL XPKG(NX,4)
1477  REAL FSPL(NX,2)
1478 
1479  end subroutine GRIDHERM1
1480 !
1481  END INTERFACE
1482  ! block file generated by iface.for -- 25Apr2007
1483 !==============================================================
1484 ! iface -- generated interface body module: GRIDHERM2
1485 !
1486  INTERFACE gridherm2
1487 
1488 !----------------------------------------------------------
1489 ! iface: interface block generated segment for subroutine
1490 ! GRIDHERM2 ... for meaning of arguments see the documentation
1491 
1492  SUBROUTINE gridherm2(
1493  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
1494  > INF2,IWARN,IER)
1495 
1496  IMPLICIT NONE
1497 
1498 ! argument declarations
1499  INTEGER NX_NEW
1500  INTEGER NY_NEW
1501  INTEGER IF1
1502  INTEGER NX
1503  INTEGER NY
1504  INTEGER INF2
1505  INTEGER IWARN
1506  INTEGER IER
1507  REAL X_NEWGRID(NX_NEW)
1508  REAL Y_NEWGRID(NY_NEW)
1509  REAL F_NEW(IF1,NY_NEW)
1510  REAL XPKG(NX,4)
1511  REAL YPKG(NY,4)
1512  REAL FSPL(0:3,INF2,NY)
1513 
1514  end subroutine gridherm2
1515 !
1516  END INTERFACE
1517  ! block file generated by iface.for -- 25Apr2007
1518 !==============================================================
1519 ! iface -- generated interface body module: GRIDHERM3
1520 !
1521  INTERFACE gridherm3
1522 
1523 !----------------------------------------------------------
1524 ! iface: interface block generated segment for subroutine
1525 ! GRIDHERM3 ... for meaning of arguments see the documentation
1526 
1527  SUBROUTINE gridherm3(
1528  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
1529  > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)
1530 
1531  IMPLICIT NONE
1532 
1533 ! argument declarations
1534  INTEGER NX_NEW
1535  INTEGER NY_NEW
1536  INTEGER NZ_NEW
1537  INTEGER IF1
1538  INTEGER IF2
1539  INTEGER NX
1540  INTEGER NY
1541  INTEGER NZ
1542  INTEGER INF2
1543  INTEGER INF3
1544  INTEGER IWARN
1545  INTEGER IER
1546  REAL X_NEWGRID(NX_NEW)
1547  REAL Y_NEWGRID(NY_NEW)
1548  REAL Z_NEWGRID(NZ_NEW)
1549  REAL F_NEW(IF1,IF2,NZ_NEW)
1550  REAL XPKG(NX,4)
1551  REAL YPKG(NY,4)
1552  REAL ZPKG(NZ,4)
1553  REAL FSPL(0:7,INF2,INF3,NZ)
1554 
1555  end subroutine GRIDHERM3
1556 !
1557  END INTERFACE
1558  ! block file generated by iface.for -- 25Apr2007
1559 !==============================================================
1560 ! iface -- generated interface body module: GRIDINTRP2D
1561 !
1562  INTERFACE gridintrp2d
1563 
1564 !----------------------------------------------------------
1565 ! iface: interface block generated segment for subroutine
1566 ! GRIDINTRP2D ... for meaning of arguments see the documentation
1567 
1568  SUBROUTINE gridintrp2d(
1569  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,
1570  > JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IWARN,IER)
1571 
1572  IMPLICIT NONE
1573 
1574 ! argument declarations
1575  INTEGER NX_NEW
1576  INTEGER NY_NEW
1577  INTEGER IF1
1578  INTEGER NX
1579  INTEGER NY
1580  INTEGER ICOEFF
1581  INTEGER IXDIM
1582  INTEGER IYDIM
1583  INTEGER IWARN
1584  INTEGER IER
1585  REAL X_NEWGRID(NX_NEW)
1586  REAL Y_NEWGRID(NY_NEW)
1587  REAL F_NEW(IF1,NY_NEW)
1588  REAL XPKG(NX,4)
1589  REAL YPKG(NY,4)
1590  INTEGER JSPLINE(2)
1591  REAL FSPL(ICOEFF,IXDIM,IYDIM)
1592 
1593  end subroutine gridintrp2d
1594 !
1595  END INTERFACE
1596  ! block file generated by iface.for -- 25Apr2007
1597 !==============================================================
1598 ! iface -- generated interface body module: GRIDINTRP3D
1599 !
1600  INTERFACE gridintrp3d
1601 
1602 !----------------------------------------------------------
1603 ! iface: interface block generated segment for subroutine
1604 ! GRIDINTRP3D ... for meaning of arguments see the documentation
1605 
1606  SUBROUTINE gridintrp3d(
1607  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
1608  > NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,
1609  > IWARN,IER)
1610 
1611  IMPLICIT NONE
1612 
1613 ! argument declarations
1614  INTEGER NX_NEW
1615  INTEGER NY_NEW
1616  INTEGER NZ_NEW
1617  INTEGER IF1
1618  INTEGER IF2
1619  INTEGER NX
1620  INTEGER NY
1621  INTEGER NZ
1622  INTEGER ICOEFF
1623  INTEGER IXDIM
1624  INTEGER IYDIM
1625  INTEGER IZDIM
1626  INTEGER IWARN
1627  INTEGER IER
1628  REAL X_NEWGRID(NX_NEW)
1629  REAL Y_NEWGRID(NY_NEW)
1630  REAL Z_NEWGRID(NZ_NEW)
1631  REAL F_NEW(IF1,IF2,NZ_NEW)
1632  REAL XPKG(NX,4)
1633  REAL YPKG(NY,4)
1634  REAL ZPKG(NZ,4)
1635  INTEGER JSPLINE(3)
1636  REAL FSPL(ICOEFF,IXDIM,IYDIM,IZDIM)
1637 
1638  end subroutine gridintrp3d
1639 !
1640  END INTERFACE
1641  ! block file generated by iface.for -- 25Apr2007
1642 !==============================================================
1643 ! iface -- generated interface body module: GRIDPC1
1644 !
1645  INTERFACE gridpc1
1646 
1647 !----------------------------------------------------------
1648 ! iface: interface block generated segment for subroutine
1649 ! GRIDPC1 ... for meaning of arguments see the documentation
1650 
1651  SUBROUTINE gridpc1(
1652  > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
1653 
1654  IMPLICIT NONE
1655 
1656 ! argument declarations
1657  INTEGER NX_NEW
1658  INTEGER NX
1659  INTEGER IWARN
1660  INTEGER IER
1661  REAL X_NEWGRID(NX_NEW)
1662  REAL F_NEW(NX_NEW)
1663  REAL XPKG(NX,4)
1664  REAL FSPL(NX)
1665 
1666  end subroutine GRIDPC1
1667 !
1668  END INTERFACE
1669  ! block file generated by iface.for -- 25Apr2007
1670 !==============================================================
1671 ! iface -- generated interface body module: GRIDPC2
1672 !
1673  INTERFACE gridpc2
1674 
1675 !----------------------------------------------------------
1676 ! iface: interface block generated segment for subroutine
1677 ! GRIDPC2 ... for meaning of arguments see the documentation
1678 
1679  SUBROUTINE gridpc2(
1680  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
1681  > INF1,IWARN,IER)
1682 
1683  IMPLICIT NONE
1684 
1685 ! argument declarations
1686  INTEGER NX_NEW
1687  INTEGER NY_NEW
1688  INTEGER IF1
1689  INTEGER NX
1690  INTEGER NY
1691  INTEGER INF1
1692  INTEGER IWARN
1693  INTEGER IER
1694  REAL X_NEWGRID(NX_NEW)
1695  REAL Y_NEWGRID(NY_NEW)
1696  REAL F_NEW(IF1,NY_NEW)
1697  REAL XPKG(NX,4)
1698  REAL YPKG(NY,4)
1699  REAL FSPL(INF1,NY)
1700 
1701  end subroutine gridpc2
1702 !
1703  END INTERFACE
1704  ! block file generated by iface.for -- 25Apr2007
1705 !==============================================================
1706 ! iface -- generated interface body module: GRIDPC3
1707 !
1708  INTERFACE gridpc3
1709 
1710 !----------------------------------------------------------
1711 ! iface: interface block generated segment for subroutine
1712 ! GRIDPC3 ... for meaning of arguments see the documentation
1713 
1714  SUBROUTINE gridpc3(
1715  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
1716  > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)
1717 
1718  IMPLICIT NONE
1719 
1720 ! argument declarations
1721  INTEGER NX_NEW
1722  INTEGER NY_NEW
1723  INTEGER NZ_NEW
1724  INTEGER IF1
1725  INTEGER IF2
1726  INTEGER NX
1727  INTEGER NY
1728  INTEGER NZ
1729  INTEGER INF2
1730  INTEGER INF3
1731  INTEGER IWARN
1732  INTEGER IER
1733  REAL X_NEWGRID(NX_NEW)
1734  REAL Y_NEWGRID(NY_NEW)
1735  REAL Z_NEWGRID(NZ_NEW)
1736  REAL F_NEW(IF1,IF2,NZ_NEW)
1737  REAL XPKG(NX,4)
1738  REAL YPKG(NY,4)
1739  REAL ZPKG(NZ,4)
1740  REAL FSPL(INF2,INF3,NZ)
1741 
1742  end subroutine GRIDPC3
1743 !
1744  END INTERFACE
1745  ! block file generated by iface.for -- 25Apr2007
1746 !==============================================================
1747 ! iface -- generated interface body module: GRIDSPLINE
1748 !
1749  INTERFACE gridspline
1750 
1751 !----------------------------------------------------------
1752 ! iface: interface block generated segment for subroutine
1753 ! GRIDSPLINE ... for meaning of arguments see the documentation
1754 
1755  SUBROUTINE gridspline(
1756  > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
1757 
1758  IMPLICIT NONE
1759 
1760 ! argument declarations
1761  INTEGER NX_NEW
1762  INTEGER NX
1763  INTEGER IWARN
1764  INTEGER IER
1765  REAL X_NEWGRID(NX_NEW)
1766  REAL F_NEW(NX_NEW)
1767  REAL XPKG(NX,4)
1768  REAL FSPL(NX,2)
1769 
1770  end subroutine gridspline
1771 !
1772  END INTERFACE
1773  ! block file generated by iface.for -- 25Apr2007
1774 !==============================================================
1775 ! iface -- generated interface body module: GRIDTRICUB
1776 !
1777  INTERFACE gridtricub
1778 
1779 !----------------------------------------------------------
1780 ! iface: interface block generated segment for subroutine
1781 ! GRIDTRICUB ... for meaning of arguments see the documentation
1782 
1783  SUBROUTINE gridtricub(
1784  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
1785  > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)
1786 
1787  IMPLICIT NONE
1788 
1789 ! argument declarations
1790  INTEGER NX_NEW
1791  INTEGER NY_NEW
1792  INTEGER NZ_NEW
1793  INTEGER IF1
1794  INTEGER IF2
1795  INTEGER NX
1796  INTEGER NY
1797  INTEGER NZ
1798  INTEGER INF4
1799  INTEGER INF5
1800  INTEGER IWARN
1801  INTEGER IER
1802  REAL X_NEWGRID(NX_NEW)
1803  REAL Y_NEWGRID(NY_NEW)
1804  REAL Z_NEWGRID(NZ_NEW)
1805  REAL F_NEW(IF1,IF2,NZ_NEW)
1806  REAL XPKG(NX,4)
1807  REAL YPKG(NY,4)
1808  REAL ZPKG(NZ,4)
1809  REAL FSPL(8,INF4,INF5,NZ)
1810 
1811  end subroutine gridtricub
1812 !
1813  END INTERFACE
1814  ! block file generated by iface.for -- 25Apr2007
1815 !==============================================================
1816 ! iface -- generated interface body module: HERM1EV
1817 !
1818  INTERFACE herm1ev
1819 
1820 !----------------------------------------------------------
1821 ! iface: interface block generated segment for subroutine
1822 ! HERM1EV ... for meaning of arguments see the documentation
1823 
1824  SUBROUTINE herm1ev(
1825  > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
1826 
1827  IMPLICIT NONE
1828 
1829 ! argument declarations
1830  REAL XGET
1831  INTEGER NX
1832  INTEGER ILINX
1833  INTEGER IER
1834  REAL X(NX)
1835  REAL F(0:1,NX)
1836  INTEGER ICT(2)
1837  REAL FVAL(*)
1838 
1839  end subroutine herm1ev
1840 !
1841  END INTERFACE
1842 !==============================================================
1843 ! iface -- generated interface body module: HERM1X
1844 !
1845  INTERFACE herm1x
1846 
1847 !----------------------------------------------------------
1848 ! iface: interface block generated segment for subroutine
1849 ! HERM1X ... for meaning of arguments see the documentation
1850 
1851  SUBROUTINE herm1x(
1852  > XGET,X,NX,ILINX,I,XPARAM,HX,HXI,IER)
1853 
1854  IMPLICIT NONE
1855 
1856 ! argument declarations
1857  REAL XGET
1858  INTEGER NX
1859  INTEGER ILINX
1860  INTEGER I
1861  REAL XPARAM
1862  REAL HX
1863  REAL HXI
1864  INTEGER IER
1865  REAL X(NX)
1866 
1867  end subroutine herm1x
1868 !
1869  END INTERFACE
1870 !==============================================================
1871 ! iface -- generated interface body module: HERM1FCN
1872 !
1873  INTERFACE herm1fcn
1874 
1875 !----------------------------------------------------------
1876 ! iface: interface block generated segment for subroutine
1877 ! HERM1FCN ... for meaning of arguments see the documentation
1878 
1879  SUBROUTINE herm1fcn(
1880  > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
1881 
1882  IMPLICIT NONE
1883 
1884 ! argument declarations
1885  INTEGER IVEC
1886  INTEGER IVECD
1887  INTEGER NX
1888  INTEGER ICT(2)
1889  REAL FVAL(IVECD,*)
1890  INTEGER II(IVEC)
1891  REAL XPARAM(IVEC)
1892  REAL HX(IVEC)
1893  REAL HXI(IVEC)
1894  REAL FIN(0:1,NX)
1895 
1896  end subroutine HERM1FCN
1897 !
1898  END INTERFACE
1899  ! block file generated by iface.for -- 25Apr2007
1900 !==============================================================
1901 ! iface -- generated interface body module: HERM2EV
1902 !
1903  INTERFACE herm2ev
1904 
1905 !----------------------------------------------------------
1906 ! iface: interface block generated segment for subroutine
1907 ! HERM2EV ... for meaning of arguments see the documentation
1908 
1909  SUBROUTINE herm2ev(
1910  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
1911 
1912  IMPLICIT NONE
1913 
1914 ! argument declarations
1915  REAL XGET
1916  REAL YGET
1917  INTEGER NX
1918  INTEGER NY
1919  INTEGER ILINX
1920  INTEGER ILINY
1921  INTEGER INF2
1922  INTEGER IER
1923  REAL X(NX)
1924  REAL Y(NY)
1925  REAL F(0:3,INF2,NY)
1926  INTEGER ICT(4)
1927  REAL FVAL(*)
1928 
1929  end subroutine herm2ev
1930 !
1931  END INTERFACE
1932 !==============================================================
1933 ! iface -- generated interface body module: HERM2XY
1934 !
1935  INTERFACE herm2xy
1936 
1937 !----------------------------------------------------------
1938 ! iface: interface block generated segment for subroutine
1939 ! HERM2XY ... for meaning of arguments see the documentation
1940 
1941  SUBROUTINE herm2xy(
1942  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,XPARAM,YPARAM,HX,HXI,HY,HYI,
1943  > IER)
1944 
1945  IMPLICIT NONE
1946 
1947 ! argument declarations
1948  REAL XGET
1949  REAL YGET
1950  INTEGER NX
1951  INTEGER NY
1952  INTEGER ILINX
1953  INTEGER ILINY
1954  INTEGER I
1955  INTEGER J
1956  REAL XPARAM
1957  REAL YPARAM
1958  REAL HX
1959  REAL HXI
1960  REAL HY
1961  REAL HYI
1962  INTEGER IER
1963  REAL X(NX)
1964  REAL Y(NY)
1965 
1966  end subroutine herm2xy
1967 !
1968  END INTERFACE
1969 !==============================================================
1970 ! iface -- generated interface body module: HERM2FCN
1971 !
1972  INTERFACE herm2fcn
1973 
1974 !----------------------------------------------------------
1975 ! iface: interface block generated segment for subroutine
1976 ! HERM2FCN ... for meaning of arguments see the documentation
1977 
1978  SUBROUTINE herm2fcn(
1979  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
1980  > NY)
1981 
1982  IMPLICIT NONE
1983 
1984 ! argument declarations
1985  INTEGER IVEC
1986  INTEGER IVECD
1987  INTEGER INF2
1988  INTEGER NY
1989  INTEGER ICT(4)
1990  REAL FVAL(IVECD,*)
1991  INTEGER II(IVEC)
1992  INTEGER JJ(IVEC)
1993  REAL XPARAM(IVEC)
1994  REAL YPARAM(IVEC)
1995  REAL HX(IVEC)
1996  REAL HXI(IVEC)
1997  REAL HY(IVEC)
1998  REAL HYI(IVEC)
1999  REAL FIN(0:3,INF2,NY)
2000 
2001  end subroutine herm2fcn
2002 !
2003  END INTERFACE
2004 !==============================================================
2005 ! iface -- generated interface body module: HERM2FCNX
2006 !
2007  INTERFACE herm2fcnx
2008 
2009 !----------------------------------------------------------
2010 ! iface: interface block generated segment for subroutine
2011 ! HERM2FCNX ... for meaning of arguments see the documentation
2012 
2013  SUBROUTINE herm2fcnx(
2014  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
2015  > NY)
2016 
2017  IMPLICIT NONE
2018 
2019 ! argument declarations
2020  INTEGER IVEC
2021  INTEGER IVECD
2022  INTEGER JJ
2023  REAL YPARAM
2024  REAL HY
2025  REAL HYI
2026  INTEGER INF2
2027  INTEGER NY
2028  INTEGER ICT(4)
2029  REAL FVAL(IVECD,*)
2030  INTEGER II(IVEC)
2031  REAL XPARAM(IVEC)
2032  REAL HX(IVEC)
2033  REAL HXI(IVEC)
2034  REAL FIN(0:3,INF2,NY)
2035 
2036  end subroutine herm2fcnx
2037 !
2038  END INTERFACE
2039  ! block file generated by iface.for -- 25Apr2007
2040 !==============================================================
2041 ! iface -- generated interface body module: HERM3EV
2042 !
2043  INTERFACE herm3ev
2044 
2045 !----------------------------------------------------------
2046 ! iface: interface block generated segment for subroutine
2047 ! HERM3EV ... for meaning of arguments see the documentation
2048 
2049  SUBROUTINE herm3ev(
2050  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
2051  > FVAL,IER)
2052 
2053  IMPLICIT NONE
2054 
2055 ! argument declarations
2056  REAL XGET
2057  REAL YGET
2058  REAL ZGET
2059  INTEGER NX
2060  INTEGER NY
2061  INTEGER NZ
2062  INTEGER ILINX
2063  INTEGER ILINY
2064  INTEGER ILINZ
2065  INTEGER INF2
2066  INTEGER INF3
2067  INTEGER IER
2068  REAL X(NX)
2069  REAL Y(NY)
2070  REAL Z(NZ)
2071  REAL F(0:7,INF2,INF3,NZ)
2072  INTEGER ICT(8)
2073  REAL FVAL(*)
2074 
2075  end subroutine herm3ev
2076 !
2077  END INTERFACE
2078 !==============================================================
2079 ! iface -- generated interface body module: HERM3XYZ
2080 !
2081  INTERFACE herm3xyz
2082 
2083 !----------------------------------------------------------
2084 ! iface: interface block generated segment for subroutine
2085 ! HERM3XYZ ... for meaning of arguments see the documentation
2086 
2087  SUBROUTINE herm3xyz(
2088  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,XPARAM,
2089  > YPARAM,ZPARAM,HX,HXI,HY,HYI,HZ,HZI,IER)
2090 
2091  IMPLICIT NONE
2092 
2093 ! argument declarations
2094  REAL XGET
2095  REAL YGET
2096  REAL ZGET
2097  INTEGER NX
2098  INTEGER NY
2099  INTEGER NZ
2100  INTEGER ILINX
2101  INTEGER ILINY
2102  INTEGER ILINZ
2103  INTEGER I
2104  INTEGER J
2105  INTEGER K
2106  REAL XPARAM
2107  REAL YPARAM
2108  REAL ZPARAM
2109  REAL HX
2110  REAL HXI
2111  REAL HY
2112  REAL HYI
2113  REAL HZ
2114  REAL HZI
2115  INTEGER IER
2116  REAL X(NX)
2117  REAL Y(NY)
2118  REAL Z(NZ)
2119 
2120  end subroutine herm3xyz
2121 !
2122  END INTERFACE
2123 !==============================================================
2124 ! iface -- generated interface body module: HERM3FCN
2125 !
2126  INTERFACE herm3fcn
2127 
2128 !----------------------------------------------------------
2129 ! iface: interface block generated segment for subroutine
2130 ! HERM3FCN ... for meaning of arguments see the documentation
2131 
2132  SUBROUTINE herm3fcn(
2133  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
2134  > HZ,HZI,FIN,INF2,INF3,NZ)
2135 
2136  IMPLICIT NONE
2137 
2138 ! argument declarations
2139  INTEGER IVEC
2140  INTEGER IVECD
2141  INTEGER INF2
2142  INTEGER INF3
2143  INTEGER NZ
2144  INTEGER ICT(8)
2145  REAL FVAL(IVECD,*)
2146  INTEGER II(IVEC)
2147  INTEGER JJ(IVEC)
2148  INTEGER KK(IVEC)
2149  REAL XPARAM(IVEC)
2150  REAL YPARAM(IVEC)
2151  REAL ZPARAM(IVEC)
2152  REAL HX(IVEC)
2153  REAL HXI(IVEC)
2154  REAL HY(IVEC)
2155  REAL HYI(IVEC)
2156  REAL HZ(IVEC)
2157  REAL HZI(IVEC)
2158  REAL FIN(0:7,INF2,INF3,NZ)
2159 
2160  end subroutine herm3fcn
2161 !
2162  END INTERFACE
2163 !==============================================================
2164 ! iface -- generated interface body module: HERM3FCNX
2165 !
2166  INTERFACE herm3fcnx
2167 
2168 !----------------------------------------------------------
2169 ! iface: interface block generated segment for subroutine
2170 ! HERM3FCNX ... for meaning of arguments see the documentation
2171 
2172  SUBROUTINE herm3fcnx(
2173  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
2174  > HZ,HZI,FIN,INF2,INF3,NZ)
2175 
2176  IMPLICIT NONE
2177 
2178 ! argument declarations
2179  INTEGER IVEC
2180  INTEGER IVECD
2181  INTEGER JJ
2182  INTEGER KK
2183  REAL YPARAM
2184  REAL ZPARAM
2185  REAL HY
2186  REAL HYI
2187  REAL HZ
2188  REAL HZI
2189  INTEGER INF2
2190  INTEGER INF3
2191  INTEGER NZ
2192  INTEGER ICT(8)
2193  REAL FVAL(IVECD,*)
2194  INTEGER II(IVEC)
2195  REAL XPARAM(IVEC)
2196  REAL HX(IVEC)
2197  REAL HXI(IVEC)
2198  REAL FIN(0:7,INF2,INF3,NZ)
2199 
2200  end subroutine herm3fcnx
2201 !
2202  END INTERFACE
2203  ! block file generated by iface.for -- 25Apr2007
2204 !==============================================================
2205 ! iface -- generated interface body module: IBC_CK
2206 !
2207  INTERFACE ibc_ck
2208 
2209 !----------------------------------------------------------
2210 ! iface: interface block generated segment for subroutine
2211 ! IBC_CK ... for meaning of arguments see the documentation
2212 
2213  SUBROUTINE ibc_ck(
2214  > IBC,SLBL,XLBL,IMIN,IMAX,IER)
2215 
2216  IMPLICIT NONE
2217 
2218 ! argument declarations
2219  INTEGER IBC
2220  CHARACTER*(*) SLBL
2221  CHARACTER*(*) XLBL
2222  INTEGER IMIN
2223  INTEGER IMAX
2224  INTEGER IER
2225 
2226  end subroutine ibc_ck
2227 !
2228  END INTERFACE
2229  ! block file generated by iface.for -- 25Apr2007
2230 !==============================================================
2231 ! iface -- generated interface body module: MKBICUB
2232 !
2233  INTERFACE mkbicub
2234 
2235 !----------------------------------------------------------
2236 ! iface: interface block generated segment for subroutine
2237 ! MKBICUB ... for meaning of arguments see the documentation
2238 
2239  SUBROUTINE mkbicub(
2240  > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,
2241  > IBCYMAX,BCYMAX,ILINX,ILINY,IER)
2242 
2243  IMPLICIT NONE
2244 
2245 ! argument declarations
2246  INTEGER NX
2247  INTEGER NY
2248  INTEGER NF2
2249  INTEGER IBCXMIN
2250  INTEGER IBCXMAX
2251  INTEGER IBCYMIN
2252  INTEGER IBCYMAX
2253  INTEGER ILINX
2254  INTEGER ILINY
2255  INTEGER IER
2256  REAL X(NX)
2257  REAL Y(NY)
2258  REAL F(4,NF2,NY)
2259  REAL BCXMIN(NY)
2260  REAL BCXMAX(NY)
2261  REAL BCYMIN(NX)
2262  REAL BCYMAX(NX)
2263 
2264  end subroutine mkbicub
2265 !
2266  END INTERFACE
2267  ! block file generated by iface.for -- 25Apr2007
2268 !==============================================================
2269 ! iface -- generated interface body module: MKBICUBW
2270 !
2271  INTERFACE mkbicubw
2272 
2273 !----------------------------------------------------------
2274 ! iface: interface block generated segment for subroutine
2275 ! MKBICUBW ... for meaning of arguments see the documentation
2276 
2277  SUBROUTINE mkbicubw(
2278  > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,
2279  > IBCYMAX,BCYMAX,WK,NWK,ILINX,ILINY,IER)
2280 
2281  IMPLICIT NONE
2282 
2283 ! argument declarations
2284  INTEGER NX
2285  INTEGER NY
2286  INTEGER NF2
2287  INTEGER IBCXMIN
2288  INTEGER IBCXMAX
2289  INTEGER IBCYMIN
2290  INTEGER IBCYMAX
2291  INTEGER NWK
2292  INTEGER ILINX
2293  INTEGER ILINY
2294  INTEGER IER
2295  REAL X(NX)
2296  REAL Y(NY)
2297  REAL F(4,NF2,NY)
2298  REAL BCXMIN(NY)
2299  REAL BCXMAX(NY)
2300  REAL BCYMIN(NX)
2301  REAL BCYMAX(NX)
2302  REAL WK(NWK)
2303 
2304  end subroutine MKBICUBW
2305 !
2306  END INTERFACE
2307 !==============================================================
2308 ! iface -- generated interface body module: MKBICOP
2309 !
2310  INTERFACE mkbicop
2311 
2312 !----------------------------------------------------------
2313 ! iface: interface block generated segment for subroutine
2314 ! MKBICOP ... for meaning of arguments see the documentation
2315 
2316  SUBROUTINE mkbicop(
2317  > FIN,NF2,FWK,NX,NY)
2318 
2319  IMPLICIT NONE
2320 
2321 ! argument declarations
2322  INTEGER NF2
2323  INTEGER NX
2324  INTEGER NY
2325  REAL FIN(4,NF2,NY)
2326  REAL FWK(4,4,NX,NY)
2327 
2328  end subroutine mkbicop
2329 !
2330  END INTERFACE
2331 !==============================================================
2332 ! iface -- generated interface body module: MKBICON
2333 !
2334  INTERFACE mkbicon
2335 
2336 !----------------------------------------------------------
2337 ! iface: interface block generated segment for subroutine
2338 ! MKBICON ... for meaning of arguments see the documentation
2339 
2340  SUBROUTINE mkbicon(
2341  > FIN,NF2,FWK,NX,NY,HXLAST,HYLAST)
2342 
2343  IMPLICIT NONE
2344 
2345 ! argument declarations
2346  INTEGER NF2
2347  INTEGER NX
2348  INTEGER NY
2349  REAL HXLAST
2350  REAL HYLAST
2351  REAL FIN(4,NF2,NY)
2352  REAL FWK(4,4,NX,NY)
2353 
2354  end subroutine mkbicon
2355 !
2356  END INTERFACE
2357  ! block file generated by iface.for -- 25Apr2007
2358 !==============================================================
2359 ! iface -- generated interface body module: MKHERM1
2360 !
2361  INTERFACE mkherm1
2362 
2363 !----------------------------------------------------------
2364 ! iface: interface block generated segment for subroutine
2365 ! MKHERM1 ... for meaning of arguments see the documentation
2366 
2367  SUBROUTINE mkherm1(
2368  > FUN,X,NX,FHERM)
2369 
2370  IMPLICIT NONE
2371 
2372 ! argument declarations
2373  EXTERNAL fun
2374  INTEGER NX
2375  REAL X(NX)
2376  REAL FHERM(0:1,NX)
2377 
2378  end subroutine mkherm1
2379 !
2380  END INTERFACE
2381  ! block file generated by iface.for -- 25Apr2007
2382 !==============================================================
2383 ! iface -- generated interface body module: MKHERM2
2384 !
2385  INTERFACE mkherm2
2386 
2387 !----------------------------------------------------------
2388 ! iface: interface block generated segment for subroutine
2389 ! MKHERM2 ... for meaning of arguments see the documentation
2390 
2391  SUBROUTINE mkherm2(
2392  > FUN,X,NX,Y,NY,FHERM)
2393 
2394  IMPLICIT NONE
2395 
2396 ! argument declarations
2397  EXTERNAL fun
2398  INTEGER NX
2399  INTEGER NY
2400  REAL X(NX)
2401  REAL Y(NY)
2402  REAL FHERM(0:3,NX,NY)
2403 
2404  end subroutine mkherm2
2405 !
2406  END INTERFACE
2407  ! block file generated by iface.for -- 25Apr2007
2408 !==============================================================
2409 ! iface -- generated interface body module: MKHERM3
2410 !
2411  INTERFACE mkherm3
2412 
2413 !----------------------------------------------------------
2414 ! iface: interface block generated segment for subroutine
2415 ! MKHERM3 ... for meaning of arguments see the documentation
2416 
2417  SUBROUTINE mkherm3(
2418  > FUN,X,NX,Y,NY,Z,NZ,FHERM)
2419 
2420  IMPLICIT NONE
2421 
2422 ! argument declarations
2423  EXTERNAL fun
2424  INTEGER NX
2425  INTEGER NY
2426  INTEGER NZ
2427  REAL X(NX)
2428  REAL Y(NY)
2429  REAL Z(NZ)
2430  REAL FHERM(0:7,NX,NY,NZ)
2431 
2432  end subroutine mkherm3
2433 !
2434  END INTERFACE
2435  ! block file generated by iface.for -- 25Apr2007
2436 !==============================================================
2437 ! iface -- generated interface body module: MKINTRP2D
2438 !
2439  INTERFACE mkintrp2d
2440 
2441 !----------------------------------------------------------
2442 ! iface: interface block generated segment for subroutine
2443 ! MKINTRP2D ... for meaning of arguments see the documentation
2444 
2445  SUBROUTINE mkintrp2d(
2446  > X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IBCXMIN,BCXMIN,IBCXMAX,
2447  > BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IER)
2448 
2449  IMPLICIT NONE
2450 
2451 ! argument declarations
2452  INTEGER NX
2453  INTEGER NY
2454  INTEGER ICOEFF
2455  INTEGER IXDIM
2456  INTEGER IYDIM
2457  INTEGER IBCXMIN
2458  INTEGER IBCXMAX
2459  INTEGER IBCYMIN
2460  INTEGER IBCYMAX
2461  INTEGER IER
2462  REAL X(NX)
2463  REAL Y(NY)
2464  INTEGER JSPLINE(2)
2465  REAL F(ICOEFF,IXDIM,IYDIM)
2466  REAL BCXMIN(IYDIM)
2467  REAL BCXMAX(IYDIM)
2468  REAL BCYMIN(IXDIM)
2469  REAL BCYMAX(IXDIM)
2470 
2471  end subroutine mkintrp2d
2472 !
2473  END INTERFACE
2474  ! block file generated by iface.for -- 25Apr2007
2475 !==============================================================
2476 ! iface -- generated interface body module: MKINTRP3D
2477 !
2478  INTERFACE mkintrp3d
2479 
2480 !----------------------------------------------------------
2481 ! iface: interface block generated segment for subroutine
2482 ! MKINTRP3D ... for meaning of arguments see the documentation
2483 
2484  SUBROUTINE mkintrp3d(
2485  > X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,IBCXMIN,BCXMIN,
2486  > IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IBCZMIN,BCZMIN,
2487  > IBCZMAX,BCZMAX,IER)
2488 
2489  IMPLICIT NONE
2490 
2491 ! argument declarations
2492  INTEGER NX
2493  INTEGER NY
2494  INTEGER NZ
2495  INTEGER ICOEFF
2496  INTEGER IXDIM
2497  INTEGER IYDIM
2498  INTEGER IZDIM
2499  INTEGER IBCXMIN
2500  INTEGER IBCXMAX
2501  INTEGER IBCYMIN
2502  INTEGER IBCYMAX
2503  INTEGER IBCZMIN
2504  INTEGER IBCZMAX
2505  INTEGER IER
2506  REAL X(NX)
2507  REAL Y(NY)
2508  REAL Z(NZ)
2509  INTEGER JSPLINE(3)
2510  REAL F(ICOEFF,IXDIM,IYDIM,IZDIM)
2511  REAL BCXMIN(IYDIM,IZDIM)
2512  REAL BCXMAX(IYDIM,IZDIM)
2513  REAL BCYMIN(IXDIM,IZDIM)
2514  REAL BCYMAX(IXDIM,IZDIM)
2515  REAL BCZMIN(IXDIM,IYDIM)
2516  REAL BCZMAX(IXDIM,IYDIM)
2517 
2518  end subroutine MKINTRP3D
2519 !
2520  END INTERFACE
2521  ! block file generated by iface.for -- 25Apr2007
2522 !==============================================================
2523 ! iface -- generated interface body module: MKSPL2PB
2524 !
2525  INTERFACE mkspl2pb
2526 
2527 !----------------------------------------------------------
2528 ! iface: interface block generated segment for subroutine
2529 ! MKSPL2PB ... for meaning of arguments see the documentation
2530 
2531  SUBROUTINE mkspl2pb(
2532  > FUN,X,NX,TH,NTH,FSPL,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,
2533  > ILINX,ILINTH,IER)
2534 
2535  IMPLICIT NONE
2536 
2537 ! argument declarations
2538  EXTERNAL fun
2539  INTEGER NX
2540  INTEGER NTH
2541  INTEGER NF3
2542  INTEGER IBCXMIN
2543  INTEGER IBCXMAX
2544  INTEGER INWK
2545  INTEGER ILINX
2546  INTEGER ILINTH
2547  INTEGER IER
2548  REAL X(NX)
2549  REAL TH(NTH)
2550  REAL FSPL(4,4,NF3,NTH)
2551  REAL BCXMIN(NTH)
2552  REAL BCXMAX(NTH)
2553  REAL WK(INWK)
2554 
2555  end subroutine mkspl2pb
2556 !
2557  END INTERFACE
2558  ! block file generated by iface.for -- 25Apr2007
2559 !==============================================================
2560 ! iface -- generated interface body module: MKSPL2P
2561 !
2562  INTERFACE mkspl2p
2563 
2564 !----------------------------------------------------------
2565 ! iface: interface block generated segment for subroutine
2566 ! MKSPL2P ... for meaning of arguments see the documentation
2567 
2568  SUBROUTINE mkspl2p(
2569  > FUN,X,NX,TH,NTH,FSPL,NF3,WK,INWK,ILINX,ILINTH,IER)
2570 
2571  IMPLICIT NONE
2572 
2573 ! argument declarations
2574  EXTERNAL fun
2575  INTEGER NX
2576  INTEGER NTH
2577  INTEGER NF3
2578  INTEGER INWK
2579  INTEGER ILINX
2580  INTEGER ILINTH
2581  INTEGER IER
2582  REAL X(NX)
2583  REAL TH(NTH)
2584  REAL FSPL(4,4,NF3,NTH)
2585  REAL WK(INWK)
2586 
2587  end subroutine MKSPL2P
2588 !
2589  END INTERFACE
2590  ! block file generated by iface.for -- 25Apr2007
2591 !==============================================================
2592 ! iface -- generated interface body module: MKSPL2ZB
2593 !
2594  INTERFACE mkspl2zb
2595 
2596 !----------------------------------------------------------
2597 ! iface: interface block generated segment for subroutine
2598 ! MKSPL2ZB ... for meaning of arguments see the documentation
2599 
2600  SUBROUTINE mkspl2zb(
2601  > FUN,X,NX,TH,NTH,FSPL,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,
2602  > ILINX,ILINTH,IER)
2603 
2604  IMPLICIT NONE
2605 
2606 ! argument declarations
2607  EXTERNAL fun
2608  INTEGER NX
2609  INTEGER NTH
2610  INTEGER NF2
2611  INTEGER IBCXMIN
2612  INTEGER IBCXMAX
2613  INTEGER INWK
2614  INTEGER ILINX
2615  INTEGER ILINTH
2616  INTEGER IER
2617  REAL X(NX)
2618  REAL TH(NTH)
2619  REAL FSPL(4,NF2,NTH)
2620  REAL BCXMIN(NTH)
2621  REAL BCXMAX(NTH)
2622  REAL WK(INWK)
2623 
2624  end subroutine mkspl2zb
2625 !
2626  END INTERFACE
2627  ! block file generated by iface.for -- 25Apr2007
2628 !==============================================================
2629 ! iface -- generated interface body module: MKSPL2Z
2630 !
2631  INTERFACE mkspl2z
2632 
2633 !----------------------------------------------------------
2634 ! iface: interface block generated segment for subroutine
2635 ! MKSPL2Z ... for meaning of arguments see the documentation
2636 
2637  SUBROUTINE mkspl2z(
2638  > FUN,X,NX,TH,NTH,FSPL,NF2,WK,INWK,ILINX,ILINTH,IER)
2639 
2640  IMPLICIT NONE
2641 
2642 ! argument declarations
2643  EXTERNAL fun
2644  INTEGER NX
2645  INTEGER NTH
2646  INTEGER NF2
2647  INTEGER INWK
2648  INTEGER ILINX
2649  INTEGER ILINTH
2650  INTEGER IER
2651  REAL X(NX)
2652  REAL TH(NTH)
2653  REAL FSPL(4,NF2,NTH)
2654  REAL WK(INWK)
2655 
2656  end subroutine mkspl2z
2657 !
2658  END INTERFACE
2659  ! block file generated by iface.for -- 25Apr2007
2660 !==============================================================
2661 ! iface -- generated interface body module: MKSPL3PB
2662 !
2663  INTERFACE mkspl3pb
2664 
2665 !----------------------------------------------------------
2666 ! iface: interface block generated segment for subroutine
2667 ! MKSPL3PB ... for meaning of arguments see the documentation
2668 
2669  SUBROUTINE mkspl3pb(
2670  > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF4,NF5,IBCXMIN,BCXMIN,IBCXMAX,
2671  > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)
2672 
2673  IMPLICIT NONE
2674 
2675 ! argument declarations
2676  EXTERNAL fun
2677  INTEGER NX
2678  INTEGER NTH
2679  INTEGER NPH
2680  INTEGER NF4
2681  INTEGER NF5
2682  INTEGER IBCXMIN
2683  INTEGER IBCXMAX
2684  INTEGER NB1
2685  INTEGER INWK
2686  INTEGER ILINX
2687  INTEGER ILINTH
2688  INTEGER ILINPH
2689  INTEGER IER
2690  REAL X(NX)
2691  REAL TH(NTH)
2692  REAL PH(NPH)
2693  REAL FSPL(4,4,4,NF4,NF5,NPH)
2694  REAL BCXMIN(NB1,NPH)
2695  REAL BCXMAX(NB1,NPH)
2696  REAL WK(INWK)
2697 
2698  end subroutine mkspl3pb
2699 !
2700  END INTERFACE
2701  ! block file generated by iface.for -- 25Apr2007
2702 !==============================================================
2703 ! iface -- generated interface body module: MKSPL3ZB
2704 !
2705  INTERFACE mkspl3zb
2706 
2707 !----------------------------------------------------------
2708 ! iface: interface block generated segment for subroutine
2709 ! MKSPL3ZB ... for meaning of arguments see the documentation
2710 
2711  SUBROUTINE mkspl3zb(
2712  > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,
2713  > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)
2714 
2715  IMPLICIT NONE
2716 
2717 ! argument declarations
2718  EXTERNAL fun
2719  INTEGER NX
2720  INTEGER NTH
2721  INTEGER NPH
2722  INTEGER NF2
2723  INTEGER NF3
2724  INTEGER IBCXMIN
2725  INTEGER IBCXMAX
2726  INTEGER NB1
2727  INTEGER INWK
2728  INTEGER ILINX
2729  INTEGER ILINTH
2730  INTEGER ILINPH
2731  INTEGER IER
2732  REAL X(NX)
2733  REAL TH(NTH)
2734  REAL PH(NPH)
2735  REAL FSPL(8,NF2,NF3,NPH)
2736  REAL BCXMIN(NB1,NPH)
2737  REAL BCXMAX(NB1,NPH)
2738  REAL WK(INWK)
2739 
2740  end subroutine mkspl3zb
2741 !
2742  END INTERFACE
2743  ! block file generated by iface.for -- 25Apr2007
2744 !==============================================================
2745 ! iface -- generated interface body module: MKSPLINE
2746 !
2747  INTERFACE mkspline
2748 
2749 !----------------------------------------------------------
2750 ! iface: interface block generated segment for subroutine
2751 ! MKSPLINE ... for meaning of arguments see the documentation
2752 
2753  SUBROUTINE mkspline(
2754  > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,ILINX,IER)
2755 
2756  IMPLICIT NONE
2757 
2758 ! argument declarations
2759  INTEGER NX
2760  INTEGER IBCXMIN
2761  REAL BCXMIN
2762  INTEGER IBCXMAX
2763  REAL BCXMAX
2764  INTEGER ILINX
2765  INTEGER IER
2766  REAL X(NX)
2767  REAL FSPL(2,NX)
2768 
2769  end subroutine mkspline
2770 !
2771  END INTERFACE
2772  ! block file generated by iface.for -- 25Apr2007
2773 !==============================================================
2774 ! iface -- generated interface body module: MKTRICUB
2775 !
2776  INTERFACE mktricub
2777 
2778 !----------------------------------------------------------
2779 ! iface: interface block generated segment for subroutine
2780 ! MKTRICUB ... for meaning of arguments see the documentation
2781 
2782  SUBROUTINE mktricub(
2783  > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,
2784  > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,
2785  > BCZMAX,INB1Z,ILINX,ILINY,ILINZ,IER)
2786 
2787  IMPLICIT NONE
2788 
2789 ! argument declarations
2790  INTEGER NX
2791  INTEGER NY
2792  INTEGER NZ
2793  INTEGER NF2
2794  INTEGER NF3
2795  INTEGER IBCXMIN
2796  INTEGER IBCXMAX
2797  INTEGER INB1X
2798  INTEGER IBCYMIN
2799  INTEGER IBCYMAX
2800  INTEGER INB1Y
2801  INTEGER IBCZMIN
2802  INTEGER IBCZMAX
2803  INTEGER INB1Z
2804  INTEGER ILINX
2805  INTEGER ILINY
2806  INTEGER ILINZ
2807  INTEGER IER
2808  REAL X(NX)
2809  REAL Y(NY)
2810  REAL Z(NZ)
2811  REAL F(8,NF2,NF3,NZ)
2812  REAL BCXMIN(INB1X,NZ)
2813  REAL BCXMAX(INB1X,NZ)
2814  REAL BCYMIN(INB1Y,NZ)
2815  REAL BCYMAX(INB1Y,NZ)
2816  REAL BCZMIN(INB1Z,NY)
2817  REAL BCZMAX(INB1Z,NY)
2818 
2819  end subroutine MKTRICUB
2820 !
2821  END INTERFACE
2822  ! block file generated by iface.for -- 25Apr2007
2823 !==============================================================
2824 ! iface -- generated interface body module: MKTRICUBW
2825 !
2826  INTERFACE mktricubw
2827 
2828 !----------------------------------------------------------
2829 ! iface: interface block generated segment for subroutine
2830 ! MKTRICUBW ... for meaning of arguments see the documentation
2831 
2832  SUBROUTINE mktricubw(
2833  > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,
2834  > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,
2835  > BCZMAX,INB1Z,WK,NWK,ILINX,ILINY,ILINZ,IER)
2836 
2837  IMPLICIT NONE
2838 
2839 ! argument declarations
2840  INTEGER NX
2841  INTEGER NY
2842  INTEGER NZ
2843  INTEGER NF2
2844  INTEGER NF3
2845  INTEGER IBCXMIN
2846  INTEGER IBCXMAX
2847  INTEGER INB1X
2848  INTEGER IBCYMIN
2849  INTEGER IBCYMAX
2850  INTEGER INB1Y
2851  INTEGER IBCZMIN
2852  INTEGER IBCZMAX
2853  INTEGER INB1Z
2854  INTEGER NWK
2855  INTEGER ILINX
2856  INTEGER ILINY
2857  INTEGER ILINZ
2858  INTEGER IER
2859  REAL X(NX)
2860  REAL Y(NY)
2861  REAL Z(NZ)
2862  REAL F(8,NF2,NF3,NZ)
2863  REAL BCXMIN(INB1X,NZ)
2864  REAL BCXMAX(INB1X,NZ)
2865  REAL BCYMIN(INB1Y,NZ)
2866  REAL BCYMAX(INB1Y,NZ)
2867  REAL BCZMIN(INB1Z,NY)
2868  REAL BCZMAX(INB1Z,NY)
2869  REAL WK(NWK)
2870 
2871  end subroutine MKTRICUBW
2872 !
2873  END INTERFACE
2874 !==============================================================
2875 ! iface -- generated interface body module: MKTRICOP
2876 !
2877  INTERFACE mktricop
2878 
2879 !----------------------------------------------------------
2880 ! iface: interface block generated segment for subroutine
2881 ! MKTRICOP ... for meaning of arguments see the documentation
2882 
2883  SUBROUTINE mktricop(
2884  > FIN,NF2,NF3,FWK,NX,NY,NZ)
2885 
2886  IMPLICIT NONE
2887 
2888 ! argument declarations
2889  INTEGER NF2
2890  INTEGER NF3
2891  INTEGER NX
2892  INTEGER NY
2893  INTEGER NZ
2894  REAL FIN(8,NF2,NF3,NZ)
2895  REAL FWK(4,4,4,NX,NY,NZ)
2896 
2897  end subroutine mktricop
2898 !
2899  END INTERFACE
2900 !==============================================================
2901 ! iface -- generated interface body module: MKTRICON
2902 !
2903  INTERFACE mktricon
2904 
2905 !----------------------------------------------------------
2906 ! iface: interface block generated segment for subroutine
2907 ! MKTRICON ... for meaning of arguments see the documentation
2908 
2909  SUBROUTINE mktricon(
2910  > FIN,NF2,NF3,FWK,NX,NY,NZ,HXLAST,HYLAST,HZLAST)
2911 
2912  IMPLICIT NONE
2913 
2914 ! argument declarations
2915  INTEGER NF2
2916  INTEGER NF3
2917  INTEGER NX
2918  INTEGER NY
2919  INTEGER NZ
2920  REAL HXLAST
2921  REAL HYLAST
2922  REAL HZLAST
2923  REAL FIN(8,NF2,NF3,NZ)
2924  REAL FWK(4,4,4,NX,NY,NZ)
2925 
2926  end subroutine mktricon
2927 !
2928  END INTERFACE
2929  ! block file generated by iface.for -- 25Apr2007
2930 !==============================================================
2931 ! iface -- generated interface body module: NSPLINE
2932 !
2933  INTERFACE nspline
2934 
2935 !----------------------------------------------------------
2936 ! iface: interface block generated segment for subroutine
2937 ! NSPLINE ... for meaning of arguments see the documentation
2938 
2939  SUBROUTINE nspline(
2940  > N,X,Y,B,C,D)
2941 
2942  IMPLICIT NONE
2943 
2944 ! argument declarations
2945  INTEGER N
2946  REAL X(N)
2947  REAL Y(N)
2948  REAL B(N)
2949  REAL C(N)
2950  REAL D(N)
2951 
2952  end subroutine NSPLINE
2953 !
2954  END INTERFACE
2955  ! block file generated by iface.for -- 25Apr2007
2956 !==============================================================
2957 ! iface -- generated interface body module: PC1EV
2958 !
2959  INTERFACE pc1ev
2960 
2961 !----------------------------------------------------------
2962 ! iface: interface block generated segment for subroutine
2963 ! PC1EV ... for meaning of arguments see the documentation
2964 
2965  SUBROUTINE pc1ev(
2966  > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
2967 
2968  IMPLICIT NONE
2969 
2970 ! argument declarations
2971  REAL XGET
2972  INTEGER NX
2973  INTEGER ILINX
2974  INTEGER IER
2975  REAL X(NX)
2976  REAL F(NX)
2977  INTEGER ICT(2)
2978  REAL FVAL(*)
2979 
2980  end subroutine pc1ev
2981 !
2982  END INTERFACE
2983 !==============================================================
2984 ! iface -- generated interface body module: PC1FCN
2985 !
2986  INTERFACE pc1fcn
2987 
2988 !----------------------------------------------------------
2989 ! iface: interface block generated segment for subroutine
2990 ! PC1FCN ... for meaning of arguments see the documentation
2991 
2992  SUBROUTINE pc1fcn(
2993  > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
2994 
2995  IMPLICIT NONE
2996 
2997 ! argument declarations
2998  INTEGER IVEC
2999  INTEGER IVECD
3000  INTEGER NX
3001  INTEGER ICT(2)
3002  REAL FVAL(IVECD,*)
3003  INTEGER II(IVEC)
3004  REAL XPARAM(IVEC)
3005  REAL HX(IVEC)
3006  REAL HXI(IVEC)
3007  REAL FIN(NX)
3008 
3009  end subroutine pc1fcn
3010 !
3011  END INTERFACE
3012  ! block file generated by iface.for -- 25Apr2007
3013 !==============================================================
3014 ! iface -- generated interface body module: PC2EV
3015 !
3016  INTERFACE pc2ev
3017 
3018 !----------------------------------------------------------
3019 ! iface: interface block generated segment for subroutine
3020 ! PC2EV ... for meaning of arguments see the documentation
3021 
3022  SUBROUTINE pc2ev(
3023  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
3024 
3025  IMPLICIT NONE
3026 
3027 ! argument declarations
3028  REAL XGET
3029  REAL YGET
3030  INTEGER NX
3031  INTEGER NY
3032  INTEGER ILINX
3033  INTEGER ILINY
3034  INTEGER INF2
3035  INTEGER IER
3036  REAL X(NX)
3037  REAL Y(NY)
3038  REAL F(INF2,NY)
3039  INTEGER ICT(4)
3040  REAL FVAL(*)
3041 
3042  end subroutine pc2ev
3043 !
3044  END INTERFACE
3045 !==============================================================
3046 ! iface -- generated interface body module: PC2FCN
3047 !
3048  INTERFACE pc2fcn
3049 
3050 !----------------------------------------------------------
3051 ! iface: interface block generated segment for subroutine
3052 ! PC2FCN ... for meaning of arguments see the documentation
3053 
3054  SUBROUTINE pc2fcn(
3055  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
3056  > NY)
3057 
3058  IMPLICIT NONE
3059 
3060 ! argument declarations
3061  INTEGER IVEC
3062  INTEGER IVECD
3063  INTEGER INF2
3064  INTEGER NY
3065  INTEGER ICT(4)
3066  REAL FVAL(IVECD,*)
3067  INTEGER II(IVEC)
3068  INTEGER JJ(IVEC)
3069  REAL XPARAM(IVEC)
3070  REAL YPARAM(IVEC)
3071  REAL HX(IVEC)
3072  REAL HXI(IVEC)
3073  REAL HY(IVEC)
3074  REAL HYI(IVEC)
3075  REAL FIN(INF2,NY)
3076 
3077  end subroutine pc2fcn
3078 !
3079  END INTERFACE
3080 !==============================================================
3081 ! iface -- generated interface body module: PC2FCNX
3082 !
3083  INTERFACE pc2fcnx
3084 
3085 !----------------------------------------------------------
3086 ! iface: interface block generated segment for subroutine
3087 ! PC2FCNX ... for meaning of arguments see the documentation
3088 
3089  SUBROUTINE pc2fcnx(
3090  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
3091  > NY)
3092 
3093  IMPLICIT NONE
3094 
3095 ! argument declarations
3096  INTEGER IVEC
3097  INTEGER IVECD
3098  INTEGER JJ
3099  REAL YPARAM
3100  REAL HY
3101  REAL HYI
3102  INTEGER INF2
3103  INTEGER NY
3104  INTEGER ICT(4)
3105  REAL FVAL(IVECD,*)
3106  INTEGER II(IVEC)
3107  REAL XPARAM(IVEC)
3108  REAL HX(IVEC)
3109  REAL HXI(IVEC)
3110  REAL FIN(INF2,NY)
3111 
3112  end subroutine pc2fcnx
3113 !
3114  END INTERFACE
3115  ! block file generated by iface.for -- 25Apr2007
3116 !==============================================================
3117 ! iface -- generated interface body module: PC3EV
3118 !
3119  INTERFACE pc3ev
3120 
3121 !----------------------------------------------------------
3122 ! iface: interface block generated segment for subroutine
3123 ! PC3EV ... for meaning of arguments see the documentation
3124 
3125  SUBROUTINE pc3ev(
3126  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
3127  > FVAL,IER)
3128 
3129  IMPLICIT NONE
3130 
3131 ! argument declarations
3132  REAL XGET
3133  REAL YGET
3134  REAL ZGET
3135  INTEGER NX
3136  INTEGER NY
3137  INTEGER NZ
3138  INTEGER ILINX
3139  INTEGER ILINY
3140  INTEGER ILINZ
3141  INTEGER INF2
3142  INTEGER INF3
3143  INTEGER IER
3144  REAL X(NX)
3145  REAL Y(NY)
3146  REAL Z(NZ)
3147  REAL F(INF2,INF3,NZ)
3148  INTEGER ICT(8)
3149  REAL FVAL(*)
3150 
3151  end subroutine PC3EV
3152 !
3153  END INTERFACE
3154 !==============================================================
3155 ! iface -- generated interface body module: PC3FCN
3156 !
3157  INTERFACE pc3fcn
3158 
3159 !----------------------------------------------------------
3160 ! iface: interface block generated segment for subroutine
3161 ! PC3FCN ... for meaning of arguments see the documentation
3162 
3163  SUBROUTINE pc3fcn(
3164  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
3165  > HZ,HZI,FIN,INF2,INF3,NZ)
3166 
3167  IMPLICIT NONE
3168 
3169 ! argument declarations
3170  INTEGER IVEC
3171  INTEGER IVECD
3172  INTEGER INF2
3173  INTEGER INF3
3174  INTEGER NZ
3175  INTEGER ICT(8)
3176  REAL FVAL(IVECD,*)
3177  INTEGER II(IVEC)
3178  INTEGER JJ(IVEC)
3179  INTEGER KK(IVEC)
3180  REAL XPARAM(IVEC)
3181  REAL YPARAM(IVEC)
3182  REAL ZPARAM(IVEC)
3183  REAL HX(IVEC)
3184  REAL HXI(IVEC)
3185  REAL HY(IVEC)
3186  REAL HYI(IVEC)
3187  REAL HZ(IVEC)
3188  REAL HZI(IVEC)
3189  REAL FIN(INF2,INF3,NZ)
3190 
3191  end subroutine PC3FCN
3192 !
3193  END INTERFACE
3194 !==============================================================
3195 ! iface -- generated interface body module: PC3FCNX
3196 !
3197  INTERFACE pc3fcnx
3198 
3199 !----------------------------------------------------------
3200 ! iface: interface block generated segment for subroutine
3201 ! PC3FCNX ... for meaning of arguments see the documentation
3202 
3203  SUBROUTINE pc3fcnx(
3204  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
3205  > HZ,HZI,FIN,INF2,INF3,NZ)
3206 
3207  IMPLICIT NONE
3208 
3209 ! argument declarations
3210  INTEGER IVEC
3211  INTEGER IVECD
3212  INTEGER JJ
3213  INTEGER KK
3214  REAL YPARAM
3215  REAL ZPARAM
3216  REAL HY
3217  REAL HYI
3218  REAL HZ
3219  REAL HZI
3220  INTEGER INF2
3221  INTEGER INF3
3222  INTEGER NZ
3223  INTEGER ICT(8)
3224  REAL FVAL(IVECD,*)
3225  INTEGER II(IVEC)
3226  REAL XPARAM(IVEC)
3227  REAL HX(IVEC)
3228  REAL HXI(IVEC)
3229  REAL FIN(INF2,INF3,NZ)
3230 
3231  end subroutine PC3FCNX
3232 !
3233  END INTERFACE
3234  ! block file generated by iface.for -- 25Apr2007
3235 !==============================================================
3236 ! iface -- generated interface body module: PSPLINE
3237 !
3238  INTERFACE pspline
3239 
3240 !----------------------------------------------------------
3241 ! iface: interface block generated segment for subroutine
3242 ! PSPLINE ... for meaning of arguments see the documentation
3243 
3244  SUBROUTINE pspline(
3245  > N,X,Y,B,C,D,WK)
3246 
3247  IMPLICIT NONE
3248 
3249 ! argument declarations
3250  INTEGER N
3251  REAL X(N)
3252  REAL Y(N)
3253  REAL B(N)
3254  REAL C(N)
3255  REAL D(N)
3256  REAL WK(N)
3257 
3258  end subroutine PSPLINE
3259 !
3260  END INTERFACE
3261  ! block file generated by iface.for -- 25Apr2007
3262 !==============================================================
3263 ! iface -- generated interface body module: R8AKHERM1
3264 !
3265  INTERFACE r8akherm1
3266 
3267 !----------------------------------------------------------
3268 ! iface: interface block generated segment for subroutine
3269 ! R8AKHERM1 ... for meaning of arguments see the documentation
3270 
3271  SUBROUTINE r8akherm1(
3272  > X,NX,FHERM,ILINX,IER)
3273 
3274  IMPLICIT NONE
3275 
3276 ! argument declarations
3277  INTEGER NX
3278  INTEGER ILINX
3279  INTEGER IER
3280  real*8 x(nx)
3281  real*8 fherm(0:1,nx)
3282 
3283  end subroutine r8akherm1
3284 !
3285  END INTERFACE
3286 !==============================================================
3287 ! iface -- generated interface body module: R8AKHERM1P
3288 !
3289  INTERFACE r8akherm1p
3290 
3291 !----------------------------------------------------------
3292 ! iface: interface block generated segment for subroutine
3293 ! R8AKHERM1P ... for meaning of arguments see the documentation
3294 
3295  SUBROUTINE r8akherm1p(
3296  > X,NX,FHERM,ILINX,IPX,IER)
3297 
3298  IMPLICIT NONE
3299 
3300 ! argument declarations
3301  INTEGER NX
3302  INTEGER ILINX
3303  INTEGER IPX
3304  INTEGER IER
3305  REAL*8 X(NX)
3306  real*8 fherm(0:1,nx)
3307 
3308  end subroutine r8akherm1p
3309 !
3310  END INTERFACE
3311 !==============================================================
3312 ! iface -- generated interface body module: R8AKHERM0
3313 !
3314  INTERFACE r8akherm0
3315 
3316 !----------------------------------------------------------
3317 ! iface: interface block generated segment for subroutine
3318 ! R8AKHERM0 ... for meaning of arguments see the documentation
3319 
3320  SUBROUTINE r8akherm0(
3321  > CXMM,CXM,CXP,CXPP,WX,RESULT)
3322 
3323  IMPLICIT NONE
3324 
3325 ! argument declarations
3326  real*8 cxmm
3327  real*8 cxm
3328  real*8 cxp
3329  real*8 cxpp
3330  real*8 result
3331  real*8 wx(2)
3332 
3333  end subroutine r8akherm0
3334 !
3335  END INTERFACE
3336  ! block file generated by iface.for -- 25Apr2007
3337 !==============================================================
3338 ! iface -- generated interface body module: R8AKHERM2
3339 !
3340  INTERFACE r8akherm2
3341 
3342 !----------------------------------------------------------
3343 ! iface: interface block generated segment for subroutine
3344 ! R8AKHERM2 ... for meaning of arguments see the documentation
3345 
3346  SUBROUTINE r8akherm2(
3347  > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)
3348 
3349  IMPLICIT NONE
3350 
3351 ! argument declarations
3352  INTEGER NX
3353  INTEGER NY
3354  INTEGER NF2
3355  INTEGER ILINX
3356  INTEGER ILINY
3357  INTEGER IER
3358  real*8 x(nx)
3359  real*8 y(ny)
3360  real*8 fherm(0:3,nf2,ny)
3361 
3362  end subroutine r8akherm2
3363 !
3364  END INTERFACE
3365 !==============================================================
3366 ! iface -- generated interface body module: R8AKHERM2P
3367 !
3368  INTERFACE r8akherm2p
3369 
3370 !----------------------------------------------------------
3371 ! iface: interface block generated segment for subroutine
3372 ! R8AKHERM2P ... for meaning of arguments see the documentation
3373 
3374  SUBROUTINE r8akherm2p(
3375  > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IPX,IPY,IER)
3376 
3377  IMPLICIT NONE
3378 
3379 ! argument declarations
3380  INTEGER NX
3381  INTEGER NY
3382  INTEGER NF2
3383  INTEGER ILINX
3384  INTEGER ILINY
3385  INTEGER IPX
3386  INTEGER IPY
3387  INTEGER IER
3388  REAL*8 X(NX)
3389  real*8 y(ny)
3390  real*8 fherm(0:3,nf2,ny)
3391 
3392  end subroutine r8akherm2p
3393 !
3394  END INTERFACE
3395  ! block file generated by iface.for -- 25Apr2007
3396 !==============================================================
3397 ! iface -- generated interface body module: R8AKHERM3
3398 !
3399  INTERFACE r8akherm3
3400 
3401 !----------------------------------------------------------
3402 ! iface: interface block generated segment for subroutine
3403 ! R8AKHERM3 ... for meaning of arguments see the documentation
3404 
3405  SUBROUTINE r8akherm3(
3406  > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)
3407 
3408  IMPLICIT NONE
3409 
3410 ! argument declarations
3411  INTEGER NX
3412  INTEGER NY
3413  INTEGER NZ
3414  INTEGER NF2
3415  INTEGER NF3
3416  INTEGER ILINX
3417  INTEGER ILINY
3418  INTEGER ILINZ
3419  INTEGER IER
3420  real*8 x(nx)
3421  real*8 y(ny)
3422  real*8 z(nz)
3423  real*8 fherm(0:7,nf2,nf3,nz)
3424 
3425  end subroutine r8akherm3
3426 !
3427  END INTERFACE
3428 !==============================================================
3429 ! iface -- generated interface body module: R8AKHERM3P
3430 !
3431  INTERFACE r8akherm3p
3432 
3433 !----------------------------------------------------------
3434 ! iface: interface block generated segment for subroutine
3435 ! R8AKHERM3P ... for meaning of arguments see the documentation
3436 
3437  SUBROUTINE r8akherm3p(
3438  > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IPX,IPY,IPZ,IER)
3439 
3440  IMPLICIT NONE
3441 
3442 ! argument declarations
3443  INTEGER NX
3444  INTEGER NY
3445  INTEGER NZ
3446  INTEGER NF2
3447  INTEGER NF3
3448  INTEGER ILINX
3449  INTEGER ILINY
3450  INTEGER ILINZ
3451  INTEGER IPX
3452  INTEGER IPY
3453  INTEGER IPZ
3454  INTEGER IER
3455  REAL*8 X(NX)
3456  REAL*8 Y(NY)
3457  REAL*8 Z(NZ)
3458  real*8 fherm(0:7,nf2,nf3,nz)
3459 
3460  end subroutine r8akherm3p
3461 !
3462  END INTERFACE
3463  ! block file generated by iface.for -- 25Apr2007
3464 !==============================================================
3465 ! iface -- generated interface body module: R8BCSPEVAL
3466 !
3467  INTERFACE r8bcspeval
3468 
3469 !----------------------------------------------------------
3470 ! iface: interface block generated segment for subroutine
3471 ! R8BCSPEVAL ... for meaning of arguments see the documentation
3472 
3473  SUBROUTINE r8bcspeval(
3474  > XGET,YGET,ISELECT,FVAL,X,NX,Y,NY,ILINX,ILINY,F,INF3,IER)
3475 
3476  IMPLICIT NONE
3477 
3478 ! argument declarations
3479  real*8 xget
3480  real*8 yget
3481  INTEGER NX
3482  INTEGER NY
3483  INTEGER ILINX
3484  INTEGER ILINY
3485  INTEGER INF3
3486  INTEGER IER
3487  INTEGER ISELECT(6)
3488  REAL*8 FVAL(*)
3489  REAL*8 X(NX)
3490  REAL*8 Y(NY)
3491  real*8 f(4,4,inf3,ny)
3492 
3493  end subroutine r8bcspeval
3494 !
3495  END INTERFACE
3496 !==============================================================
3497 ! iface -- generated interface body module: R8BCSPEVXY
3498 !
3499  INTERFACE r8bcspevxy
3500 
3501 !----------------------------------------------------------
3502 ! iface: interface block generated segment for subroutine
3503 ! R8BCSPEVXY ... for meaning of arguments see the documentation
3504 
3505  SUBROUTINE r8bcspevxy(
3506  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,DX,DY,IER)
3507 
3508  IMPLICIT NONE
3509 
3510 ! argument declarations
3511  real*8 xget
3512  real*8 yget
3513  INTEGER NX
3514  INTEGER NY
3515  INTEGER ILINX
3516  INTEGER ILINY
3517  INTEGER I
3518  INTEGER J
3519  REAL*8 DX
3520  real*8 dy
3521  INTEGER IER
3522  REAL*8 X(NX)
3523  real*8 y(ny)
3524 
3525  end subroutine r8bcspevxy
3526 !
3527  END INTERFACE
3528 !==============================================================
3529 ! iface -- generated interface body module: R8BCSPEVFN
3530 !
3531  INTERFACE r8bcspevfn
3532 
3533 !----------------------------------------------------------
3534 ! iface: interface block generated segment for subroutine
3535 ! R8BCSPEVFN ... for meaning of arguments see the documentation
3536 
3537  SUBROUTINE r8bcspevfn(
3538  > ICT,IVEC,IVD,FVAL,IV,JV,DXV,DYV,F,INF3,NY)
3539 
3540  IMPLICIT NONE
3541 
3542 ! argument declarations
3543  INTEGER IVEC
3544  INTEGER IVD
3545  INTEGER INF3
3546  INTEGER NY
3547  INTEGER ICT(6)
3548  REAL*8 FVAL(IVD,*)
3549  INTEGER IV(IVEC)
3550  INTEGER JV(IVEC)
3551  REAL*8 DXV(IVEC)
3552  real*8 dyv(ivec)
3553  real*8 f(4,4,inf3,ny)
3554 
3555  end subroutine r8bcspevfn
3556 !
3557  END INTERFACE
3558  ! block file generated by iface.for -- 25Apr2007
3559 !==============================================================
3560 ! iface -- generated interface body module: R8BCSPGRID
3561 !
3562  INTERFACE r8bcspgrid
3563 
3564 !----------------------------------------------------------
3565 ! iface: interface block generated segment for subroutine
3566 ! R8BCSPGRID ... for meaning of arguments see the documentation
3567 
3568  SUBROUTINE r8bcspgrid(
3569  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
3570  > INF3,IWARN,IER)
3571 
3572  IMPLICIT NONE
3573 
3574 ! argument declarations
3575  INTEGER NX_NEW
3576  INTEGER NY_NEW
3577  INTEGER IF1
3578  INTEGER NX
3579  INTEGER NY
3580  INTEGER INF3
3581  INTEGER IWARN
3582  INTEGER IER
3583  REAL*8 X_NEWGRID(NX_NEW)
3584  REAL*8 Y_NEWGRID(NY_NEW)
3585  REAL*8 F_NEW(IF1,NY_NEW)
3586  real*8 xpkg(nx,4)
3587  real*8 ypkg(ny,4)
3588  real*8 fspl(4,4,inf3,ny)
3589 
3590  end subroutine r8bcspgrid
3591 !
3592  END INTERFACE
3593  ! block file generated by iface.for -- 25Apr2007
3594 !==============================================================
3595 ! iface -- generated interface body module: R8BCSPLINE
3596 !
3597  INTERFACE r8bcspline
3598 
3599 !----------------------------------------------------------
3600 ! iface: interface block generated segment for subroutine
3601 ! R8BCSPLINE ... for meaning of arguments see the documentation
3602 
3603  SUBROUTINE r8bcspline(
3604  > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,
3605  > BCTHMIN,IBCTHMAX,BCTHMAX,WK,NWK,ILINX,ILINTH,IER)
3606 
3607  IMPLICIT NONE
3608 
3609 ! argument declarations
3610  INTEGER INX
3611  INTEGER INTH
3612  INTEGER INF3
3613  INTEGER IBCXMIN
3614  INTEGER IBCXMAX
3615  INTEGER IBCTHMIN
3616  INTEGER IBCTHMAX
3617  INTEGER NWK
3618  INTEGER ILINX
3619  INTEGER ILINTH
3620  INTEGER IER
3621  REAL*8 X(INX)
3622  REAL*8 TH(INTH)
3623  REAL*8 FSPL(4,4,INF3,INTH)
3624  real*8 bcxmin(*)
3625  real*8 bcxmax(*)
3626  real*8 bcthmin(*)
3627  real*8 bcthmax(*)
3628  real*8 wk(nwk)
3629 
3630  end subroutine r8bcspline
3631 !
3632  END INTERFACE
3633  ! block file generated by iface.for -- 25Apr2007
3634 !==============================================================
3635 ! iface -- generated interface body module: R8BCSPVEC
3636 !
3637  INTERFACE r8bcspvec
3638 
3639 !----------------------------------------------------------
3640 ! iface: interface block generated segment for subroutine
3641 ! R8BCSPVEC ... for meaning of arguments see the documentation
3642 
3643  SUBROUTINE r8bcspvec(
3644  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF3,IWARN,IER)
3645 
3646  IMPLICIT NONE
3647 
3648 ! argument declarations
3649  INTEGER IVEC
3650  INTEGER IVD
3651  INTEGER NX
3652  INTEGER NY
3653  INTEGER INF3
3654  INTEGER IWARN
3655  INTEGER IER
3656  INTEGER ICT(6)
3657  real*8 xvec(ivec)
3658  real*8 yvec(ivec)
3659  real*8 fval(ivd,*)
3660  real*8 xpkg(nx,4)
3661  real*8 ypkg(ny,4)
3662  real*8 fspl(4,4,inf3,ny)
3663 
3664  end subroutine r8bcspvec
3665 !
3666  END INTERFACE
3667  ! block file generated by iface.for -- 25Apr2007
3668 !==============================================================
3669 ! iface -- generated interface body module: R8BPSPLINB
3670 !
3671  INTERFACE r8bpsplinb
3672 
3673 !----------------------------------------------------------
3674 ! iface: interface block generated segment for subroutine
3675 ! R8BPSPLINB ... for meaning of arguments see the documentation
3676 
3677  SUBROUTINE r8bpsplinb(
3678  > X,INX,TH,INTH,FSPL,INF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,NWK,
3679  > ILINX,ILINTH,IER)
3680 
3681  IMPLICIT NONE
3682 
3683 ! argument declarations
3684  INTEGER INX
3685  INTEGER INTH
3686  INTEGER INF3
3687  INTEGER IBCXMIN
3688  INTEGER IBCXMAX
3689  INTEGER NWK
3690  INTEGER ILINX
3691  INTEGER ILINTH
3692  INTEGER IER
3693  REAL*8 X(INX)
3694  real*8 th(inth)
3695  real*8 fspl(4,4,inf3,inth)
3696  real*8 bcxmin(inth)
3697  real*8 bcxmax(inth)
3698  real*8 wk(nwk)
3699 
3700  end subroutine r8bpsplinb
3701 !
3702  END INTERFACE
3703  ! block file generated by iface.for -- 25Apr2007
3704 !==============================================================
3705 ! iface -- generated interface body module: R8BPSPLINE
3706 !
3707  INTERFACE r8bpspline
3708 
3709 !----------------------------------------------------------
3710 ! iface: interface block generated segment for subroutine
3711 ! R8BPSPLINE ... for meaning of arguments see the documentation
3712 
3713  SUBROUTINE r8bpspline(
3714  > X,INX,TH,INTH,FSPL,INF3,WK,NWK,ILINX,ILINTH,IER)
3715 
3716  IMPLICIT NONE
3717 
3718 ! argument declarations
3719  INTEGER INX
3720  INTEGER INTH
3721  INTEGER INF3
3722  INTEGER NWK
3723  INTEGER ILINX
3724  INTEGER ILINTH
3725  INTEGER IER
3726  REAL*8 X(INX)
3727  real*8 th(inth)
3728  real*8 fspl(4,4,inf3,inth)
3729  real*8 wk(nwk)
3730 
3731  end subroutine r8bpspline
3732 !
3733  END INTERFACE
3734  ! block file generated by iface.for -- 25Apr2007
3735 !==============================================================
3736 ! iface -- generated interface body module: R8CSPEVAL
3737 !
3738  INTERFACE r8cspeval
3739 
3740 !----------------------------------------------------------
3741 ! iface: interface block generated segment for subroutine
3742 ! R8CSPEVAL ... for meaning of arguments see the documentation
3743 
3744  SUBROUTINE r8cspeval(
3745  > XGET,ISELECT,FVAL,X,NX,ILINX,F,IER)
3746 
3747  IMPLICIT NONE
3748 
3749 ! argument declarations
3750  real*8 xget
3751  INTEGER NX
3752  INTEGER ILINX
3753  INTEGER IER
3754  INTEGER ISELECT(3)
3755  REAL*8 FVAL(3)
3756  REAL*8 X(NX)
3757  REAL*8 F(4,NX)
3758 
3759  end subroutine r8cspeval
3760 !
3761  END INTERFACE
3762 !==============================================================
3763 ! iface -- generated interface body module: R8CSPEVX
3764 !
3765  INTERFACE r8cspevx
3766 
3767 !----------------------------------------------------------
3768 ! iface: interface block generated segment for subroutine
3769 ! R8CSPEVX ... for meaning of arguments see the documentation
3770 
3771  SUBROUTINE r8cspevx(
3772  > XGET,X,NX,ILINX,I,DX,IER)
3773 
3774  IMPLICIT NONE
3775 
3776 ! argument declarations
3777  real*8 xget
3778  INTEGER NX
3779  INTEGER ILINX
3780  INTEGER I
3781  real*8 dx
3782  INTEGER IER
3783  real*8 x(nx)
3784 
3785  end subroutine r8cspevx
3786 !
3787  END INTERFACE
3788 !==============================================================
3789 ! iface -- generated interface body module: R8CSPEVFN
3790 !
3791  INTERFACE r8cspevfn
3792 
3793 !----------------------------------------------------------
3794 ! iface: interface block generated segment for subroutine
3795 ! R8CSPEVFN ... for meaning of arguments see the documentation
3796 
3797  SUBROUTINE r8cspevfn(
3798  > ICT,IVEC,IVD,FVAL,IV,DXV,F,NX)
3799 
3800  IMPLICIT NONE
3801 
3802 ! argument declarations
3803  INTEGER IVEC
3804  INTEGER IVD
3805  INTEGER NX
3806  INTEGER ICT(3)
3807  real*8 fval(ivd,*)
3808  INTEGER IV(IVEC)
3809  real*8 dxv(ivec)
3810  real*8 f(4,nx)
3811 
3812  end subroutine r8cspevfn
3813 !
3814  END INTERFACE
3815  ! block file generated by iface.for -- 25Apr2007
3816 !==============================================================
3817 ! iface -- generated interface body module: R8CSPLINE
3818 !
3819  INTERFACE r8cspline
3820 
3821 !----------------------------------------------------------
3822 ! iface: interface block generated segment for subroutine
3823 ! R8CSPLINE ... for meaning of arguments see the documentation
3824 
3825  SUBROUTINE r8cspline(
3826  > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,IWK,ILINX,IER)
3827 
3828  IMPLICIT NONE
3829 
3830 ! argument declarations
3831  INTEGER NX
3832  INTEGER IBCXMIN
3833  REAL*8 BCXMIN
3834  INTEGER IBCXMAX
3835  REAL*8 BCXMAX
3836  INTEGER IWK
3837  INTEGER ILINX
3838  INTEGER IER
3839  REAL*8 X(NX)
3840  real*8 fspl(4,nx)
3841  real*8 wk(iwk)
3842 
3843  end subroutine r8cspline
3844 !
3845  END INTERFACE
3846  ! block file generated by iface.for -- 25Apr2007
3847 !==============================================================
3848 ! iface -- generated interface body module: R8CUBSPLB
3849 !
3850  INTERFACE r8cubsplb
3851 
3852 !----------------------------------------------------------
3853 ! iface: interface block generated segment for subroutine
3854 ! R8CUBSPLB ... for meaning of arguments see the documentation
3855 
3856  SUBROUTINE r8cubsplb(
3857  > TAU,C,N,IBCBEG,IBCEND)
3858 
3859  IMPLICIT NONE
3860 
3861 ! argument declarations
3862  INTEGER N
3863  INTEGER IBCBEG
3864  INTEGER IBCEND
3865  REAL*8 TAU(N)
3866  REAL*8 C(4,N)
3867 
3868  end subroutine r8cubsplb
3869 !
3870  END INTERFACE
3871  ! block file generated by iface.for -- 25Apr2007
3872 !==============================================================
3873 ! iface -- generated interface body module: R8DNHERM1
3874 !
3875  INTERFACE r8dnherm1
3876 
3877 !----------------------------------------------------------
3878 ! iface: interface block generated segment for subroutine
3879 ! R8DNHERM1 ... for meaning of arguments see the documentation
3880 
3881  SUBROUTINE r8dnherm1(
3882  > X,NX,FHERM,ILINX,IER)
3883 
3884  IMPLICIT NONE
3885 
3886 ! argument declarations
3887  INTEGER NX
3888  INTEGER ILINX
3889  INTEGER IER
3890  real*8 x(nx)
3891  real*8 fherm(0:1,nx)
3892 
3893  end subroutine r8dnherm1
3894 !
3895  END INTERFACE
3896  ! block file generated by iface.for -- 25Apr2007
3897 !==============================================================
3898 ! iface -- generated interface body module: R8DNHERM2
3899 !
3900  INTERFACE r8dnherm2
3901 
3902 !----------------------------------------------------------
3903 ! iface: interface block generated segment for subroutine
3904 ! R8DNHERM2 ... for meaning of arguments see the documentation
3905 
3906  SUBROUTINE r8dnherm2(
3907  > X,NX,Y,NY,FHERM,NF2,ILINX,ILINY,IER)
3908 
3909  IMPLICIT NONE
3910 
3911 ! argument declarations
3912  INTEGER NX
3913  INTEGER NY
3914  INTEGER NF2
3915  INTEGER ILINX
3916  INTEGER ILINY
3917  INTEGER IER
3918  real*8 x(nx)
3919  real*8 y(ny)
3920  real*8 fherm(0:3,nf2,ny)
3921 
3922  end subroutine r8dnherm2
3923 !
3924  END INTERFACE
3925  ! block file generated by iface.for -- 25Apr2007
3926 !==============================================================
3927 ! iface -- generated interface body module: R8DNHERM3
3928 !
3929  INTERFACE r8dnherm3
3930 
3931 !----------------------------------------------------------
3932 ! iface: interface block generated segment for subroutine
3933 ! R8DNHERM3 ... for meaning of arguments see the documentation
3934 
3935  SUBROUTINE r8dnherm3(
3936  > X,NX,Y,NY,Z,NZ,FHERM,NF2,NF3,ILINX,ILINY,ILINZ,IER)
3937 
3938  IMPLICIT NONE
3939 
3940 ! argument declarations
3941  INTEGER NX
3942  INTEGER NY
3943  INTEGER NZ
3944  INTEGER NF2
3945  INTEGER NF3
3946  INTEGER ILINX
3947  INTEGER ILINY
3948  INTEGER ILINZ
3949  INTEGER IER
3950  real*8 x(nx)
3951  real*8 y(ny)
3952  real*8 z(nz)
3953  real*8 fherm(0:7,nf2,nf3,nz)
3954 
3955  end subroutine r8dnherm3
3956 !
3957  END INTERFACE
3958  ! block file generated by iface.for -- 25Apr2007
3959 !==============================================================
3960 ! iface -- generated interface body module: R8EVBICUB
3961 !
3962  INTERFACE r8evbicub
3963 
3964 !----------------------------------------------------------
3965 ! iface: interface block generated segment for subroutine
3966 ! R8EVBICUB ... for meaning of arguments see the documentation
3967 
3968  SUBROUTINE r8evbicub(
3969  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
3970 
3971  IMPLICIT NONE
3972 
3973 ! argument declarations
3974  real*8 xget
3975  real*8 yget
3976  INTEGER NX
3977  INTEGER NY
3978  INTEGER ILINX
3979  INTEGER ILINY
3980  INTEGER INF2
3981  INTEGER IER
3982  REAL*8 X(NX)
3983  real*8 y(ny)
3984  real*8 f(0:3,inf2,ny)
3985  INTEGER ICT(6)
3986  REAL*8 FVAL(*)
3987 
3988  end subroutine R8EVBICUB
3989 !
3990  END INTERFACE
3991 !==============================================================
3992 ! iface -- generated interface body module: R8FVBICUB
3993 !
3994  INTERFACE r8fvbicub
3995 
3996 !----------------------------------------------------------
3997 ! iface: interface block generated segment for subroutine
3998 ! R8FVBICUB ... for meaning of arguments see the documentation
3999 
4000  SUBROUTINE r8fvbicub(
4001  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
4002  > NY)
4003 
4004  IMPLICIT NONE
4005 
4006 ! argument declarations
4007  INTEGER IVEC
4008  INTEGER IVECD
4009  INTEGER INF2
4010  INTEGER NY
4011  INTEGER ICT(6)
4012  REAL*8 FVAL(IVECD,*)
4013  INTEGER II(IVEC)
4014  INTEGER JJ(IVEC)
4015  REAL*8 XPARAM(IVEC)
4016  real*8 yparam(ivec)
4017  real*8 hx(ivec)
4018  real*8 hxi(ivec)
4019  real*8 hy(ivec)
4020  real*8 hyi(ivec)
4021  real*8 fin(0:3,inf2,ny)
4022 
4023  end subroutine r8fvbicub
4024 !
4025  END INTERFACE
4026 !==============================================================
4027 ! iface -- generated interface body module: R8FVBICUBX
4028 !
4029  INTERFACE r8fvbicubx
4030 
4031 !----------------------------------------------------------
4032 ! iface: interface block generated segment for subroutine
4033 ! R8FVBICUBX ... for meaning of arguments see the documentation
4034 
4035  SUBROUTINE r8fvbicubx(
4036  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
4037  > NY)
4038 
4039  IMPLICIT NONE
4040 
4041 ! argument declarations
4042  INTEGER IVEC
4043  INTEGER IVECD
4044  INTEGER JJ
4045  REAL*8 YPARAM
4046  REAL*8 HY
4047  REAL*8 HYI
4048  INTEGER INF2
4049  INTEGER NY
4050  INTEGER ICT(6)
4051  REAL*8 FVAL(IVECD,*)
4052  INTEGER II(IVEC)
4053  REAL*8 XPARAM(IVEC)
4054  REAL*8 HX(IVEC)
4055  real*8 hxi(ivec)
4056  real*8 fin(0:3,inf2,ny)
4057 
4058  end subroutine r8fvbicubx
4059 !
4060  END INTERFACE
4061  ! block file generated by iface.for -- 25Apr2007
4062 !==============================================================
4063 ! iface -- generated interface body module: R8EVINTRP2D
4064 !
4065  INTERFACE r8evintrp2d
4066 
4067 !----------------------------------------------------------
4068 ! iface: interface block generated segment for subroutine
4069 ! R8EVINTRP2D ... for meaning of arguments see the documentation
4070 
4071  SUBROUTINE r8evintrp2d(
4072  > XGET,YGET,X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,ICT,FVAL,IER)
4073 
4074  IMPLICIT NONE
4075 
4076 ! argument declarations
4077  real*8 xget
4078  real*8 yget
4079  INTEGER NX
4080  INTEGER NY
4081  INTEGER ICOEFF
4082  INTEGER IXDIM
4083  INTEGER IYDIM
4084  INTEGER IER
4085  real*8 x(nx)
4086  real*8 y(ny)
4087  INTEGER JSPLINE(2)
4088  real*8 f(icoeff,ixdim,iydim)
4089  INTEGER ICT(6)
4090  REAL*8 FVAL(6)
4091 
4092  end subroutine r8evintrp2d
4093 !
4094  END INTERFACE
4095 !==============================================================
4096 ! iface -- generated interface body module: R8FVINTRP2D
4097 !
4098  INTERFACE r8fvintrp2d
4099 
4100 !----------------------------------------------------------
4101 ! iface: interface block generated segment for subroutine
4102 ! R8FVINTRP2D ... for meaning of arguments see the documentation
4103 
4104  SUBROUTINE r8fvintrp2d(
4105  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,JSPLINE,
4106  > FIN,ICOEFF,IXDIM,IYDIM)
4107 
4108  IMPLICIT NONE
4109 
4110 ! argument declarations
4111  INTEGER IVEC
4112  INTEGER IVECD
4113  INTEGER ICOEFF
4114  INTEGER IXDIM
4115  INTEGER IYDIM
4116  INTEGER ICT(6)
4117  real*8 fval(ivecd,6)
4118  INTEGER II(IVEC)
4119  INTEGER JJ(IVEC)
4120  real*8 xparam(ivec)
4121  real*8 yparam(ivec)
4122  real*8 hx(ivec)
4123  real*8 hxi(ivec)
4124  real*8 hy(ivec)
4125  real*8 hyi(ivec)
4126  INTEGER JSPLINE(2)
4127  REAL*8 FIN(ICOEFF,IXDIM,IYDIM)
4128 
4129  end subroutine r8fvintrp2d
4130 !
4131  END INTERFACE
4132  ! block file generated by iface.for -- 25Apr2007
4133 !==============================================================
4134 ! iface -- generated interface body module: R8EVINTRP3D
4135 !
4136  INTERFACE r8evintrp3d
4137 
4138 !----------------------------------------------------------
4139 ! iface: interface block generated segment for subroutine
4140 ! R8EVINTRP3D ... for meaning of arguments see the documentation
4141 
4142  SUBROUTINE r8evintrp3d(
4143  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,
4144  > ICT,FVAL,IER)
4145 
4146  IMPLICIT NONE
4147 
4148 ! argument declarations
4149  real*8 xget
4150  real*8 yget
4151  real*8 zget
4152  INTEGER NX
4153  INTEGER NY
4154  INTEGER NZ
4155  INTEGER ICOEFF
4156  INTEGER IXDIM
4157  INTEGER IYDIM
4158  INTEGER IZDIM
4159  INTEGER IER
4160  REAL*8 X(NX)
4161  real*8 y(ny)
4162  real*8 z(nz)
4163  INTEGER JSPLINE(3)
4164  REAL*8 F(ICOEFF,IXDIM,IYDIM,IZDIM)
4165  INTEGER ICT(10)
4166  REAL*8 FVAL(10)
4167 
4168  end subroutine r8evintrp3d
4169 !
4170  END INTERFACE
4171 !==============================================================
4172 ! iface -- generated interface body module: R8FVINTRP3D
4173 !
4174  INTERFACE r8fvintrp3d
4175 
4176 !----------------------------------------------------------
4177 ! iface: interface block generated segment for subroutine
4178 ! R8FVINTRP3D ... for meaning of arguments see the documentation
4179 
4180  SUBROUTINE r8fvintrp3d(
4181  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
4182  > HZ,HZI,JSPLINE,FIN,ICOEFF,IXDIM,IYDIM,IZDIM)
4183 
4184  IMPLICIT NONE
4185 
4186 ! argument declarations
4187  INTEGER IVEC
4188  INTEGER IVECD
4189  INTEGER ICOEFF
4190  INTEGER IXDIM
4191  INTEGER IYDIM
4192  INTEGER IZDIM
4193  INTEGER ICT(10)
4194  real*8 fval(ivecd,10)
4195  INTEGER II(IVEC)
4196  INTEGER JJ(IVEC)
4197  INTEGER KK(IVEC)
4198  real*8 xparam(ivec)
4199  real*8 yparam(ivec)
4200  real*8 zparam(ivec)
4201  real*8 hx(ivec)
4202  real*8 hxi(ivec)
4203  real*8 hy(ivec)
4204  real*8 hyi(ivec)
4205  real*8 hz(ivec)
4206  real*8 hzi(ivec)
4207  INTEGER JSPLINE(3)
4208  REAL*8 FIN(ICOEFF,IXDIM,IYDIM,IZDIM)
4209 
4210  end subroutine r8fvintrp3d
4211 !
4212  END INTERFACE
4213  ! block file generated by iface.for -- 25Apr2007
4214 !==============================================================
4215 ! iface -- generated interface body module: R8EVSPLINE
4216 !
4217  INTERFACE r8evspline
4218 
4219 !----------------------------------------------------------
4220 ! iface: interface block generated segment for subroutine
4221 ! R8EVSPLINE ... for meaning of arguments see the documentation
4222 
4223  SUBROUTINE r8evspline(
4224  > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
4225 
4226  IMPLICIT NONE
4227 
4228 ! argument declarations
4229  real*8 xget
4230  INTEGER NX
4231  INTEGER ILINX
4232  INTEGER IER
4233  REAL*8 X(NX)
4234  real*8 f(0:1,nx)
4235  INTEGER ICT(3)
4236  real*8 fval(*)
4237 
4238  end subroutine r8evspline
4239 !
4240  END INTERFACE
4241 !==============================================================
4242 ! iface -- generated interface body module: R8FVSPLINE
4243 !
4244  INTERFACE r8fvspline
4245 
4246 !----------------------------------------------------------
4247 ! iface: interface block generated segment for subroutine
4248 ! R8FVSPLINE ... for meaning of arguments see the documentation
4249 
4250  SUBROUTINE r8fvspline(
4251  > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
4252 
4253  IMPLICIT NONE
4254 
4255 ! argument declarations
4256  INTEGER IVEC
4257  INTEGER IVECD
4258  INTEGER NX
4259  INTEGER ICT(3)
4260  real*8 fval(ivecd,*)
4261  INTEGER II(IVEC)
4262  real*8 xparam(ivec)
4263  real*8 hx(ivec)
4264  real*8 hxi(ivec)
4265  real*8 fin(0:1,nx)
4266 
4267  end subroutine r8fvspline
4268 !
4269  END INTERFACE
4270  ! block file generated by iface.for -- 25Apr2007
4271 !==============================================================
4272 ! iface -- generated interface body module: R8EVTRICUB
4273 !
4274  INTERFACE r8evtricub
4275 
4276 !----------------------------------------------------------
4277 ! iface: interface block generated segment for subroutine
4278 ! R8EVTRICUB ... for meaning of arguments see the documentation
4279 
4280  SUBROUTINE r8evtricub(
4281  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
4282  > FVAL,IER)
4283 
4284  IMPLICIT NONE
4285 
4286 ! argument declarations
4287  real*8 xget
4288  real*8 yget
4289  real*8 zget
4290  INTEGER NX
4291  INTEGER NY
4292  INTEGER NZ
4293  INTEGER ILINX
4294  INTEGER ILINY
4295  INTEGER ILINZ
4296  INTEGER INF2
4297  INTEGER INF3
4298  INTEGER IER
4299  real*8 x(nx)
4300  real*8 y(ny)
4301  real*8 z(nz)
4302  real*8 f(0:7,inf2,inf3,nz)
4303  INTEGER ICT(10)
4304  real*8 fval(*)
4305 
4306  end subroutine r8evtricub
4307 !
4308  END INTERFACE
4309 !==============================================================
4310 ! iface -- generated interface body module: R8FVTRICUB
4311 !
4312  INTERFACE r8fvtricub
4313 
4314 !----------------------------------------------------------
4315 ! iface: interface block generated segment for subroutine
4316 ! R8FVTRICUB ... for meaning of arguments see the documentation
4317 
4318  SUBROUTINE r8fvtricub(
4319  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
4320  > HZ,HZI,FIN,INF2,INF3,NZ)
4321 
4322  IMPLICIT NONE
4323 
4324 ! argument declarations
4325  INTEGER IVEC
4326  INTEGER IVECD
4327  INTEGER INF2
4328  INTEGER INF3
4329  INTEGER NZ
4330  INTEGER ICT(10)
4331  real*8 fval(ivecd,*)
4332  INTEGER II(IVEC)
4333  INTEGER JJ(IVEC)
4334  INTEGER KK(IVEC)
4335  real*8 xparam(ivec)
4336  real*8 yparam(ivec)
4337  real*8 zparam(ivec)
4338  real*8 hx(ivec)
4339  real*8 hxi(ivec)
4340  real*8 hy(ivec)
4341  real*8 hyi(ivec)
4342  real*8 hz(ivec)
4343  real*8 hzi(ivec)
4344  real*8 fin(0:7,inf2,inf3,nz)
4345 
4346  end subroutine r8fvtricub
4347 !
4348  END INTERFACE
4349 !==============================================================
4350 ! iface -- generated interface body module: R8FVTRICUBX
4351 !
4352  INTERFACE r8fvtricubx
4353 
4354 !----------------------------------------------------------
4355 ! iface: interface block generated segment for subroutine
4356 ! R8FVTRICUBX ... for meaning of arguments see the documentation
4357 
4358  SUBROUTINE r8fvtricubx(
4359  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
4360  > HZ,HZI,FIN,INF2,INF3,NZ)
4361 
4362  IMPLICIT NONE
4363 
4364 ! argument declarations
4365  INTEGER IVEC
4366  INTEGER IVECD
4367  INTEGER JJ
4368  INTEGER KK
4369  REAL*8 YPARAM
4370  real*8 zparam
4371  real*8 hy
4372  real*8 hyi
4373  real*8 hz
4374  real*8 hzi
4375  INTEGER INF2
4376  INTEGER INF3
4377  INTEGER NZ
4378  INTEGER ICT(10)
4379  real*8 fval(ivecd,*)
4380  INTEGER II(IVEC)
4381  real*8 xparam(ivec)
4382  real*8 hx(ivec)
4383  real*8 hxi(ivec)
4384  real*8 fin(0:7,inf2,inf3,nz)
4385 
4386  end subroutine r8fvtricubx
4387 !
4388  END INTERFACE
4389  ! block file generated by iface.for -- 25Apr2007
4390 !==============================================================
4391 ! iface -- generated interface body module: R8F2TEST
4392 !
4393  INTERFACE r8f2test
4394 
4395 !----------------------------------------------------------
4396 ! iface: interface block generated segment for subroutine
4397 ! R8F2TEST ... for meaning of arguments see the documentation
4398 
4399  SUBROUTINE r8f2test(
4400  > FUN1,FUN2,INUMP,XMIN,XMAX,YMIN,YMAX,NAME,NAMEX,NAMEY)
4401 
4402  IMPLICIT NONE
4403 
4404 ! argument declarations
4405  EXTERNAL fun1
4406  EXTERNAL fun2
4407  INTEGER INUMP
4408  REAL*8 XMIN
4409  REAL*8 XMAX
4410  real*8 ymin
4411  real*8 ymax
4412  CHARACTER*(*) NAME
4413  CHARACTER*(*) NAMEX
4414  CHARACTER*(*) NAMEY
4415 
4416  end subroutine r8f2test
4417 !
4418  END INTERFACE
4419  ! block file generated by iface.for -- 25Apr2007
4420 !==============================================================
4421 ! iface -- generated interface body module: R8F3TEST
4422 !
4423  INTERFACE r8f3test
4424 
4425 !----------------------------------------------------------
4426 ! iface: interface block generated segment for subroutine
4427 ! R8F3TEST ... for meaning of arguments see the documentation
4428 
4429  SUBROUTINE r8f3test(
4430  > FUN1,FUN2,ID,INUMP,XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,NAME,NAMEX,
4431  > NAMEY,NAMEZ)
4432 
4433  IMPLICIT NONE
4434 
4435 ! argument declarations
4436  EXTERNAL fun1
4437  EXTERNAL fun2
4438  INTEGER ID
4439  INTEGER INUMP
4440  REAL*8 XMIN
4441  REAL*8 XMAX
4442  real*8 ymin
4443  real*8 ymax
4444  real*8 zmin
4445  real*8 zmax
4446  CHARACTER*(*) NAME
4447  CHARACTER*(*) NAMEX
4448  CHARACTER*(*) NAMEY
4449  CHARACTER*(*) NAMEZ
4450 
4451  end subroutine r8f3test
4452 !
4453  END INTERFACE
4454  ! block file generated by iface.for -- 25Apr2007
4455 !==============================================================
4456 ! iface -- generated interface body module: R8GENXPKG
4457 !
4458  INTERFACE r8genxpkg
4459 
4460 !----------------------------------------------------------
4461 ! iface: interface block generated segment for subroutine
4462 ! R8GENXPKG ... for meaning of arguments see the documentation
4463 
4464  SUBROUTINE r8genxpkg(
4465  > NX,X,XPKG,IPER,IMSG,ITOL,ZTOL,IALG,IER)
4466 
4467  IMPLICIT NONE
4468 
4469 ! argument declarations
4470  INTEGER NX
4471  INTEGER IPER
4472  INTEGER IMSG
4473  INTEGER ITOL
4474  real*8 ztol
4475  INTEGER IALG
4476  INTEGER IER
4477  real*8 x(nx)
4478  real*8 xpkg(nx,4)
4479 
4480  end subroutine r8genxpkg
4481 !
4482  END INTERFACE
4483  ! block file generated by iface.for -- 25Apr2007
4484 !==============================================================
4485 ! iface -- generated interface body module: R8GRIDBICUB
4486 !
4487  INTERFACE r8gridbicub
4488 
4489 !----------------------------------------------------------
4490 ! iface: interface block generated segment for subroutine
4491 ! R8GRIDBICUB ... for meaning of arguments see the documentation
4492 
4493  SUBROUTINE r8gridbicub(
4494  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
4495  > INF3,IWARN,IER)
4496 
4497  IMPLICIT NONE
4498 
4499 ! argument declarations
4500  INTEGER NX_NEW
4501  INTEGER NY_NEW
4502  INTEGER IF1
4503  INTEGER NX
4504  INTEGER NY
4505  INTEGER INF3
4506  INTEGER IWARN
4507  INTEGER IER
4508  REAL*8 X_NEWGRID(NX_NEW)
4509  REAL*8 Y_NEWGRID(NY_NEW)
4510  REAL*8 F_NEW(IF1,NY_NEW)
4511  real*8 xpkg(nx,4)
4512  real*8 ypkg(ny,4)
4513  real*8 fspl(4,inf3,ny)
4514 
4515  end subroutine r8gridbicub
4516 !
4517  END INTERFACE
4518  ! block file generated by iface.for -- 25Apr2007
4519 !==============================================================
4520 ! iface -- generated interface body module: R8GRIDHERM1
4521 !
4522  INTERFACE r8gridherm1
4523 
4524 !----------------------------------------------------------
4525 ! iface: interface block generated segment for subroutine
4526 ! R8GRIDHERM1 ... for meaning of arguments see the documentation
4527 
4528  SUBROUTINE r8gridherm1(
4529  > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
4530 
4531  IMPLICIT NONE
4532 
4533 ! argument declarations
4534  INTEGER NX_NEW
4535  INTEGER NX
4536  INTEGER IWARN
4537  INTEGER IER
4538  real*8 x_newgrid(nx_new)
4539  real*8 f_new(nx_new)
4540  real*8 xpkg(nx,4)
4541  real*8 fspl(nx,2)
4542 
4543  end subroutine r8gridherm1
4544 !
4545  END INTERFACE
4546  ! block file generated by iface.for -- 25Apr2007
4547 !==============================================================
4548 ! iface -- generated interface body module: R8GRIDHERM2
4549 !
4550  INTERFACE r8gridherm2
4551 
4552 !----------------------------------------------------------
4553 ! iface: interface block generated segment for subroutine
4554 ! R8GRIDHERM2 ... for meaning of arguments see the documentation
4555 
4556  SUBROUTINE r8gridherm2(
4557  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
4558  > INF2,IWARN,IER)
4559 
4560  IMPLICIT NONE
4561 
4562 ! argument declarations
4563  INTEGER NX_NEW
4564  INTEGER NY_NEW
4565  INTEGER IF1
4566  INTEGER NX
4567  INTEGER NY
4568  INTEGER INF2
4569  INTEGER IWARN
4570  INTEGER IER
4571  real*8 x_newgrid(nx_new)
4572  real*8 y_newgrid(ny_new)
4573  real*8 f_new(if1,ny_new)
4574  real*8 xpkg(nx,4)
4575  real*8 ypkg(ny,4)
4576  real*8 fspl(0:3,inf2,ny)
4577 
4578  end subroutine r8gridherm2
4579 !
4580  END INTERFACE
4581  ! block file generated by iface.for -- 25Apr2007
4582 !==============================================================
4583 ! iface -- generated interface body module: R8GRIDHERM3
4584 !
4585  INTERFACE r8gridherm3
4586 
4587 !----------------------------------------------------------
4588 ! iface: interface block generated segment for subroutine
4589 ! R8GRIDHERM3 ... for meaning of arguments see the documentation
4590 
4591  SUBROUTINE r8gridherm3(
4592  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
4593  > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)
4594 
4595  IMPLICIT NONE
4596 
4597 ! argument declarations
4598  INTEGER NX_NEW
4599  INTEGER NY_NEW
4600  INTEGER NZ_NEW
4601  INTEGER IF1
4602  INTEGER IF2
4603  INTEGER NX
4604  INTEGER NY
4605  INTEGER NZ
4606  INTEGER INF2
4607  INTEGER INF3
4608  INTEGER IWARN
4609  INTEGER IER
4610  real*8 x_newgrid(nx_new)
4611  real*8 y_newgrid(ny_new)
4612  real*8 z_newgrid(nz_new)
4613  real*8 f_new(if1,if2,nz_new)
4614  real*8 xpkg(nx,4)
4615  real*8 ypkg(ny,4)
4616  real*8 zpkg(nz,4)
4617  real*8 fspl(0:7,inf2,inf3,nz)
4618 
4619  end subroutine r8gridherm3
4620 !
4621  END INTERFACE
4622  ! block file generated by iface.for -- 25Apr2007
4623 !==============================================================
4624 ! iface -- generated interface body module: R8GRIDINTRP2D
4625 !
4626  INTERFACE r8gridintrp2d
4627 
4628 !----------------------------------------------------------
4629 ! iface: interface block generated segment for subroutine
4630 ! R8GRIDINTRP2D ... for meaning of arguments see the documentation
4631 
4632  SUBROUTINE r8gridintrp2d(
4633  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,
4634  > JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IWARN,IER)
4635 
4636  IMPLICIT NONE
4637 
4638 ! argument declarations
4639  INTEGER NX_NEW
4640  INTEGER NY_NEW
4641  INTEGER IF1
4642  INTEGER NX
4643  INTEGER NY
4644  INTEGER ICOEFF
4645  INTEGER IXDIM
4646  INTEGER IYDIM
4647  INTEGER IWARN
4648  INTEGER IER
4649  real*8 x_newgrid(nx_new)
4650  real*8 y_newgrid(ny_new)
4651  real*8 f_new(if1,ny_new)
4652  real*8 xpkg(nx,4)
4653  real*8 ypkg(ny,4)
4654  INTEGER JSPLINE(2)
4655  REAL*8 FSPL(ICOEFF,IXDIM,IYDIM)
4656 
4657  end subroutine R8GRIDINTRP2D
4658 !
4659  END INTERFACE
4660  ! block file generated by iface.for -- 25Apr2007
4661 !==============================================================
4662 ! iface -- generated interface body module: R8GRIDINTRP3D
4663 !
4664  INTERFACE r8gridintrp3d
4665 
4666 !----------------------------------------------------------
4667 ! iface: interface block generated segment for subroutine
4668 ! R8GRIDINTRP3D ... for meaning of arguments see the documentation
4669 
4670  SUBROUTINE r8gridintrp3d(
4671  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
4672  > NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,
4673  > IWARN,IER)
4674 
4675  IMPLICIT NONE
4676 
4677 ! argument declarations
4678  INTEGER NX_NEW
4679  INTEGER NY_NEW
4680  INTEGER NZ_NEW
4681  INTEGER IF1
4682  INTEGER IF2
4683  INTEGER NX
4684  INTEGER NY
4685  INTEGER NZ
4686  INTEGER ICOEFF
4687  INTEGER IXDIM
4688  INTEGER IYDIM
4689  INTEGER IZDIM
4690  INTEGER IWARN
4691  INTEGER IER
4692  real*8 x_newgrid(nx_new)
4693  real*8 y_newgrid(ny_new)
4694  real*8 z_newgrid(nz_new)
4695  real*8 f_new(if1,if2,nz_new)
4696  real*8 xpkg(nx,4)
4697  real*8 ypkg(ny,4)
4698  real*8 zpkg(nz,4)
4699  INTEGER JSPLINE(3)
4700  real*8 fspl(icoeff,ixdim,iydim,izdim)
4701 
4702  end subroutine r8gridintrp3d
4703 !
4704  END INTERFACE
4705  ! block file generated by iface.for -- 25Apr2007
4706 !==============================================================
4707 ! iface -- generated interface body module: R8GRIDPC1
4708 !
4709  INTERFACE r8gridpc1
4710 
4711 !----------------------------------------------------------
4712 ! iface: interface block generated segment for subroutine
4713 ! R8GRIDPC1 ... for meaning of arguments see the documentation
4714 
4715  SUBROUTINE r8gridpc1(
4716  > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
4717 
4718  IMPLICIT NONE
4719 
4720 ! argument declarations
4721  INTEGER NX_NEW
4722  INTEGER NX
4723  INTEGER IWARN
4724  INTEGER IER
4725  REAL*8 X_NEWGRID(NX_NEW)
4726  REAL*8 F_NEW(NX_NEW)
4727  REAL*8 XPKG(NX,4)
4728  real*8 fspl(nx)
4729 
4730  end subroutine r8gridpc1
4731 !
4732  END INTERFACE
4733  ! block file generated by iface.for -- 25Apr2007
4734 !==============================================================
4735 ! iface -- generated interface body module: R8GRIDPC2
4736 !
4737  INTERFACE r8gridpc2
4738 
4739 !----------------------------------------------------------
4740 ! iface: interface block generated segment for subroutine
4741 ! R8GRIDPC2 ... for meaning of arguments see the documentation
4742 
4743  SUBROUTINE r8gridpc2(
4744  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,F_NEW,IF1,NX,XPKG,NY,YPKG,FSPL,
4745  > INF1,IWARN,IER)
4746 
4747  IMPLICIT NONE
4748 
4749 ! argument declarations
4750  INTEGER NX_NEW
4751  INTEGER NY_NEW
4752  INTEGER IF1
4753  INTEGER NX
4754  INTEGER NY
4755  INTEGER INF1
4756  INTEGER IWARN
4757  INTEGER IER
4758  real*8 x_newgrid(nx_new)
4759  real*8 y_newgrid(ny_new)
4760  real*8 f_new(if1,ny_new)
4761  real*8 xpkg(nx,4)
4762  real*8 ypkg(ny,4)
4763  real*8 fspl(inf1,ny)
4764 
4765  end subroutine r8gridpc2
4766 !
4767  END INTERFACE
4768  ! block file generated by iface.for -- 25Apr2007
4769 !==============================================================
4770 ! iface -- generated interface body module: R8GRIDPC3
4771 !
4772  INTERFACE r8gridpc3
4773 
4774 !----------------------------------------------------------
4775 ! iface: interface block generated segment for subroutine
4776 ! R8GRIDPC3 ... for meaning of arguments see the documentation
4777 
4778  SUBROUTINE r8gridpc3(
4779  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
4780  > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF2,INF3,IWARN,IER)
4781 
4782  IMPLICIT NONE
4783 
4784 ! argument declarations
4785  INTEGER NX_NEW
4786  INTEGER NY_NEW
4787  INTEGER NZ_NEW
4788  INTEGER IF1
4789  INTEGER IF2
4790  INTEGER NX
4791  INTEGER NY
4792  INTEGER NZ
4793  INTEGER INF2
4794  INTEGER INF3
4795  INTEGER IWARN
4796  INTEGER IER
4797  REAL*8 X_NEWGRID(NX_NEW)
4798  REAL*8 Y_NEWGRID(NY_NEW)
4799  real*8 z_newgrid(nz_new)
4800  real*8 f_new(if1,if2,nz_new)
4801  real*8 xpkg(nx,4)
4802  real*8 ypkg(ny,4)
4803  real*8 zpkg(nz,4)
4804  real*8 fspl(inf2,inf3,nz)
4805 
4806  end subroutine r8gridpc3
4807 !
4808  END INTERFACE
4809  ! block file generated by iface.for -- 25Apr2007
4810 !==============================================================
4811 ! iface -- generated interface body module: R8GRIDSPLINE
4812 !
4813  INTERFACE r8gridspline
4814 
4815 !----------------------------------------------------------
4816 ! iface: interface block generated segment for subroutine
4817 ! R8GRIDSPLINE ... for meaning of arguments see the documentation
4818 
4819  SUBROUTINE r8gridspline(
4820  > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
4821 
4822  IMPLICIT NONE
4823 
4824 ! argument declarations
4825  INTEGER NX_NEW
4826  INTEGER NX
4827  INTEGER IWARN
4828  INTEGER IER
4829  REAL*8 X_NEWGRID(NX_NEW)
4830  REAL*8 F_NEW(NX_NEW)
4831  real*8 xpkg(nx,4)
4832  real*8 fspl(nx,2)
4833 
4834  end subroutine r8gridspline
4835 !
4836  END INTERFACE
4837  ! block file generated by iface.for -- 25Apr2007
4838 !==============================================================
4839 ! iface -- generated interface body module: R8GRIDTRICUB
4840 !
4841  INTERFACE r8gridtricub
4842 
4843 !----------------------------------------------------------
4844 ! iface: interface block generated segment for subroutine
4845 ! R8GRIDTRICUB ... for meaning of arguments see the documentation
4846 
4847  SUBROUTINE r8gridtricub(
4848  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
4849  > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)
4850 
4851  IMPLICIT NONE
4852 
4853 ! argument declarations
4854  INTEGER NX_NEW
4855  INTEGER NY_NEW
4856  INTEGER NZ_NEW
4857  INTEGER IF1
4858  INTEGER IF2
4859  INTEGER NX
4860  INTEGER NY
4861  INTEGER NZ
4862  INTEGER INF4
4863  INTEGER INF5
4864  INTEGER IWARN
4865  INTEGER IER
4866  real*8 x_newgrid(nx_new)
4867  real*8 y_newgrid(ny_new)
4868  real*8 z_newgrid(nz_new)
4869  real*8 f_new(if1,if2,nz_new)
4870  real*8 xpkg(nx,4)
4871  real*8 ypkg(ny,4)
4872  real*8 zpkg(nz,4)
4873  real*8 fspl(8,inf4,inf5,nz)
4874 
4875  end subroutine r8gridtricub
4876 !
4877  END INTERFACE
4878  ! block file generated by iface.for -- 25Apr2007
4879 !==============================================================
4880 ! iface -- generated interface body module: R8HERM1EV
4881 !
4882  INTERFACE r8herm1ev
4883 
4884 !----------------------------------------------------------
4885 ! iface: interface block generated segment for subroutine
4886 ! R8HERM1EV ... for meaning of arguments see the documentation
4887 
4888  SUBROUTINE r8herm1ev(
4889  > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
4890 
4891  IMPLICIT NONE
4892 
4893 ! argument declarations
4894  real*8 xget
4895  INTEGER NX
4896  INTEGER ILINX
4897  INTEGER IER
4898  real*8 x(nx)
4899  real*8 f(0:1,nx)
4900  INTEGER ICT(2)
4901  real*8 fval(*)
4902 
4903  end subroutine r8herm1ev
4904 !
4905  END INTERFACE
4906 !==============================================================
4907 ! iface -- generated interface body module: R8HERM1X
4908 !
4909  INTERFACE r8herm1x
4910 
4911 !----------------------------------------------------------
4912 ! iface: interface block generated segment for subroutine
4913 ! R8HERM1X ... for meaning of arguments see the documentation
4914 
4915  SUBROUTINE r8herm1x(
4916  > XGET,X,NX,ILINX,I,XPARAM,HX,HXI,IER)
4917 
4918  IMPLICIT NONE
4919 
4920 ! argument declarations
4921  real*8 xget
4922  INTEGER NX
4923  INTEGER ILINX
4924  INTEGER I
4925  REAL*8 XPARAM
4926  REAL*8 HX
4927  real*8 hxi
4928  INTEGER IER
4929  REAL*8 X(NX)
4930 
4931  end subroutine r8herm1x
4932 !
4933  END INTERFACE
4934 !==============================================================
4935 ! iface -- generated interface body module: R8HERM1FCN
4936 !
4937  INTERFACE r8herm1fcn
4938 
4939 !----------------------------------------------------------
4940 ! iface: interface block generated segment for subroutine
4941 ! R8HERM1FCN ... for meaning of arguments see the documentation
4942 
4943  SUBROUTINE r8herm1fcn(
4944  > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
4945 
4946  IMPLICIT NONE
4947 
4948 ! argument declarations
4949  INTEGER IVEC
4950  INTEGER IVECD
4951  INTEGER NX
4952  INTEGER ICT(2)
4953  real*8 fval(ivecd,*)
4954  INTEGER II(IVEC)
4955  REAL*8 XPARAM(IVEC)
4956  REAL*8 HX(IVEC)
4957  real*8 hxi(ivec)
4958  real*8 fin(0:1,nx)
4959 
4960  end subroutine r8herm1fcn
4961 !
4962  END INTERFACE
4963  ! block file generated by iface.for -- 25Apr2007
4964 !==============================================================
4965 ! iface -- generated interface body module: R8HERM2EV
4966 !
4967  INTERFACE r8herm2ev
4968 
4969 !----------------------------------------------------------
4970 ! iface: interface block generated segment for subroutine
4971 ! R8HERM2EV ... for meaning of arguments see the documentation
4972 
4973  SUBROUTINE r8herm2ev(
4974  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
4975 
4976  IMPLICIT NONE
4977 
4978 ! argument declarations
4979  real*8 xget
4980  real*8 yget
4981  INTEGER NX
4982  INTEGER NY
4983  INTEGER ILINX
4984  INTEGER ILINY
4985  INTEGER INF2
4986  INTEGER IER
4987  REAL*8 X(NX)
4988  REAL*8 Y(NY)
4989  real*8 f(0:3,inf2,ny)
4990  INTEGER ICT(4)
4991  REAL*8 FVAL(*)
4992 
4993  end subroutine r8herm2ev
4994 !
4995  END INTERFACE
4996 !==============================================================
4997 ! iface -- generated interface body module: R8HERM2XY
4998 !
4999  INTERFACE r8herm2xy
5000 
5001 !----------------------------------------------------------
5002 ! iface: interface block generated segment for subroutine
5003 ! R8HERM2XY ... for meaning of arguments see the documentation
5004 
5005  SUBROUTINE r8herm2xy(
5006  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,I,J,XPARAM,YPARAM,HX,HXI,HY,HYI,
5007  > IER)
5008 
5009  IMPLICIT NONE
5010 
5011 ! argument declarations
5012  real*8 xget
5013  real*8 yget
5014  INTEGER NX
5015  INTEGER NY
5016  INTEGER ILINX
5017  INTEGER ILINY
5018  INTEGER I
5019  INTEGER J
5020  REAL*8 XPARAM
5021  real*8 yparam
5022  real*8 hx
5023  real*8 hxi
5024  real*8 hy
5025  real*8 hyi
5026  INTEGER IER
5027  REAL*8 X(NX)
5028  REAL*8 Y(NY)
5029 
5030  end subroutine R8HERM2XY
5031 !
5032  END INTERFACE
5033 !==============================================================
5034 ! iface -- generated interface body module: R8HERM2FCN
5035 !
5036  INTERFACE r8herm2fcn
5037 
5038 !----------------------------------------------------------
5039 ! iface: interface block generated segment for subroutine
5040 ! R8HERM2FCN ... for meaning of arguments see the documentation
5041 
5042  SUBROUTINE r8herm2fcn(
5043  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
5044  > NY)
5045 
5046  IMPLICIT NONE
5047 
5048 ! argument declarations
5049  INTEGER IVEC
5050  INTEGER IVECD
5051  INTEGER INF2
5052  INTEGER NY
5053  INTEGER ICT(4)
5054  REAL*8 FVAL(IVECD,*)
5055  INTEGER II(IVEC)
5056  INTEGER JJ(IVEC)
5057  REAL*8 XPARAM(IVEC)
5058  REAL*8 YPARAM(IVEC)
5059  REAL*8 HX(IVEC)
5060  REAL*8 HXI(IVEC)
5061  REAL*8 HY(IVEC)
5062  real*8 hyi(ivec)
5063  real*8 fin(0:3,inf2,ny)
5064 
5065  end subroutine r8herm2fcn
5066 !
5067  END INTERFACE
5068 !==============================================================
5069 ! iface -- generated interface body module: R8HERM2FCNX
5070 !
5071  INTERFACE r8herm2fcnx
5072 
5073 !----------------------------------------------------------
5074 ! iface: interface block generated segment for subroutine
5075 ! R8HERM2FCNX ... for meaning of arguments see the documentation
5076 
5077  SUBROUTINE r8herm2fcnx(
5078  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
5079  > NY)
5080 
5081  IMPLICIT NONE
5082 
5083 ! argument declarations
5084  INTEGER IVEC
5085  INTEGER IVECD
5086  INTEGER JJ
5087  real*8 yparam
5088  real*8 hy
5089  real*8 hyi
5090  INTEGER INF2
5091  INTEGER NY
5092  INTEGER ICT(4)
5093  REAL*8 FVAL(IVECD,*)
5094  INTEGER II(IVEC)
5095  REAL*8 XPARAM(IVEC)
5096  REAL*8 HX(IVEC)
5097  REAL*8 HXI(IVEC)
5098  REAL*8 FIN(0:3,INF2,NY)
5099 
5100  end subroutine r8herm2fcnx
5101 !
5102  END INTERFACE
5103  ! block file generated by iface.for -- 25Apr2007
5104 !==============================================================
5105 ! iface -- generated interface body module: R8HERM3EV
5106 !
5107  INTERFACE r8herm3ev
5108 
5109 !----------------------------------------------------------
5110 ! iface: interface block generated segment for subroutine
5111 ! R8HERM3EV ... for meaning of arguments see the documentation
5112 
5113  SUBROUTINE r8herm3ev(
5114  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
5115  > FVAL,IER)
5116 
5117  IMPLICIT NONE
5118 
5119 ! argument declarations
5120  real*8 xget
5121  real*8 yget
5122  real*8 zget
5123  INTEGER NX
5124  INTEGER NY
5125  INTEGER NZ
5126  INTEGER ILINX
5127  INTEGER ILINY
5128  INTEGER ILINZ
5129  INTEGER INF2
5130  INTEGER INF3
5131  INTEGER IER
5132  REAL*8 X(NX)
5133  REAL*8 Y(NY)
5134  real*8 z(nz)
5135  real*8 f(0:7,inf2,inf3,nz)
5136  INTEGER ICT(8)
5137  real*8 fval(*)
5138 
5139  end subroutine r8herm3ev
5140 !
5141  END INTERFACE
5142 !==============================================================
5143 ! iface -- generated interface body module: R8HERM3XYZ
5144 !
5145  INTERFACE r8herm3xyz
5146 
5147 !----------------------------------------------------------
5148 ! iface: interface block generated segment for subroutine
5149 ! R8HERM3XYZ ... for meaning of arguments see the documentation
5150 
5151  SUBROUTINE r8herm3xyz(
5152  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,XPARAM,
5153  > YPARAM,ZPARAM,HX,HXI,HY,HYI,HZ,HZI,IER)
5154 
5155  IMPLICIT NONE
5156 
5157 ! argument declarations
5158  real*8 xget
5159  real*8 yget
5160  real*8 zget
5161  INTEGER NX
5162  INTEGER NY
5163  INTEGER NZ
5164  INTEGER ILINX
5165  INTEGER ILINY
5166  INTEGER ILINZ
5167  INTEGER I
5168  INTEGER J
5169  INTEGER K
5170  real*8 xparam
5171  real*8 yparam
5172  real*8 zparam
5173  real*8 hx
5174  real*8 hxi
5175  real*8 hy
5176  real*8 hyi
5177  real*8 hz
5178  real*8 hzi
5179  INTEGER IER
5180  REAL*8 X(NX)
5181  real*8 y(ny)
5182  real*8 z(nz)
5183 
5184  end subroutine r8herm3xyz
5185 !
5186  END INTERFACE
5187 !==============================================================
5188 ! iface -- generated interface body module: R8HERM3FCN
5189 !
5190  INTERFACE r8herm3fcn
5191 
5192 !----------------------------------------------------------
5193 ! iface: interface block generated segment for subroutine
5194 ! R8HERM3FCN ... for meaning of arguments see the documentation
5195 
5196  SUBROUTINE r8herm3fcn(
5197  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
5198  > HZ,HZI,FIN,INF2,INF3,NZ)
5199 
5200  IMPLICIT NONE
5201 
5202 ! argument declarations
5203  INTEGER IVEC
5204  INTEGER IVECD
5205  INTEGER INF2
5206  INTEGER INF3
5207  INTEGER NZ
5208  INTEGER ICT(8)
5209  real*8 fval(ivecd,*)
5210  INTEGER II(IVEC)
5211  INTEGER JJ(IVEC)
5212  INTEGER KK(IVEC)
5213  real*8 xparam(ivec)
5214  real*8 yparam(ivec)
5215  real*8 zparam(ivec)
5216  real*8 hx(ivec)
5217  real*8 hxi(ivec)
5218  real*8 hy(ivec)
5219  real*8 hyi(ivec)
5220  real*8 hz(ivec)
5221  real*8 hzi(ivec)
5222  real*8 fin(0:7,inf2,inf3,nz)
5223 
5224  end subroutine r8herm3fcn
5225 !
5226  END INTERFACE
5227 !==============================================================
5228 ! iface -- generated interface body module: R8HERM3FCNX
5229 !
5230  INTERFACE r8herm3fcnx
5231 
5232 !----------------------------------------------------------
5233 ! iface: interface block generated segment for subroutine
5234 ! R8HERM3FCNX ... for meaning of arguments see the documentation
5235 
5236  SUBROUTINE r8herm3fcnx(
5237  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
5238  > HZ,HZI,FIN,INF2,INF3,NZ)
5239 
5240  IMPLICIT NONE
5241 
5242 ! argument declarations
5243  INTEGER IVEC
5244  INTEGER IVECD
5245  INTEGER JJ
5246  INTEGER KK
5247  real*8 yparam
5248  real*8 zparam
5249  real*8 hy
5250  real*8 hyi
5251  real*8 hz
5252  real*8 hzi
5253  INTEGER INF2
5254  INTEGER INF3
5255  INTEGER NZ
5256  INTEGER ICT(8)
5257  real*8 fval(ivecd,*)
5258  INTEGER II(IVEC)
5259  REAL*8 XPARAM(IVEC)
5260  REAL*8 HX(IVEC)
5261  real*8 hxi(ivec)
5262  real*8 fin(0:7,inf2,inf3,nz)
5263 
5264  end subroutine r8herm3fcnx
5265 !
5266  END INTERFACE
5267  ! block file generated by iface.for -- 25Apr2007
5268 !==============================================================
5269 ! iface -- generated interface body module: R8MKBICUB
5270 !
5271  INTERFACE r8mkbicub
5272 
5273 !----------------------------------------------------------
5274 ! iface: interface block generated segment for subroutine
5275 ! R8MKBICUB ... for meaning of arguments see the documentation
5276 
5277  SUBROUTINE r8mkbicub(
5278  > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,
5279  > IBCYMAX,BCYMAX,ILINX,ILINY,IER)
5280 
5281  IMPLICIT NONE
5282 
5283 ! argument declarations
5284  INTEGER NX
5285  INTEGER NY
5286  INTEGER NF2
5287  INTEGER IBCXMIN
5288  INTEGER IBCXMAX
5289  INTEGER IBCYMIN
5290  INTEGER IBCYMAX
5291  INTEGER ILINX
5292  INTEGER ILINY
5293  INTEGER IER
5294  real*8 x(nx)
5295  real*8 y(ny)
5296  real*8 f(4,nf2,ny)
5297  real*8 bcxmin(ny)
5298  real*8 bcxmax(ny)
5299  real*8 bcymin(nx)
5300  real*8 bcymax(nx)
5301 
5302  end subroutine r8mkbicub
5303 !
5304  END INTERFACE
5305  ! block file generated by iface.for -- 25Apr2007
5306 !==============================================================
5307 ! iface -- generated interface body module: R8MKBICUBW
5308 !
5309  INTERFACE r8mkbicubw
5310 
5311 !----------------------------------------------------------
5312 ! iface: interface block generated segment for subroutine
5313 ! R8MKBICUBW ... for meaning of arguments see the documentation
5314 
5315  SUBROUTINE r8mkbicubw(
5316  > X,NX,Y,NY,F,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,
5317  > IBCYMAX,BCYMAX,WK,NWK,ILINX,ILINY,IER)
5318 
5319  IMPLICIT NONE
5320 
5321 ! argument declarations
5322  INTEGER NX
5323  INTEGER NY
5324  INTEGER NF2
5325  INTEGER IBCXMIN
5326  INTEGER IBCXMAX
5327  INTEGER IBCYMIN
5328  INTEGER IBCYMAX
5329  INTEGER NWK
5330  INTEGER ILINX
5331  INTEGER ILINY
5332  INTEGER IER
5333  REAL*8 X(NX)
5334  REAL*8 Y(NY)
5335  REAL*8 F(4,NF2,NY)
5336  real*8 bcxmin(ny)
5337  real*8 bcxmax(ny)
5338  real*8 bcymin(nx)
5339  real*8 bcymax(nx)
5340  real*8 wk(nwk)
5341 
5342  end subroutine r8mkbicubw
5343 !
5344  END INTERFACE
5345 !==============================================================
5346 ! iface -- generated interface body module: R8MKBICOP
5347 !
5348  INTERFACE r8mkbicop
5349 
5350 !----------------------------------------------------------
5351 ! iface: interface block generated segment for subroutine
5352 ! R8MKBICOP ... for meaning of arguments see the documentation
5353 
5354  SUBROUTINE r8mkbicop(
5355  > FIN,NF2,FWK,NX,NY)
5356 
5357  IMPLICIT NONE
5358 
5359 ! argument declarations
5360  INTEGER NF2
5361  INTEGER NX
5362  INTEGER NY
5363  real*8 fin(4,nf2,ny)
5364  real*8 fwk(4,4,nx,ny)
5365 
5366  end subroutine r8mkbicop
5367 !
5368  END INTERFACE
5369 !==============================================================
5370 ! iface -- generated interface body module: R8MKBICON
5371 !
5372  INTERFACE r8mkbicon
5373 
5374 !----------------------------------------------------------
5375 ! iface: interface block generated segment for subroutine
5376 ! R8MKBICON ... for meaning of arguments see the documentation
5377 
5378  SUBROUTINE r8mkbicon(
5379  > FIN,NF2,FWK,NX,NY,HXLAST,HYLAST)
5380 
5381  IMPLICIT NONE
5382 
5383 ! argument declarations
5384  INTEGER NF2
5385  INTEGER NX
5386  INTEGER NY
5387  REAL*8 HXLAST
5388  REAL*8 HYLAST
5389  real*8 fin(4,nf2,ny)
5390  real*8 fwk(4,4,nx,ny)
5391 
5392  end subroutine r8mkbicon
5393 !
5394  END INTERFACE
5395  ! block file generated by iface.for -- 25Apr2007
5396 !==============================================================
5397 ! iface -- generated interface body module: R8MKHERM1
5398 !
5399  INTERFACE r8mkherm1
5400 
5401 !----------------------------------------------------------
5402 ! iface: interface block generated segment for subroutine
5403 ! R8MKHERM1 ... for meaning of arguments see the documentation
5404 
5405  SUBROUTINE r8mkherm1(
5406  > FUN,X,NX,FHERM)
5407 
5408  IMPLICIT NONE
5409 
5410 ! argument declarations
5411  real*8 fun
5412  EXTERNAL fun
5413  INTEGER NX
5414  real*8 x(nx)
5415  real*8 fherm(0:1,nx)
5416 
5417  end subroutine r8mkherm1
5418 !
5419  END INTERFACE
5420  ! block file generated by iface.for -- 25Apr2007
5421 !==============================================================
5422 ! iface -- generated interface body module: R8MKHERM2
5423 !
5424  INTERFACE r8mkherm2
5425 
5426 !----------------------------------------------------------
5427 ! iface: interface block generated segment for subroutine
5428 ! R8MKHERM2 ... for meaning of arguments see the documentation
5429 
5430  SUBROUTINE r8mkherm2(
5431  > FUN,X,NX,Y,NY,FHERM)
5432 
5433  IMPLICIT NONE
5434 
5435 ! argument declarations
5436  real*8 fun
5437  EXTERNAL fun
5438  INTEGER NX
5439  INTEGER NY
5440  real*8 x(nx)
5441  real*8 y(ny)
5442  real*8 fherm(0:3,nx,ny)
5443 
5444  end subroutine r8mkherm2
5445 !
5446  END INTERFACE
5447  ! block file generated by iface.for -- 25Apr2007
5448 !==============================================================
5449 ! iface -- generated interface body module: R8MKHERM3
5450 !
5451  INTERFACE r8mkherm3
5452 
5453 !----------------------------------------------------------
5454 ! iface: interface block generated segment for subroutine
5455 ! R8MKHERM3 ... for meaning of arguments see the documentation
5456 
5457  SUBROUTINE r8mkherm3(
5458  > FUN,X,NX,Y,NY,Z,NZ,FHERM)
5459 
5460  IMPLICIT NONE
5461 
5462 ! argument declarations
5463  real*8 fun
5464  EXTERNAL fun
5465  INTEGER NX
5466  INTEGER NY
5467  INTEGER NZ
5468  REAL*8 X(NX)
5469  REAL*8 Y(NY)
5470  real*8 z(nz)
5471  real*8 fherm(0:7,nx,ny,nz)
5472 
5473  end subroutine r8mkherm3
5474 !
5475  END INTERFACE
5476  ! block file generated by iface.for -- 25Apr2007
5477 !==============================================================
5478 ! iface -- generated interface body module: R8MKINTRP2D
5479 !
5480  INTERFACE r8mkintrp2d
5481 
5482 !----------------------------------------------------------
5483 ! iface: interface block generated segment for subroutine
5484 ! R8MKINTRP2D ... for meaning of arguments see the documentation
5485 
5486  SUBROUTINE r8mkintrp2d(
5487  > X,NX,Y,NY,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IBCXMIN,BCXMIN,IBCXMAX,
5488  > BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IER)
5489 
5490  IMPLICIT NONE
5491 
5492 ! argument declarations
5493  INTEGER NX
5494  INTEGER NY
5495  INTEGER ICOEFF
5496  INTEGER IXDIM
5497  INTEGER IYDIM
5498  INTEGER IBCXMIN
5499  INTEGER IBCXMAX
5500  INTEGER IBCYMIN
5501  INTEGER IBCYMAX
5502  INTEGER IER
5503  REAL*8 X(NX)
5504  REAL*8 Y(NY)
5505  INTEGER JSPLINE(2)
5506  REAL*8 F(ICOEFF,IXDIM,IYDIM)
5507  real*8 bcxmin(iydim)
5508  real*8 bcxmax(iydim)
5509  real*8 bcymin(ixdim)
5510  real*8 bcymax(ixdim)
5511 
5512  end subroutine r8mkintrp2d
5513 !
5514  END INTERFACE
5515  ! block file generated by iface.for -- 25Apr2007
5516 !==============================================================
5517 ! iface -- generated interface body module: R8MKINTRP3D
5518 !
5519  INTERFACE r8mkintrp3d
5520 
5521 !----------------------------------------------------------
5522 ! iface: interface block generated segment for subroutine
5523 ! R8MKINTRP3D ... for meaning of arguments see the documentation
5524 
5525  SUBROUTINE r8mkintrp3d(
5526  > X,NX,Y,NY,Z,NZ,JSPLINE,F,ICOEFF,IXDIM,IYDIM,IZDIM,IBCXMIN,BCXMIN,
5527  > IBCXMAX,BCXMAX,IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,IBCZMIN,BCZMIN,
5528  > IBCZMAX,BCZMAX,IER)
5529 
5530  IMPLICIT NONE
5531 
5532 ! argument declarations
5533  INTEGER NX
5534  INTEGER NY
5535  INTEGER NZ
5536  INTEGER ICOEFF
5537  INTEGER IXDIM
5538  INTEGER IYDIM
5539  INTEGER IZDIM
5540  INTEGER IBCXMIN
5541  INTEGER IBCXMAX
5542  INTEGER IBCYMIN
5543  INTEGER IBCYMAX
5544  INTEGER IBCZMIN
5545  INTEGER IBCZMAX
5546  INTEGER IER
5547  REAL*8 X(NX)
5548  real*8 y(ny)
5549  real*8 z(nz)
5550  INTEGER JSPLINE(3)
5551  REAL*8 F(ICOEFF,IXDIM,IYDIM,IZDIM)
5552  REAL*8 BCXMIN(IYDIM,IZDIM)
5553  REAL*8 BCXMAX(IYDIM,IZDIM)
5554  real*8 bcymin(ixdim,izdim)
5555  real*8 bcymax(ixdim,izdim)
5556  real*8 bczmin(ixdim,iydim)
5557  real*8 bczmax(ixdim,iydim)
5558 
5559  end subroutine r8mkintrp3d
5560 !
5561  END INTERFACE
5562  ! block file generated by iface.for -- 25Apr2007
5563 !==============================================================
5564 ! iface -- generated interface body module: R8MKSPL2PB
5565 !
5566  INTERFACE r8mkspl2pb
5567 
5568 !----------------------------------------------------------
5569 ! iface: interface block generated segment for subroutine
5570 ! R8MKSPL2PB ... for meaning of arguments see the documentation
5571 
5572  SUBROUTINE r8mkspl2pb(
5573  > FUN,X,NX,TH,NTH,FSPL,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,
5574  > ILINX,ILINTH,IER)
5575 
5576  IMPLICIT NONE
5577 
5578 ! argument declarations
5579  real*8 fun
5580  EXTERNAL fun
5581  INTEGER NX
5582  INTEGER NTH
5583  INTEGER NF3
5584  INTEGER IBCXMIN
5585  INTEGER IBCXMAX
5586  INTEGER INWK
5587  INTEGER ILINX
5588  INTEGER ILINTH
5589  INTEGER IER
5590  REAL*8 X(NX)
5591  REAL*8 TH(NTH)
5592  REAL*8 FSPL(4,4,NF3,NTH)
5593  REAL*8 BCXMIN(NTH)
5594  REAL*8 BCXMAX(NTH)
5595  real*8 wk(inwk)
5596 
5597  end subroutine r8mkspl2pb
5598 !
5599  END INTERFACE
5600  ! block file generated by iface.for -- 25Apr2007
5601 !==============================================================
5602 ! iface -- generated interface body module: R8MKSPL2P
5603 !
5604  INTERFACE r8mkspl2p
5605 
5606 !----------------------------------------------------------
5607 ! iface: interface block generated segment for subroutine
5608 ! R8MKSPL2P ... for meaning of arguments see the documentation
5609 
5610  SUBROUTINE r8mkspl2p(
5611  > FUN,X,NX,TH,NTH,FSPL,NF3,WK,INWK,ILINX,ILINTH,IER)
5612 
5613  IMPLICIT NONE
5614 
5615 ! argument declarations
5616  real*8 fun
5617  EXTERNAL fun
5618  INTEGER NX
5619  INTEGER NTH
5620  INTEGER NF3
5621  INTEGER INWK
5622  INTEGER ILINX
5623  INTEGER ILINTH
5624  INTEGER IER
5625  REAL*8 X(NX)
5626  real*8 th(nth)
5627  real*8 fspl(4,4,nf3,nth)
5628  real*8 wk(inwk)
5629 
5630  end subroutine r8mkspl2p
5631 !
5632  END INTERFACE
5633  ! block file generated by iface.for -- 25Apr2007
5634 !==============================================================
5635 ! iface -- generated interface body module: R8MKSPL2ZB
5636 !
5637  INTERFACE r8mkspl2zb
5638 
5639 !----------------------------------------------------------
5640 ! iface: interface block generated segment for subroutine
5641 ! R8MKSPL2ZB ... for meaning of arguments see the documentation
5642 
5643  SUBROUTINE r8mkspl2zb(
5644  > FUN,X,NX,TH,NTH,FSPL,NF2,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,WK,INWK,
5645  > ILINX,ILINTH,IER)
5646 
5647  IMPLICIT NONE
5648 
5649 ! argument declarations
5650  real*8 fun
5651  EXTERNAL fun
5652  INTEGER NX
5653  INTEGER NTH
5654  INTEGER NF2
5655  INTEGER IBCXMIN
5656  INTEGER IBCXMAX
5657  INTEGER INWK
5658  INTEGER ILINX
5659  INTEGER ILINTH
5660  INTEGER IER
5661  real*8 x(nx)
5662  real*8 th(nth)
5663  real*8 fspl(4,nf2,nth)
5664  real*8 bcxmin(nth)
5665  real*8 bcxmax(nth)
5666  real*8 wk(inwk)
5667 
5668  end subroutine r8mkspl2zb
5669 !
5670  END INTERFACE
5671  ! block file generated by iface.for -- 25Apr2007
5672 !==============================================================
5673 ! iface -- generated interface body module: R8MKSPL2Z
5674 !
5675  INTERFACE r8mkspl2z
5676 
5677 !----------------------------------------------------------
5678 ! iface: interface block generated segment for subroutine
5679 ! R8MKSPL2Z ... for meaning of arguments see the documentation
5680 
5681  SUBROUTINE r8mkspl2z(
5682  > FUN,X,NX,TH,NTH,FSPL,NF2,WK,INWK,ILINX,ILINTH,IER)
5683 
5684  IMPLICIT NONE
5685 
5686 ! argument declarations
5687  real*8 fun
5688  EXTERNAL fun
5689  INTEGER NX
5690  INTEGER NTH
5691  INTEGER NF2
5692  INTEGER INWK
5693  INTEGER ILINX
5694  INTEGER ILINTH
5695  INTEGER IER
5696  real*8 x(nx)
5697  real*8 th(nth)
5698  real*8 fspl(4,nf2,nth)
5699  real*8 wk(inwk)
5700 
5701  end subroutine r8mkspl2z
5702 !
5703  END INTERFACE
5704  ! block file generated by iface.for -- 25Apr2007
5705 !==============================================================
5706 ! iface -- generated interface body module: R8MKSPL3PB
5707 !
5708  INTERFACE r8mkspl3pb
5709 
5710 !----------------------------------------------------------
5711 ! iface: interface block generated segment for subroutine
5712 ! R8MKSPL3PB ... for meaning of arguments see the documentation
5713 
5714  SUBROUTINE r8mkspl3pb(
5715  > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF4,NF5,IBCXMIN,BCXMIN,IBCXMAX,
5716  > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)
5717 
5718  IMPLICIT NONE
5719 
5720 ! argument declarations
5721  real*8 fun
5722  EXTERNAL fun
5723  INTEGER NX
5724  INTEGER NTH
5725  INTEGER NPH
5726  INTEGER NF4
5727  INTEGER NF5
5728  INTEGER IBCXMIN
5729  INTEGER IBCXMAX
5730  INTEGER NB1
5731  INTEGER INWK
5732  INTEGER ILINX
5733  INTEGER ILINTH
5734  INTEGER ILINPH
5735  INTEGER IER
5736  REAL*8 X(NX)
5737  real*8 th(nth)
5738  real*8 ph(nph)
5739  real*8 fspl(4,4,4,nf4,nf5,nph)
5740  real*8 bcxmin(nb1,nph)
5741  real*8 bcxmax(nb1,nph)
5742  real*8 wk(inwk)
5743 
5744  end subroutine r8mkspl3pb
5745 !
5746  END INTERFACE
5747  ! block file generated by iface.for -- 25Apr2007
5748 !==============================================================
5749 ! iface -- generated interface body module: R8MKSPL3ZB
5750 !
5751  INTERFACE r8mkspl3zb
5752 
5753 !----------------------------------------------------------
5754 ! iface: interface block generated segment for subroutine
5755 ! R8MKSPL3ZB ... for meaning of arguments see the documentation
5756 
5757  SUBROUTINE r8mkspl3zb(
5758  > FUN,X,NX,TH,NTH,PH,NPH,FSPL,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,
5759  > BCXMAX,NB1,WK,INWK,ILINX,ILINTH,ILINPH,IER)
5760 
5761  IMPLICIT NONE
5762 
5763 ! argument declarations
5764  real*8 fun
5765  EXTERNAL fun
5766  INTEGER NX
5767  INTEGER NTH
5768  INTEGER NPH
5769  INTEGER NF2
5770  INTEGER NF3
5771  INTEGER IBCXMIN
5772  INTEGER IBCXMAX
5773  INTEGER NB1
5774  INTEGER INWK
5775  INTEGER ILINX
5776  INTEGER ILINTH
5777  INTEGER ILINPH
5778  INTEGER IER
5779  real*8 x(nx)
5780  real*8 th(nth)
5781  real*8 ph(nph)
5782  real*8 fspl(8,nf2,nf3,nph)
5783  real*8 bcxmin(nb1,nph)
5784  real*8 bcxmax(nb1,nph)
5785  real*8 wk(inwk)
5786 
5787  end subroutine r8mkspl3zb
5788 !
5789  END INTERFACE
5790  ! block file generated by iface.for -- 25Apr2007
5791 !==============================================================
5792 ! iface -- generated interface body module: R8MKSPLINE
5793 !
5794  INTERFACE r8mkspline
5795 
5796 !----------------------------------------------------------
5797 ! iface: interface block generated segment for subroutine
5798 ! R8MKSPLINE ... for meaning of arguments see the documentation
5799 
5800  SUBROUTINE r8mkspline(
5801  > X,NX,FSPL,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,ILINX,IER)
5802 
5803  IMPLICIT NONE
5804 
5805 ! argument declarations
5806  INTEGER NX
5807  INTEGER IBCXMIN
5808  REAL*8 BCXMIN
5809  INTEGER IBCXMAX
5810  REAL*8 BCXMAX
5811  INTEGER ILINX
5812  INTEGER IER
5813  REAL*8 X(NX)
5814  REAL*8 FSPL(2,NX)
5815 
5816  end subroutine r8mkspline
5817 !
5818  END INTERFACE
5819  ! block file generated by iface.for -- 25Apr2007
5820 !==============================================================
5821 ! iface -- generated interface body module: R8MKTRICUB
5822 !
5823  INTERFACE r8mktricub
5824 
5825 !----------------------------------------------------------
5826 ! iface: interface block generated segment for subroutine
5827 ! R8MKTRICUB ... for meaning of arguments see the documentation
5828 
5829  SUBROUTINE r8mktricub(
5830  > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,
5831  > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,
5832  > BCZMAX,INB1Z,ILINX,ILINY,ILINZ,IER)
5833 
5834  IMPLICIT NONE
5835 
5836 ! argument declarations
5837  INTEGER NX
5838  INTEGER NY
5839  INTEGER NZ
5840  INTEGER NF2
5841  INTEGER NF3
5842  INTEGER IBCXMIN
5843  INTEGER IBCXMAX
5844  INTEGER INB1X
5845  INTEGER IBCYMIN
5846  INTEGER IBCYMAX
5847  INTEGER INB1Y
5848  INTEGER IBCZMIN
5849  INTEGER IBCZMAX
5850  INTEGER INB1Z
5851  INTEGER ILINX
5852  INTEGER ILINY
5853  INTEGER ILINZ
5854  INTEGER IER
5855  REAL*8 X(NX)
5856  REAL*8 Y(NY)
5857  real*8 z(nz)
5858  real*8 f(8,nf2,nf3,nz)
5859  real*8 bcxmin(inb1x,nz)
5860  real*8 bcxmax(inb1x,nz)
5861  real*8 bcymin(inb1y,nz)
5862  real*8 bcymax(inb1y,nz)
5863  real*8 bczmin(inb1z,ny)
5864  real*8 bczmax(inb1z,ny)
5865 
5866  end subroutine r8mktricub
5867 !
5868  END INTERFACE
5869  ! block file generated by iface.for -- 25Apr2007
5870 !==============================================================
5871 ! iface -- generated interface body module: R8MKTRICUBW
5872 !
5873  INTERFACE r8mktricubw
5874 
5875 !----------------------------------------------------------
5876 ! iface: interface block generated segment for subroutine
5877 ! R8MKTRICUBW ... for meaning of arguments see the documentation
5878 
5879  SUBROUTINE r8mktricubw(
5880  > X,NX,Y,NY,Z,NZ,F,NF2,NF3,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,INB1X,
5881  > IBCYMIN,BCYMIN,IBCYMAX,BCYMAX,INB1Y,IBCZMIN,BCZMIN,IBCZMAX,
5882  > BCZMAX,INB1Z,WK,NWK,ILINX,ILINY,ILINZ,IER)
5883 
5884  IMPLICIT NONE
5885 
5886 ! argument declarations
5887  INTEGER NX
5888  INTEGER NY
5889  INTEGER NZ
5890  INTEGER NF2
5891  INTEGER NF3
5892  INTEGER IBCXMIN
5893  INTEGER IBCXMAX
5894  INTEGER INB1X
5895  INTEGER IBCYMIN
5896  INTEGER IBCYMAX
5897  INTEGER INB1Y
5898  INTEGER IBCZMIN
5899  INTEGER IBCZMAX
5900  INTEGER INB1Z
5901  INTEGER NWK
5902  INTEGER ILINX
5903  INTEGER ILINY
5904  INTEGER ILINZ
5905  INTEGER IER
5906  real*8 x(nx)
5907  real*8 y(ny)
5908  real*8 z(nz)
5909  real*8 f(8,nf2,nf3,nz)
5910  real*8 bcxmin(inb1x,nz)
5911  real*8 bcxmax(inb1x,nz)
5912  real*8 bcymin(inb1y,nz)
5913  real*8 bcymax(inb1y,nz)
5914  real*8 bczmin(inb1z,ny)
5915  real*8 bczmax(inb1z,ny)
5916  real*8 wk(nwk)
5917 
5918  end subroutine r8mktricubw
5919 !
5920  END INTERFACE
5921 !==============================================================
5922 ! iface -- generated interface body module: R8MKTRICOP
5923 !
5924  INTERFACE r8mktricop
5925 
5926 !----------------------------------------------------------
5927 ! iface: interface block generated segment for subroutine
5928 ! R8MKTRICOP ... for meaning of arguments see the documentation
5929 
5930  SUBROUTINE r8mktricop(
5931  > FIN,NF2,NF3,FWK,NX,NY,NZ)
5932 
5933  IMPLICIT NONE
5934 
5935 ! argument declarations
5936  INTEGER NF2
5937  INTEGER NF3
5938  INTEGER NX
5939  INTEGER NY
5940  INTEGER NZ
5941  real*8 fin(8,nf2,nf3,nz)
5942  real*8 fwk(4,4,4,nx,ny,nz)
5943 
5944  end subroutine r8mktricop
5945 !
5946  END INTERFACE
5947 !==============================================================
5948 ! iface -- generated interface body module: R8MKTRICON
5949 !
5950  INTERFACE r8mktricon
5951 
5952 !----------------------------------------------------------
5953 ! iface: interface block generated segment for subroutine
5954 ! R8MKTRICON ... for meaning of arguments see the documentation
5955 
5956  SUBROUTINE r8mktricon(
5957  > FIN,NF2,NF3,FWK,NX,NY,NZ,HXLAST,HYLAST,HZLAST)
5958 
5959  IMPLICIT NONE
5960 
5961 ! argument declarations
5962  INTEGER NF2
5963  INTEGER NF3
5964  INTEGER NX
5965  INTEGER NY
5966  INTEGER NZ
5967  REAL*8 HXLAST
5968  REAL*8 HYLAST
5969  REAL*8 HZLAST
5970  REAL*8 FIN(8,NF2,NF3,NZ)
5971  REAL*8 FWK(4,4,4,NX,NY,NZ)
5972 
5973  end subroutine r8mktricon
5974 !
5975  END INTERFACE
5976  ! block file generated by iface.for -- 25Apr2007
5977 !==============================================================
5978 ! iface -- generated interface body module: R8NSPLINE
5979 !
5980  INTERFACE r8nspline
5981 
5982 !----------------------------------------------------------
5983 ! iface: interface block generated segment for subroutine
5984 ! R8NSPLINE ... for meaning of arguments see the documentation
5985 
5986  SUBROUTINE r8nspline(
5987  > N,X,Y,B,C,D)
5988 
5989  IMPLICIT NONE
5990 
5991 ! argument declarations
5992  INTEGER N
5993  real*8 x(n)
5994  real*8 y(n)
5995  real*8 b(n)
5996  real*8 c(n)
5997  real*8 d(n)
5998 
5999  end subroutine r8nspline
6000 !
6001  END INTERFACE
6002  ! block file generated by iface.for -- 25Apr2007
6003 !==============================================================
6004 ! iface -- generated interface body module: R8PC1EV
6005 !
6006  INTERFACE r8pc1ev
6007 
6008 !----------------------------------------------------------
6009 ! iface: interface block generated segment for subroutine
6010 ! R8PC1EV ... for meaning of arguments see the documentation
6011 
6012  SUBROUTINE r8pc1ev(
6013  > XGET,X,NX,ILINX,F,ICT,FVAL,IER)
6014 
6015  IMPLICIT NONE
6016 
6017 ! argument declarations
6018  real*8 xget
6019  INTEGER NX
6020  INTEGER ILINX
6021  INTEGER IER
6022  REAL*8 X(NX)
6023  REAL*8 F(NX)
6024  INTEGER ICT(2)
6025  real*8 fval(*)
6026 
6027  end subroutine r8pc1ev
6028 !
6029  END INTERFACE
6030 !==============================================================
6031 ! iface -- generated interface body module: R8PC1FCN
6032 !
6033  INTERFACE r8pc1fcn
6034 
6035 !----------------------------------------------------------
6036 ! iface: interface block generated segment for subroutine
6037 ! R8PC1FCN ... for meaning of arguments see the documentation
6038 
6039  SUBROUTINE r8pc1fcn(
6040  > ICT,IVEC,IVECD,FVAL,II,XPARAM,HX,HXI,FIN,NX)
6041 
6042  IMPLICIT NONE
6043 
6044 ! argument declarations
6045  INTEGER IVEC
6046  INTEGER IVECD
6047  INTEGER NX
6048  INTEGER ICT(2)
6049  REAL*8 FVAL(IVECD,*)
6050  INTEGER II(IVEC)
6051  REAL*8 XPARAM(IVEC)
6052  REAL*8 HX(IVEC)
6053  REAL*8 HXI(IVEC)
6054  REAL*8 FIN(NX)
6055 
6056  end subroutine r8pc1fcn
6057 !
6058  END INTERFACE
6059  ! block file generated by iface.for -- 25Apr2007
6060 !==============================================================
6061 ! iface -- generated interface body module: R8PC2EV
6062 !
6063  INTERFACE r8pc2ev
6064 
6065 !----------------------------------------------------------
6066 ! iface: interface block generated segment for subroutine
6067 ! R8PC2EV ... for meaning of arguments see the documentation
6068 
6069  SUBROUTINE r8pc2ev(
6070  > XGET,YGET,X,NX,Y,NY,ILINX,ILINY,F,INF2,ICT,FVAL,IER)
6071 
6072  IMPLICIT NONE
6073 
6074 ! argument declarations
6075  real*8 xget
6076  real*8 yget
6077  INTEGER NX
6078  INTEGER NY
6079  INTEGER ILINX
6080  INTEGER ILINY
6081  INTEGER INF2
6082  INTEGER IER
6083  REAL*8 X(NX)
6084  REAL*8 Y(NY)
6085  real*8 f(inf2,ny)
6086  INTEGER ICT(4)
6087  REAL*8 FVAL(*)
6088 
6089  end subroutine R8PC2EV
6090 !
6091  END INTERFACE
6092 !==============================================================
6093 ! iface -- generated interface body module: R8PC2FCN
6094 !
6095  INTERFACE r8pc2fcn
6096 
6097 !----------------------------------------------------------
6098 ! iface: interface block generated segment for subroutine
6099 ! R8PC2FCN ... for meaning of arguments see the documentation
6100 
6101  SUBROUTINE r8pc2fcn(
6102  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
6103  > NY)
6104 
6105  IMPLICIT NONE
6106 
6107 ! argument declarations
6108  INTEGER IVEC
6109  INTEGER IVECD
6110  INTEGER INF2
6111  INTEGER NY
6112  INTEGER ICT(4)
6113  real*8 fval(ivecd,*)
6114  INTEGER II(IVEC)
6115  INTEGER JJ(IVEC)
6116  real*8 xparam(ivec)
6117  real*8 yparam(ivec)
6118  real*8 hx(ivec)
6119  real*8 hxi(ivec)
6120  real*8 hy(ivec)
6121  real*8 hyi(ivec)
6122  real*8 fin(inf2,ny)
6123 
6124  end subroutine r8pc2fcn
6125 !
6126  END INTERFACE
6127 !==============================================================
6128 ! iface -- generated interface body module: R8PC2FCNX
6129 !
6130  INTERFACE r8pc2fcnx
6131 
6132 !----------------------------------------------------------
6133 ! iface: interface block generated segment for subroutine
6134 ! R8PC2FCNX ... for meaning of arguments see the documentation
6135 
6136  SUBROUTINE r8pc2fcnx(
6137  > ICT,IVEC,IVECD,FVAL,II,JJ,XPARAM,YPARAM,HX,HXI,HY,HYI,FIN,INF2,
6138  > NY)
6139 
6140  IMPLICIT NONE
6141 
6142 ! argument declarations
6143  INTEGER IVEC
6144  INTEGER IVECD
6145  INTEGER JJ
6146  REAL*8 YPARAM
6147  REAL*8 HY
6148  REAL*8 HYI
6149  INTEGER INF2
6150  INTEGER NY
6151  INTEGER ICT(4)
6152  REAL*8 FVAL(IVECD,*)
6153  INTEGER II(IVEC)
6154  real*8 xparam(ivec)
6155  real*8 hx(ivec)
6156  real*8 hxi(ivec)
6157  real*8 fin(inf2,ny)
6158 
6159  end subroutine r8pc2fcnx
6160 !
6161  END INTERFACE
6162  ! block file generated by iface.for -- 25Apr2007
6163 !==============================================================
6164 ! iface -- generated interface body module: R8PC3EV
6165 !
6166  INTERFACE r8pc3ev
6167 
6168 !----------------------------------------------------------
6169 ! iface: interface block generated segment for subroutine
6170 ! R8PC3EV ... for meaning of arguments see the documentation
6171 
6172  SUBROUTINE r8pc3ev(
6173  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,INF2,INF3,ICT,
6174  > FVAL,IER)
6175 
6176  IMPLICIT NONE
6177 
6178 ! argument declarations
6179  real*8 xget
6180  real*8 yget
6181  real*8 zget
6182  INTEGER NX
6183  INTEGER NY
6184  INTEGER NZ
6185  INTEGER ILINX
6186  INTEGER ILINY
6187  INTEGER ILINZ
6188  INTEGER INF2
6189  INTEGER INF3
6190  INTEGER IER
6191  REAL*8 X(NX)
6192  real*8 y(ny)
6193  real*8 z(nz)
6194  real*8 f(inf2,inf3,nz)
6195  INTEGER ICT(8)
6196  REAL*8 FVAL(*)
6197 
6198  end subroutine r8pc3ev
6199 !
6200  END INTERFACE
6201 !==============================================================
6202 ! iface -- generated interface body module: R8PC3FCN
6203 !
6204  INTERFACE r8pc3fcn
6205 
6206 !----------------------------------------------------------
6207 ! iface: interface block generated segment for subroutine
6208 ! R8PC3FCN ... for meaning of arguments see the documentation
6209 
6210  SUBROUTINE r8pc3fcn(
6211  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
6212  > HZ,HZI,FIN,INF2,INF3,NZ)
6213 
6214  IMPLICIT NONE
6215 
6216 ! argument declarations
6217  INTEGER IVEC
6218  INTEGER IVECD
6219  INTEGER INF2
6220  INTEGER INF3
6221  INTEGER NZ
6222  INTEGER ICT(8)
6223  REAL*8 FVAL(IVECD,*)
6224  INTEGER II(IVEC)
6225  INTEGER JJ(IVEC)
6226  INTEGER KK(IVEC)
6227  REAL*8 XPARAM(IVEC)
6228  REAL*8 YPARAM(IVEC)
6229  real*8 zparam(ivec)
6230  real*8 hx(ivec)
6231  real*8 hxi(ivec)
6232  real*8 hy(ivec)
6233  real*8 hyi(ivec)
6234  real*8 hz(ivec)
6235  real*8 hzi(ivec)
6236  real*8 fin(inf2,inf3,nz)
6237 
6238  end subroutine r8pc3fcn
6239 !
6240  END INTERFACE
6241 !==============================================================
6242 ! iface -- generated interface body module: R8PC3FCNX
6243 !
6244  INTERFACE r8pc3fcnx
6245 
6246 !----------------------------------------------------------
6247 ! iface: interface block generated segment for subroutine
6248 ! R8PC3FCNX ... for meaning of arguments see the documentation
6249 
6250  SUBROUTINE r8pc3fcnx(
6251  > ICT,IVEC,IVECD,FVAL,II,JJ,KK,XPARAM,YPARAM,ZPARAM,HX,HXI,HY,HYI,
6252  > HZ,HZI,FIN,INF2,INF3,NZ)
6253 
6254  IMPLICIT NONE
6255 
6256 ! argument declarations
6257  INTEGER IVEC
6258  INTEGER IVECD
6259  INTEGER JJ
6260  INTEGER KK
6261  real*8 yparam
6262  real*8 zparam
6263  real*8 hy
6264  real*8 hyi
6265  real*8 hz
6266  real*8 hzi
6267  INTEGER INF2
6268  INTEGER INF3
6269  INTEGER NZ
6270  INTEGER ICT(8)
6271  real*8 fval(ivecd,*)
6272  INTEGER II(IVEC)
6273  real*8 xparam(ivec)
6274  real*8 hx(ivec)
6275  real*8 hxi(ivec)
6276  real*8 fin(inf2,inf3,nz)
6277 
6278  end subroutine r8pc3fcnx
6279 !
6280  END INTERFACE
6281  ! block file generated by iface.for -- 25Apr2007
6282 !==============================================================
6283 ! iface -- generated interface body module: R8PSPLINE
6284 !
6285  INTERFACE r8pspline
6286 
6287 !----------------------------------------------------------
6288 ! iface: interface block generated segment for subroutine
6289 ! R8PSPLINE ... for meaning of arguments see the documentation
6290 
6291  SUBROUTINE r8pspline(
6292  > N,X,Y,B,C,D,WK)
6293 
6294  IMPLICIT NONE
6295 
6296 ! argument declarations
6297  INTEGER N
6298  real*8 x(n)
6299  real*8 y(n)
6300  real*8 b(n)
6301  real*8 c(n)
6302  real*8 d(n)
6303  real*8 wk(n)
6304 
6305  end subroutine r8pspline
6306 !
6307  END INTERFACE
6308  ! block file generated by iface.for -- 25Apr2007
6309 !==============================================================
6310 ! iface -- generated interface body module: R8SEVAL2
6311 !
6312  INTERFACE r8seval2
6313 
6314 !----------------------------------------------------------
6315 ! iface: interface block generated segment for subroutine
6316 ! R8SEVAL2 ... for meaning of arguments see the documentation
6317 
6318  REAL*8 FUNCTION r8seval2(
6319  > N,U,X,Y,B,C,D,DERIV)
6320 
6321  IMPLICIT NONE
6322 
6323 ! argument declarations
6324  INTEGER N
6325  real*8 u
6326  real*8 deriv
6327  real*8 x(n)
6328  real*8 y(n)
6329  real*8 b(n)
6330  real*8 c(n)
6331  real*8 d(n)
6332 
6333  end function r8seval2
6334 !
6335  END INTERFACE
6336  ! block file generated by iface.for -- 25Apr2007
6337 !==============================================================
6338 ! iface -- generated interface body module: R8SEVAL3
6339 !
6340  INTERFACE r8seval3
6341 
6342 !----------------------------------------------------------
6343 ! iface: interface block generated segment for subroutine
6344 ! R8SEVAL3 ... for meaning of arguments see the documentation
6345 
6346  REAL*8 FUNCTION r8seval3(
6347  > N,U,X,Y,B,C,D,DERIV,DERIV2)
6348 
6349  IMPLICIT NONE
6350 
6351 ! argument declarations
6352  INTEGER N
6353  real*8 u
6354  real*8 deriv
6355  real*8 deriv2
6356  real*8 x(n)
6357  real*8 y(n)
6358  real*8 b(n)
6359  real*8 c(n)
6360  real*8 d(n)
6361 
6362  end function r8seval3
6363 !
6364  END INTERFACE
6365  ! block file generated by iface.for -- 25Apr2007
6366 !==============================================================
6367 ! iface -- generated interface body module: R8SEVAL
6368 !
6369  INTERFACE r8seval
6370 
6371 !----------------------------------------------------------
6372 ! iface: interface block generated segment for subroutine
6373 ! R8SEVAL ... for meaning of arguments see the documentation
6374 
6375  REAL*8 FUNCTION r8seval(
6376  > N,U,X,Y,B,C,D)
6377 
6378  IMPLICIT NONE
6379 
6380 ! argument declarations
6381  INTEGER N
6382  REAL*8 U
6383  REAL*8 X(N)
6384  real*8 y(n)
6385  real*8 b(n)
6386  real*8 c(n)
6387  real*8 d(n)
6388 
6389  end function r8seval
6390 !
6391  END INTERFACE
6392  ! block file generated by iface.for -- 25Apr2007
6393 !==============================================================
6394 ! iface -- generated interface body module: R8SPEVAL
6395 !
6396  INTERFACE r8speval
6397 
6398 !----------------------------------------------------------
6399 ! iface: interface block generated segment for subroutine
6400 ! R8SPEVAL ... for meaning of arguments see the documentation
6401 
6402  REAL*8 FUNCTION r8speval(
6403  > N,U,X,Y,B,C,D)
6404 
6405  IMPLICIT NONE
6406 
6407 ! argument declarations
6408  INTEGER N
6409  REAL*8 U
6410  REAL*8 X(N)
6411  REAL*8 Y(N)
6412  REAL*8 B(N)
6413  real*8 c(n)
6414  real*8 d(n)
6415 
6416  end function r8speval
6417 !
6418  END INTERFACE
6419  ! block file generated by iface.for -- 25Apr2007
6420 !==============================================================
6421 ! iface -- generated interface body module: R8SPGRID
6422 !
6423  INTERFACE r8spgrid
6424 
6425 !----------------------------------------------------------
6426 ! iface: interface block generated segment for subroutine
6427 ! R8SPGRID ... for meaning of arguments see the documentation
6428 
6429  SUBROUTINE r8spgrid(
6430  > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
6431 
6432  IMPLICIT NONE
6433 
6434 ! argument declarations
6435  INTEGER NX_NEW
6436  INTEGER NX
6437  INTEGER IWARN
6438  INTEGER IER
6439  real*8 x_newgrid(nx_new)
6440  real*8 f_new(nx_new)
6441  real*8 xpkg(nx,4)
6442  real*8 fspl(4,nx)
6443 
6444  end subroutine r8spgrid
6445 !
6446  END INTERFACE
6447  ! block file generated by iface.for -- 25Apr2007
6448 !==============================================================
6449 ! iface -- generated interface body module: R8SPLAAN
6450 !
6451  INTERFACE r8splaan
6452 
6453 !----------------------------------------------------------
6454 ! iface: interface block generated segment for subroutine
6455 ! R8SPLAAN ... for meaning of arguments see the documentation
6456 
6457  SUBROUTINE r8splaan(
6458  > N,X,Y,B,C,D)
6459 
6460  IMPLICIT NONE
6461 
6462 ! argument declarations
6463  INTEGER N
6464  real*8 x(n)
6465  real*8 y(n)
6466  real*8 b(n)
6467  real*8 c(n)
6468  real*8 d(n)
6469 
6470  end subroutine r8splaan
6471 !
6472  END INTERFACE
6473  ! block file generated by iface.for -- 25Apr2007
6474 !==============================================================
6475 ! iface -- generated interface body module: R8SPLBRK
6476 !
6477  INTERFACE r8splbrk
6478 
6479 !----------------------------------------------------------
6480 ! iface: interface block generated segment for subroutine
6481 ! R8SPLBRK ... for meaning of arguments see the documentation
6482 
6483  SUBROUTINE r8splbrk(
6484  > IOPT,N,NBRK,X,Y,B,C,D)
6485 
6486  IMPLICIT NONE
6487 
6488 ! argument declarations
6489  INTEGER IOPT
6490  INTEGER N
6491  INTEGER NBRK
6492  REAL*8 X(N)
6493  REAL*8 Y(N)
6494  real*8 b(n)
6495  real*8 c(n)
6496  real*8 d(n)
6497 
6498  end subroutine r8splbrk
6499 !
6500  END INTERFACE
6501  ! block file generated by iface.for -- 25Apr2007
6502 !==============================================================
6503 ! iface -- generated interface body module: R8SPLEEN
6504 !
6505  INTERFACE r8spleen
6506 
6507 !----------------------------------------------------------
6508 ! iface: interface block generated segment for subroutine
6509 ! R8SPLEEN ... for meaning of arguments see the documentation
6510 
6511  SUBROUTINE r8spleen(
6512  > N,X,Y,B,C,D)
6513 
6514  IMPLICIT NONE
6515 
6516 ! argument declarations
6517  INTEGER N
6518  REAL*8 X(N)
6519  real*8 y(n)
6520  real*8 b(n)
6521  real*8 c(n)
6522  real*8 d(n)
6523 
6524  end subroutine r8spleen
6525 !
6526  END INTERFACE
6527  ! block file generated by iface.for -- 25Apr2007
6528 !==============================================================
6529 ! iface -- generated interface body module: R8SPLINCK
6530 !
6531  INTERFACE r8splinck
6532 
6533 !----------------------------------------------------------
6534 ! iface: interface block generated segment for subroutine
6535 ! R8SPLINCK ... for meaning of arguments see the documentation
6536 
6537  SUBROUTINE r8splinck(
6538  > X,INX,ILINX,ZTOL,IER)
6539 
6540  IMPLICIT NONE
6541 
6542 ! argument declarations
6543  INTEGER INX
6544  INTEGER ILINX
6545  real*8 ztol
6546  INTEGER IER
6547  real*8 x(inx)
6548 
6549  end subroutine r8splinck
6550 !
6551  END INTERFACE
6552  ! block file generated by iface.for -- 25Apr2007
6553 !==============================================================
6554 ! iface -- generated interface body module: R8SPLINE
6555 !
6556  INTERFACE r8spline
6557 
6558 !----------------------------------------------------------
6559 ! iface: interface block generated segment for subroutine
6560 ! R8SPLINE ... for meaning of arguments see the documentation
6561 
6562  SUBROUTINE r8spline(
6563  > N,X,Y,B,C,D)
6564 
6565  IMPLICIT NONE
6566 
6567 ! argument declarations
6568  INTEGER N
6569  REAL*8 X(N)
6570  REAL*8 Y(N)
6571  REAL*8 B(N)
6572  REAL*8 C(N)
6573  REAL*8 D(N)
6574 
6575  end subroutine r8spline
6576 !
6577  END INTERFACE
6578  ! block file generated by iface.for -- 25Apr2007
6579 !==============================================================
6580 ! iface -- generated interface body module: R8SPVEC
6581 !
6582  INTERFACE r8spvec
6583 
6584 !----------------------------------------------------------
6585 ! iface: interface block generated segment for subroutine
6586 ! R8SPVEC ... for meaning of arguments see the documentation
6587 
6588  SUBROUTINE r8spvec(
6589  > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
6590 
6591  IMPLICIT NONE
6592 
6593 ! argument declarations
6594  INTEGER IVEC
6595  INTEGER IVD
6596  INTEGER NX
6597  INTEGER IWARN
6598  INTEGER IER
6599  INTEGER ICT(3)
6600  REAL*8 XVEC(IVEC)
6601  REAL*8 FVAL(IVD,*)
6602  real*8 xpkg(nx,4)
6603  real*8 fspl(4,nx)
6604 
6605  end subroutine r8spvec
6606 !
6607  END INTERFACE
6608  ! block file generated by iface.for -- 25Apr2007
6609 !==============================================================
6610 ! iface -- generated interface body module: R8TCSPEVAL
6611 !
6612  INTERFACE r8tcspeval
6613 
6614 !----------------------------------------------------------
6615 ! iface: interface block generated segment for subroutine
6616 ! R8TCSPEVAL ... for meaning of arguments see the documentation
6617 
6618  SUBROUTINE r8tcspeval(
6619  > XGET,YGET,ZGET,ISELECT,FVAL,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,
6620  > INF4,INF5,IER)
6621 
6622  IMPLICIT NONE
6623 
6624 ! argument declarations
6625  real*8 xget
6626  real*8 yget
6627  real*8 zget
6628  INTEGER NX
6629  INTEGER NY
6630  INTEGER NZ
6631  INTEGER ILINX
6632  INTEGER ILINY
6633  INTEGER ILINZ
6634  INTEGER INF4
6635  INTEGER INF5
6636  INTEGER IER
6637  INTEGER ISELECT(10)
6638  real*8 fval(*)
6639  real*8 x(nx)
6640  real*8 y(ny)
6641  real*8 z(nz)
6642  real*8 f(4,4,4,inf4,inf5,nz)
6643 
6644  end subroutine r8tcspeval
6645 !
6646  END INTERFACE
6647 !==============================================================
6648 ! iface -- generated interface body module: R8TCSPEVXYZ
6649 !
6650  INTERFACE r8tcspevxyz
6651 
6652 !----------------------------------------------------------
6653 ! iface: interface block generated segment for subroutine
6654 ! R8TCSPEVXYZ ... for meaning of arguments see the documentation
6655 
6656  SUBROUTINE r8tcspevxyz(
6657  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,DX,DY,DZ,
6658  > IER)
6659 
6660  IMPLICIT NONE
6661 
6662 ! argument declarations
6663  real*8 xget
6664  real*8 yget
6665  real*8 zget
6666  INTEGER NX
6667  INTEGER NY
6668  INTEGER NZ
6669  INTEGER ILINX
6670  INTEGER ILINY
6671  INTEGER ILINZ
6672  INTEGER I
6673  INTEGER J
6674  INTEGER K
6675  real*8 dx
6676  real*8 dy
6677  real*8 dz
6678  INTEGER IER
6679  real*8 x(nx)
6680  real*8 y(ny)
6681  real*8 z(nz)
6682 
6683  end subroutine r8tcspevxyz
6684 !
6685  END INTERFACE
6686 !==============================================================
6687 ! iface -- generated interface body module: R8TCSPEVFN
6688 !
6689  INTERFACE r8tcspevfn
6690 
6691 !----------------------------------------------------------
6692 ! iface: interface block generated segment for subroutine
6693 ! R8TCSPEVFN ... for meaning of arguments see the documentation
6694 
6695  SUBROUTINE r8tcspevfn(
6696  > ICT,IVEC,IVD,FVAL,IV,JV,KV,DXV,DYV,DZV,F,INF4,INF5,NZ)
6697 
6698  IMPLICIT NONE
6699 
6700 ! argument declarations
6701  INTEGER IVEC
6702  INTEGER IVD
6703  INTEGER INF4
6704  INTEGER INF5
6705  INTEGER NZ
6706  INTEGER ICT(10)
6707  real*8 fval(ivd,*)
6708  INTEGER IV(IVEC)
6709  INTEGER JV(IVEC)
6710  INTEGER KV(IVEC)
6711  REAL*8 DXV(IVEC)
6712  real*8 dyv(ivec)
6713  real*8 dzv(ivec)
6714  real*8 f(4,4,4,inf4,inf5,nz)
6715 
6716  end subroutine r8tcspevfn
6717 !
6718  END INTERFACE
6719  ! block file generated by iface.for -- 25Apr2007
6720 !==============================================================
6721 ! iface -- generated interface body module: R8TCSPGRID
6722 !
6723  INTERFACE r8tcspgrid
6724 
6725 !----------------------------------------------------------
6726 ! iface: interface block generated segment for subroutine
6727 ! R8TCSPGRID ... for meaning of arguments see the documentation
6728 
6729  SUBROUTINE r8tcspgrid(
6730  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
6731  > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)
6732 
6733  IMPLICIT NONE
6734 
6735 ! argument declarations
6736  INTEGER NX_NEW
6737  INTEGER NY_NEW
6738  INTEGER NZ_NEW
6739  INTEGER IF1
6740  INTEGER IF2
6741  INTEGER NX
6742  INTEGER NY
6743  INTEGER NZ
6744  INTEGER INF4
6745  INTEGER INF5
6746  INTEGER IWARN
6747  INTEGER IER
6748  real*8 x_newgrid(nx_new)
6749  real*8 y_newgrid(ny_new)
6750  real*8 z_newgrid(nz_new)
6751  real*8 f_new(if1,if2,nz_new)
6752  real*8 xpkg(nx,4)
6753  real*8 ypkg(ny,4)
6754  real*8 zpkg(nz,4)
6755  real*8 fspl(4,4,4,inf4,inf5,nz)
6756 
6757  end subroutine r8tcspgrid
6758 !
6759  END INTERFACE
6760  ! block file generated by iface.for -- 25Apr2007
6761 !==============================================================
6762 ! iface -- generated interface body module: R8TCSPLINE
6763 !
6764  INTERFACE r8tcspline
6765 
6766 !----------------------------------------------------------
6767 ! iface: interface block generated segment for subroutine
6768 ! R8TCSPLINE ... for meaning of arguments see the documentation
6769 
6770  SUBROUTINE r8tcspline(
6771  > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,
6772  > BCXMAX,INB1X,IBCTHMIN,BCTHMIN,IBCTHMAX,BCTHMAX,INB1TH,IBCPHMIN,
6773  > BCPHMIN,IBCPHMAX,BCPHMAX,INB1PH,WK,NWK,ILINX,ILINTH,ILINPH,IER)
6774 
6775  IMPLICIT NONE
6776 
6777 ! argument declarations
6778  INTEGER INX
6779  INTEGER INTH
6780  INTEGER INPH
6781  INTEGER INF4
6782  INTEGER INF5
6783  INTEGER IBCXMIN
6784  INTEGER IBCXMAX
6785  INTEGER INB1X
6786  INTEGER IBCTHMIN
6787  INTEGER IBCTHMAX
6788  INTEGER INB1TH
6789  INTEGER IBCPHMIN
6790  INTEGER IBCPHMAX
6791  INTEGER INB1PH
6792  INTEGER NWK
6793  INTEGER ILINX
6794  INTEGER ILINTH
6795  INTEGER ILINPH
6796  INTEGER IER
6797  REAL*8 X(INX)
6798  REAL*8 TH(INTH)
6799  real*8 ph(inph)
6800  real*8 fspl(4,4,4,inf4,inf5,inph)
6801  real*8 bcxmin(inb1x,*)
6802  real*8 bcxmax(inb1x,*)
6803  real*8 bcthmin(inb1th,*)
6804  real*8 bcthmax(inb1th,*)
6805  real*8 bcphmin(inb1ph,*)
6806  real*8 bcphmax(inb1ph,*)
6807  real*8 wk(nwk)
6808 
6809  end subroutine r8tcspline
6810 !
6811  END INTERFACE
6812 !==============================================================
6813 ! iface -- generated interface body module: R8TCSPCORR
6814 !
6815  INTERFACE r8tcspcorr
6816 
6817 !----------------------------------------------------------
6818 ! iface: interface block generated segment for subroutine
6819 ! R8TCSPCORR ... for meaning of arguments see the documentation
6820 
6821  SUBROUTINE r8tcspcorr(
6822  > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,IBCXMAX,IBCTHMIN,
6823  > IBCTHMAX,IBCPHMIN,BCPH1,IBCPHMAX,BCPH2,CCORR,WK,NWK)
6824 
6825  IMPLICIT NONE
6826 
6827 ! argument declarations
6828  INTEGER INX
6829  INTEGER INTH
6830  INTEGER INPH
6831  INTEGER INF4
6832  INTEGER INF5
6833  INTEGER IBCXMIN
6834  INTEGER IBCXMAX
6835  INTEGER IBCTHMIN
6836  INTEGER IBCTHMAX
6837  INTEGER IBCPHMIN
6838  INTEGER IBCPHMAX
6839  INTEGER NWK
6840  real*8 x(inx)
6841  real*8 th(inth)
6842  real*8 ph(inph)
6843  real*8 fspl(4,4,4,inf4,inf5,inph)
6844  real*8 bcph1(inx,inth)
6845  real*8 bcph2(inx,inth)
6846  real*8 ccorr(3,4,inx,inth,inph)
6847  real*8 wk(nwk)
6848 
6849  end subroutine r8tcspcorr
6850 !
6851  END INTERFACE
6852 !==============================================================
6853 ! iface -- generated interface body module: R8TCSP23
6854 !
6855  INTERFACE r8tcsp23
6856 
6857 !----------------------------------------------------------
6858 ! iface: interface block generated segment for subroutine
6859 ! R8TCSP23 ... for meaning of arguments see the documentation
6860 
6861  SUBROUTINE r8tcsp23(
6862  > X,INX,TH,INTH,FSPL,INF4,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,
6863  > BCTHMIN,IBCTHMAX,BCTHMAX,FSPL2,WK,NWK,ILINX,ILINTH,IER)
6864 
6865  IMPLICIT NONE
6866 
6867 ! argument declarations
6868  INTEGER INX
6869  INTEGER INTH
6870  INTEGER INF4
6871  INTEGER IBCXMIN
6872  INTEGER IBCXMAX
6873  INTEGER IBCTHMIN
6874  INTEGER IBCTHMAX
6875  INTEGER NWK
6876  INTEGER ILINX
6877  INTEGER ILINTH
6878  INTEGER IER
6879  REAL*8 X(INX)
6880  real*8 th(inth)
6881  real*8 fspl(4,4,4,inf4,inth)
6882  real*8 bcxmin(inth)
6883  real*8 bcxmax(inth)
6884  real*8 bcthmin(inx)
6885  real*8 bcthmax(inx)
6886  real*8 fspl2(4,4,inx,inth)
6887  real*8 wk(nwk)
6888 
6889  end subroutine r8tcsp23
6890 !
6891  END INTERFACE
6892  ! block file generated by iface.for -- 25Apr2007
6893 !==============================================================
6894 ! iface -- generated interface body module: R8TCSPVEC
6895 !
6896  INTERFACE r8tcspvec
6897 
6898 !----------------------------------------------------------
6899 ! iface: interface block generated segment for subroutine
6900 ! R8TCSPVEC ... for meaning of arguments see the documentation
6901 
6902  SUBROUTINE r8tcspvec(
6903  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
6904  > INF4,INF5,IWARN,IER)
6905 
6906  IMPLICIT NONE
6907 
6908 ! argument declarations
6909  INTEGER IVEC
6910  INTEGER IVD
6911  INTEGER NX
6912  INTEGER NY
6913  INTEGER NZ
6914  INTEGER INF4
6915  INTEGER INF5
6916  INTEGER IWARN
6917  INTEGER IER
6918  INTEGER ICT(10)
6919  REAL*8 XVEC(IVEC)
6920  REAL*8 YVEC(IVEC)
6921  REAL*8 ZVEC(IVEC)
6922  real*8 fval(ivd,*)
6923  real*8 xpkg(nx,4)
6924  real*8 ypkg(ny,4)
6925  real*8 zpkg(nz,4)
6926  real*8 fspl(4,4,4,inf4,inf5,nz)
6927 
6928  end subroutine r8tcspvec
6929 !
6930  END INTERFACE
6931  ! block file generated by iface.for -- 25Apr2007
6932 !==============================================================
6933 ! iface -- generated interface body module: R8TPSPLINB
6934 !
6935  INTERFACE r8tpsplinb
6936 
6937 !----------------------------------------------------------
6938 ! iface: interface block generated segment for subroutine
6939 ! R8TPSPLINB ... for meaning of arguments see the documentation
6940 
6941  SUBROUTINE r8tpsplinb(
6942  > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,
6943  > BCXMAX,INB1,WK,NWK,ILINX,ILINTH,ILINPH,IER)
6944 
6945  IMPLICIT NONE
6946 
6947 ! argument declarations
6948  INTEGER INX
6949  INTEGER INTH
6950  INTEGER INPH
6951  INTEGER INF4
6952  INTEGER INF5
6953  INTEGER IBCXMIN
6954  INTEGER IBCXMAX
6955  INTEGER INB1
6956  INTEGER NWK
6957  INTEGER ILINX
6958  INTEGER ILINTH
6959  INTEGER ILINPH
6960  INTEGER IER
6961  REAL*8 X(INX)
6962  real*8 th(inth)
6963  real*8 ph(inph)
6964  real*8 fspl(4,4,4,inf4,inf5,inph)
6965  real*8 bcxmin(inb1,inph)
6966  real*8 bcxmax(inb1,inph)
6967  real*8 wk(nwk)
6968 
6969  end subroutine r8tpsplinb
6970 !
6971  END INTERFACE
6972  ! block file generated by iface.for -- 25Apr2007
6973 !==============================================================
6974 ! iface -- generated interface body module: R8TPSPLINE
6975 !
6976  INTERFACE r8tpspline
6977 
6978 !----------------------------------------------------------
6979 ! iface: interface block generated segment for subroutine
6980 ! R8TPSPLINE ... for meaning of arguments see the documentation
6981 
6982  SUBROUTINE r8tpspline(
6983  > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,WK,NWK,ILINX,ILINTH,ILINPH,
6984  > IER)
6985 
6986  IMPLICIT NONE
6987 
6988 ! argument declarations
6989  INTEGER INX
6990  INTEGER INTH
6991  INTEGER INPH
6992  INTEGER INF4
6993  INTEGER INF5
6994  INTEGER NWK
6995  INTEGER ILINX
6996  INTEGER ILINTH
6997  INTEGER ILINPH
6998  INTEGER IER
6999  real*8 x(inx)
7000  real*8 th(inth)
7001  real*8 ph(inph)
7002  real*8 fspl(4,4,4,inf4,inf5,inph)
7003  real*8 wk(nwk)
7004 
7005  end subroutine r8tpspline
7006 !
7007  END INTERFACE
7008  ! block file generated by iface.for -- 25Apr2007
7009 !==============================================================
7010 ! iface -- generated interface body module: R8UTIL_BCHERM1
7011 !
7012  INTERFACE r8util_bcherm1
7013 
7014 !----------------------------------------------------------
7015 ! iface: interface block generated segment for subroutine
7016 ! R8UTIL_BCHERM1 ... for meaning of arguments see the documentation
7017 
7018  SUBROUTINE r8util_bcherm1(
7019  > FHERM,IDIMX1,JBCXA,JBCXB,ZBCXA,ZBCXB,X1)
7020 
7021  IMPLICIT NONE
7022 
7023 ! argument declarations
7024  INTEGER IDIMX1
7025  INTEGER JBCXA
7026  INTEGER JBCXB
7027  REAL*8 ZBCXA
7028  real*8 zbcxb
7029  real*8 fherm(0:1,idimx1)
7030  real*8 x1(idimx1)
7031 
7032  end subroutine r8util_bcherm1
7033 !
7034  END INTERFACE
7035  ! block file generated by iface.for -- 25Apr2007
7036 !==============================================================
7037 ! iface -- generated interface body module: R8UTIL_BCHERM2
7038 !
7039  INTERFACE r8util_bcherm2
7040 
7041 !----------------------------------------------------------
7042 ! iface: interface block generated segment for subroutine
7043 ! R8UTIL_BCHERM2 ... for meaning of arguments see the documentation
7044 
7045  SUBROUTINE r8util_bcherm2(
7046  > FHERM,IDIMX1,IDIMX2,JBCX1A,JBCX1B,JBCX2A,JBCX2B,ZBCX1A,ZBCX1B,
7047  > ZBCX2A,ZBCX2B,X1,X2)
7048 
7049  IMPLICIT NONE
7050 
7051 ! argument declarations
7052  INTEGER IDIMX1
7053  INTEGER IDIMX2
7054  INTEGER JBCX1A
7055  INTEGER JBCX1B
7056  INTEGER JBCX2A
7057  INTEGER JBCX2B
7058  real*8 fherm(0:3,idimx1,idimx2)
7059  real*8 zbcx1a(idimx2)
7060  real*8 zbcx1b(idimx2)
7061  real*8 zbcx2a(idimx1)
7062  real*8 zbcx2b(idimx1)
7063  real*8 x1(idimx1)
7064  real*8 x2(idimx2)
7065 
7066  end subroutine r8util_bcherm2
7067 !
7068  END INTERFACE
7069  ! block file generated by iface.for -- 25Apr2007
7070 !==============================================================
7071 ! iface -- generated interface body module: R8UTIL_BCHERM3
7072 !
7073  INTERFACE r8util_bcherm3
7074 
7075 !----------------------------------------------------------
7076 ! iface: interface block generated segment for subroutine
7077 ! R8UTIL_BCHERM3 ... for meaning of arguments see the documentation
7078 
7079  SUBROUTINE r8util_bcherm3(
7080  > FHERM,IDIMX1,IDIMX2,IDIMX3,JBCX1A,JBCX1B,JBCX2A,JBCX2B,JBCX3A,
7081  > JBCX3B,ZBCX1A,ZBCX1B,ZBCX2A,ZBCX2B,ZBCX3A,ZBCX3B,X1,X2,X3)
7082 
7083  IMPLICIT NONE
7084 
7085 ! argument declarations
7086  INTEGER IDIMX1
7087  INTEGER IDIMX2
7088  INTEGER IDIMX3
7089  INTEGER JBCX1A
7090  INTEGER JBCX1B
7091  INTEGER JBCX2A
7092  INTEGER JBCX2B
7093  INTEGER JBCX3A
7094  INTEGER JBCX3B
7095  real*8 fherm(0:7,idimx1,idimx2,idimx3)
7096  real*8 zbcx1a(idimx2,idimx3)
7097  real*8 zbcx1b(idimx2,idimx3)
7098  real*8 zbcx2a(idimx1,idimx3)
7099  real*8 zbcx2b(idimx1,idimx3)
7100  real*8 zbcx3a(idimx2,idimx3)
7101  real*8 zbcx3b(idimx2,idimx3)
7102  real*8 x1(idimx1)
7103  real*8 x2(idimx2)
7104  real*8 x3(idimx3)
7105 
7106  end subroutine r8util_bcherm3
7107 !
7108  END INTERFACE
7109  ! block file generated by iface.for -- 25Apr2007
7110 !==============================================================
7111 ! iface -- generated interface body module: R8VECBICUB
7112 !
7113  INTERFACE r8vecbicub
7114 
7115 !----------------------------------------------------------
7116 ! iface: interface block generated segment for subroutine
7117 ! R8VECBICUB ... for meaning of arguments see the documentation
7118 
7119  SUBROUTINE r8vecbicub(
7120  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)
7121 
7122  IMPLICIT NONE
7123 
7124 ! argument declarations
7125  INTEGER IVEC
7126  INTEGER IVD
7127  INTEGER NX
7128  INTEGER NY
7129  INTEGER INF2
7130  INTEGER IWARN
7131  INTEGER IER
7132  INTEGER ICT(6)
7133  REAL*8 XVEC(IVEC)
7134  REAL*8 YVEC(IVEC)
7135  real*8 fval(ivd,*)
7136  real*8 xpkg(nx,4)
7137  real*8 ypkg(ny,4)
7138  real*8 fspl(0:3,inf2,ny)
7139 
7140  end subroutine r8vecbicub
7141 !
7142  END INTERFACE
7143  ! block file generated by iface.for -- 25Apr2007
7144 !==============================================================
7145 ! iface -- generated interface body module: R8VECHERM1
7146 !
7147  INTERFACE r8vecherm1
7148 
7149 !----------------------------------------------------------
7150 ! iface: interface block generated segment for subroutine
7151 ! R8VECHERM1 ... for meaning of arguments see the documentation
7152 
7153  SUBROUTINE r8vecherm1(
7154  > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
7155 
7156  IMPLICIT NONE
7157 
7158 ! argument declarations
7159  INTEGER IVEC
7160  INTEGER IVD
7161  INTEGER NX
7162  INTEGER IWARN
7163  INTEGER IER
7164  INTEGER ICT(2)
7165  REAL*8 XVEC(IVEC)
7166  real*8 fval(ivd,*)
7167  real*8 xpkg(nx,4)
7168  real*8 fspl(2,nx)
7169 
7170  end subroutine r8vecherm1
7171 !
7172  END INTERFACE
7173  ! block file generated by iface.for -- 25Apr2007
7174 !==============================================================
7175 ! iface -- generated interface body module: R8VECHERM2
7176 !
7177  INTERFACE r8vecherm2
7178 
7179 !----------------------------------------------------------
7180 ! iface: interface block generated segment for subroutine
7181 ! R8VECHERM2 ... for meaning of arguments see the documentation
7182 
7183  SUBROUTINE r8vecherm2(
7184  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)
7185 
7186  IMPLICIT NONE
7187 
7188 ! argument declarations
7189  INTEGER IVEC
7190  INTEGER IVD
7191  INTEGER NX
7192  INTEGER NY
7193  INTEGER INF2
7194  INTEGER IWARN
7195  INTEGER IER
7196  INTEGER ICT(4)
7197  real*8 xvec(ivec)
7198  real*8 yvec(ivec)
7199  real*8 fval(ivd,*)
7200  real*8 xpkg(nx,4)
7201  real*8 ypkg(ny,4)
7202  real*8 fspl(0:3,inf2,ny)
7203 
7204  end subroutine r8vecherm2
7205 !
7206  END INTERFACE
7207  ! block file generated by iface.for -- 25Apr2007
7208 !==============================================================
7209 ! iface -- generated interface body module: R8VECHERM3
7210 !
7211  INTERFACE r8vecherm3
7212 
7213 !----------------------------------------------------------
7214 ! iface: interface block generated segment for subroutine
7215 ! R8VECHERM3 ... for meaning of arguments see the documentation
7216 
7217  SUBROUTINE r8vecherm3(
7218  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
7219  > INF2,INF3,IWARN,IER)
7220 
7221  IMPLICIT NONE
7222 
7223 ! argument declarations
7224  INTEGER IVEC
7225  INTEGER IVD
7226  INTEGER NX
7227  INTEGER NY
7228  INTEGER NZ
7229  INTEGER INF2
7230  INTEGER INF3
7231  INTEGER IWARN
7232  INTEGER IER
7233  INTEGER ICT(10)
7234  real*8 xvec(ivec)
7235  real*8 yvec(ivec)
7236  real*8 zvec(ivec)
7237  real*8 fval(ivd,*)
7238  real*8 xpkg(nx,4)
7239  real*8 ypkg(ny,4)
7240  real*8 zpkg(nz,4)
7241  real*8 fspl(0:7,inf2,inf3,nz)
7242 
7243  end subroutine r8vecherm3
7244 !
7245  END INTERFACE
7246  ! block file generated by iface.for -- 25Apr2007
7247 !==============================================================
7248 ! iface -- generated interface body module: R8VECINTRP2D
7249 !
7250  INTERFACE r8vecintrp2d
7251 
7252 !----------------------------------------------------------
7253 ! iface: interface block generated segment for subroutine
7254 ! R8VECINTRP2D ... for meaning of arguments see the documentation
7255 
7256  SUBROUTINE r8vecintrp2d(
7257  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,JSPLINE,FSPL,ICOEFF,
7258  > IXDIM,IYDIM,IWARN,IER)
7259 
7260  IMPLICIT NONE
7261 
7262 ! argument declarations
7263  INTEGER IVEC
7264  INTEGER IVD
7265  INTEGER NX
7266  INTEGER NY
7267  INTEGER ICOEFF
7268  INTEGER IXDIM
7269  INTEGER IYDIM
7270  INTEGER IWARN
7271  INTEGER IER
7272  INTEGER ICT(6)
7273  real*8 xvec(ivec)
7274  real*8 yvec(ivec)
7275  real*8 fval(ivd,*)
7276  real*8 xpkg(nx,4)
7277  real*8 ypkg(ny,4)
7278  INTEGER JSPLINE(2)
7279  real*8 fspl(icoeff,ixdim,iydim)
7280 
7281  end subroutine r8vecintrp2d
7282 !
7283  END INTERFACE
7284  ! block file generated by iface.for -- 25Apr2007
7285 !==============================================================
7286 ! iface -- generated interface body module: R8VECINTRP3D
7287 !
7288  INTERFACE r8vecintrp3d
7289 
7290 !----------------------------------------------------------
7291 ! iface: interface block generated segment for subroutine
7292 ! R8VECINTRP3D ... for meaning of arguments see the documentation
7293 
7294  SUBROUTINE r8vecintrp3d(
7295  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,
7296  > FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,IWARN,IER)
7297 
7298  IMPLICIT NONE
7299 
7300 ! argument declarations
7301  INTEGER IVEC
7302  INTEGER IVD
7303  INTEGER NX
7304  INTEGER NY
7305  INTEGER NZ
7306  INTEGER ICOEFF
7307  INTEGER IXDIM
7308  INTEGER IYDIM
7309  INTEGER IZDIM
7310  INTEGER IWARN
7311  INTEGER IER
7312  INTEGER ICT(10)
7313  real*8 xvec(ivec)
7314  real*8 yvec(ivec)
7315  real*8 zvec(ivec)
7316  real*8 fval(ivd,*)
7317  real*8 xpkg(nx,4)
7318  real*8 ypkg(ny,4)
7319  real*8 zpkg(nz,4)
7320  INTEGER JSPLINE(3)
7321  real*8 fspl(icoeff,ixdim,iydim,izdim)
7322 
7323  end subroutine r8vecintrp3d
7324 !
7325  END INTERFACE
7326  ! block file generated by iface.for -- 25Apr2007
7327 !==============================================================
7328 ! iface -- generated interface body module: R8VECPC1
7329 !
7330  INTERFACE r8vecpc1
7331 
7332 !----------------------------------------------------------
7333 ! iface: interface block generated segment for subroutine
7334 ! R8VECPC1 ... for meaning of arguments see the documentation
7335 
7336  SUBROUTINE r8vecpc1(
7337  > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
7338 
7339  IMPLICIT NONE
7340 
7341 ! argument declarations
7342  INTEGER IVEC
7343  INTEGER IVD
7344  INTEGER NX
7345  INTEGER IWARN
7346  INTEGER IER
7347  INTEGER ICT(2)
7348  real*8 xvec(ivec)
7349  real*8 fval(ivd,*)
7350  real*8 xpkg(nx,4)
7351  real*8 fspl(nx)
7352 
7353  end subroutine r8vecpc1
7354 !
7355  END INTERFACE
7356  ! block file generated by iface.for -- 25Apr2007
7357 !==============================================================
7358 ! iface -- generated interface body module: R8VECPC2
7359 !
7360  INTERFACE r8vecpc2
7361 
7362 !----------------------------------------------------------
7363 ! iface: interface block generated segment for subroutine
7364 ! R8VECPC2 ... for meaning of arguments see the documentation
7365 
7366  SUBROUTINE r8vecpc2(
7367  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF1,IWARN,IER)
7368 
7369  IMPLICIT NONE
7370 
7371 ! argument declarations
7372  INTEGER IVEC
7373  INTEGER IVD
7374  INTEGER NX
7375  INTEGER NY
7376  INTEGER INF1
7377  INTEGER IWARN
7378  INTEGER IER
7379  INTEGER ICT(4)
7380  real*8 xvec(ivec)
7381  real*8 yvec(ivec)
7382  real*8 fval(ivd,*)
7383  real*8 xpkg(nx,4)
7384  real*8 ypkg(ny,4)
7385  real*8 fspl(inf1,ny)
7386 
7387  end subroutine r8vecpc2
7388 !
7389  END INTERFACE
7390  ! block file generated by iface.for -- 25Apr2007
7391 !==============================================================
7392 ! iface -- generated interface body module: R8VECPC3
7393 !
7394  INTERFACE r8vecpc3
7395 
7396 !----------------------------------------------------------
7397 ! iface: interface block generated segment for subroutine
7398 ! R8VECPC3 ... for meaning of arguments see the documentation
7399 
7400  SUBROUTINE r8vecpc3(
7401  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FLIN,
7402  > INF1,INF2,IWARN,IER)
7403 
7404  IMPLICIT NONE
7405 
7406 ! argument declarations
7407  INTEGER IVEC
7408  INTEGER IVD
7409  INTEGER NX
7410  INTEGER NY
7411  INTEGER NZ
7412  INTEGER INF1
7413  INTEGER INF2
7414  INTEGER IWARN
7415  INTEGER IER
7416  INTEGER ICT(10)
7417  real*8 xvec(ivec)
7418  real*8 yvec(ivec)
7419  real*8 zvec(ivec)
7420  real*8 fval(ivd,*)
7421  real*8 xpkg(nx,4)
7422  real*8 ypkg(ny,4)
7423  real*8 zpkg(nz,4)
7424  real*8 flin(inf1,inf2,nz)
7425 
7426  end subroutine r8vecpc3
7427 !
7428  END INTERFACE
7429  ! block file generated by iface.for -- 25Apr2007
7430 !==============================================================
7431 ! iface -- generated interface body module: R8VECSPLINE
7432 !
7433  INTERFACE r8vecspline
7434 
7435 !----------------------------------------------------------
7436 ! iface: interface block generated segment for subroutine
7437 ! R8VECSPLINE ... for meaning of arguments see the documentation
7438 
7439  SUBROUTINE r8vecspline(
7440  > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
7441 
7442  IMPLICIT NONE
7443 
7444 ! argument declarations
7445  INTEGER IVEC
7446  INTEGER IVD
7447  INTEGER NX
7448  INTEGER IWARN
7449  INTEGER IER
7450  INTEGER ICT(3)
7451  real*8 xvec(ivec)
7452  real*8 fval(ivd,*)
7453  real*8 xpkg(nx,4)
7454  real*8 fspl(2,nx)
7455 
7456  end subroutine r8vecspline
7457 !
7458  END INTERFACE
7459  ! block file generated by iface.for -- 25Apr2007
7460 !==============================================================
7461 ! iface -- generated interface body module: R8VECTRICUB
7462 !
7463  INTERFACE r8vectricub
7464 
7465 !----------------------------------------------------------
7466 ! iface: interface block generated segment for subroutine
7467 ! R8VECTRICUB ... for meaning of arguments see the documentation
7468 
7469  SUBROUTINE r8vectricub(
7470  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
7471  > INF4,INF5,IWARN,IER)
7472 
7473  IMPLICIT NONE
7474 
7475 ! argument declarations
7476  INTEGER IVEC
7477  INTEGER IVD
7478  INTEGER NX
7479  INTEGER NY
7480  INTEGER NZ
7481  INTEGER INF4
7482  INTEGER INF5
7483  INTEGER IWARN
7484  INTEGER IER
7485  INTEGER ICT(10)
7486  real*8 xvec(ivec)
7487  real*8 yvec(ivec)
7488  real*8 zvec(ivec)
7489  real*8 fval(ivd,*)
7490  real*8 xpkg(nx,4)
7491  real*8 ypkg(ny,4)
7492  real*8 zpkg(nz,4)
7493  real*8 fspl(8,inf4,inf5,nz)
7494 
7495  end subroutine r8vectricub
7496 !
7497  END INTERFACE
7498  ! block file generated by iface.for -- 25Apr2007
7499 !==============================================================
7500 ! iface -- generated interface body module: R8V_SPLINE
7501 !
7502  INTERFACE r8v_spline
7503 
7504 !----------------------------------------------------------
7505 ! iface: interface block generated segment for subroutine
7506 ! R8V_SPLINE ... for meaning of arguments see the documentation
7507 
7508  SUBROUTINE r8v_spline(
7509  > K_BC1,K_BCN,N,X,F,WK)
7510 
7511  IMPLICIT NONE
7512 
7513 ! argument declarations
7514  INTEGER K_BC1
7515  INTEGER K_BCN
7516  INTEGER N
7517  real*8 x(*)
7518  real*8 f(4,*)
7519  real*8 wk(*)
7520 
7521  end subroutine r8v_spline
7522 !
7523  END INTERFACE
7524  ! block file generated by iface.for -- 25Apr2007
7525 !==============================================================
7526 ! iface -- generated interface body module: R8XLOOKUP
7527 !
7528  INTERFACE r8xlookup
7529 
7530 !----------------------------------------------------------
7531 ! iface: interface block generated segment for subroutine
7532 ! R8XLOOKUP ... for meaning of arguments see the documentation
7533 
7534  SUBROUTINE r8xlookup(
7535  > IVEC,XVEC,NX,XPKG,IMODE,IV,DXN,HV,HIV,IWARN)
7536 
7537  IMPLICIT NONE
7538 
7539 ! argument declarations
7540  INTEGER IVEC
7541  INTEGER NX
7542  INTEGER IMODE
7543  INTEGER IWARN
7544  real*8 xvec(ivec)
7545  real*8 xpkg(nx,4)
7546  INTEGER IV(IVEC)
7547  REAL*8 DXN(IVEC)
7548  real*8 hv(ivec)
7549  real*8 hiv(ivec)
7550 
7551  end subroutine r8xlookup
7552 !
7553  END INTERFACE
7554  ! block file generated by iface.for -- 25Apr2007
7555 !==============================================================
7556 ! iface -- generated interface body module: R8ZONFIND
7557 !
7558  INTERFACE r8zonfind
7559 
7560 !----------------------------------------------------------
7561 ! iface: interface block generated segment for subroutine
7562 ! R8ZONFIND ... for meaning of arguments see the documentation
7563 
7564  SUBROUTINE r8zonfind(
7565  > X,NX,ZXGET,I)
7566 
7567  IMPLICIT NONE
7568 
7569 ! argument declarations
7570  INTEGER NX
7571  real*8 zxget
7572  INTEGER I
7573  real*8 x(nx)
7574 
7575  end subroutine r8zonfind
7576 !
7577  END INTERFACE
7578  ! block file generated by iface.for -- 25Apr2007
7579 !==============================================================
7580 ! iface -- generated interface body module: SEVAL2
7581 !
7582  INTERFACE seval2
7583 
7584 !----------------------------------------------------------
7585 ! iface: interface block generated segment for subroutine
7586 ! SEVAL2 ... for meaning of arguments see the documentation
7587 
7588  REAL FUNCTION SEVAL2(
7589  > N,U,X,Y,B,C,D,DERIV)
7590 
7591  IMPLICIT NONE
7592 
7593 ! argument declarations
7594  INTEGER N
7595  REAL U
7596  REAL DERIV
7597  REAL X(N)
7598  REAL Y(N)
7599  REAL B(N)
7600  REAL C(N)
7601  REAL D(N)
7602 
7603  end function seval2
7604 !
7605  END INTERFACE
7606  ! block file generated by iface.for -- 25Apr2007
7607 !==============================================================
7608 ! iface -- generated interface body module: SEVAL3
7609 !
7610  INTERFACE seval3
7611 
7612 !----------------------------------------------------------
7613 ! iface: interface block generated segment for subroutine
7614 ! SEVAL3 ... for meaning of arguments see the documentation
7615 
7616  REAL FUNCTION SEVAL3(
7617  > N,U,X,Y,B,C,D,DERIV,DERIV2)
7618 
7619  IMPLICIT NONE
7620 
7621 ! argument declarations
7622  INTEGER N
7623  REAL U
7624  REAL DERIV
7625  REAL DERIV2
7626  REAL X(N)
7627  REAL Y(N)
7628  REAL B(N)
7629  REAL C(N)
7630  REAL D(N)
7631 
7632  end function seval3
7633 !
7634  END INTERFACE
7635  ! block file generated by iface.for -- 25Apr2007
7636 !==============================================================
7637 ! iface -- generated interface body module: SEVAL
7638 !
7639  INTERFACE seval
7640 
7641 !----------------------------------------------------------
7642 ! iface: interface block generated segment for subroutine
7643 ! SEVAL ... for meaning of arguments see the documentation
7644 
7645  REAL FUNCTION SEVAL(
7646  > n,u,x,y,b,c,d)
7647 
7648  IMPLICIT NONE
7649 
7650 ! argument declarations
7651  INTEGER N
7652  REAL U
7653  REAL X(N)
7654  REAL Y(N)
7655  REAL B(N)
7656  REAL C(N)
7657  REAL D(N)
7658 
7659  end function seval
7660 !
7661  END INTERFACE
7662  ! block file generated by iface.for -- 25Apr2007
7663 !==============================================================
7664 ! iface -- generated interface body module: SPEVAL
7665 !
7666  INTERFACE speval
7667 
7668 !----------------------------------------------------------
7669 ! iface: interface block generated segment for subroutine
7670 ! SPEVAL ... for meaning of arguments see the documentation
7671 
7672  REAL FUNCTION SPEVAL(
7673  > n,u,x,y,b,c,d)
7674 
7675  IMPLICIT NONE
7676 
7677 ! argument declarations
7678  INTEGER N
7679  REAL U
7680  REAL X(N)
7681  REAL Y(N)
7682  REAL B(N)
7683  REAL C(N)
7684  REAL D(N)
7685 
7686  end function SPEVAL
7687 !
7688  END INTERFACE
7689  ! block file generated by iface.for -- 25Apr2007
7690 !==============================================================
7691 ! iface -- generated interface body module: SPGRID
7692 !
7693  INTERFACE spgrid
7694 
7695 !----------------------------------------------------------
7696 ! iface: interface block generated segment for subroutine
7697 ! SPGRID ... for meaning of arguments see the documentation
7698 
7699  SUBROUTINE spgrid(
7700  > X_NEWGRID,NX_NEW,F_NEW,NX,XPKG,FSPL,IWARN,IER)
7701 
7702  IMPLICIT NONE
7703 
7704 ! argument declarations
7705  INTEGER NX_NEW
7706  INTEGER NX
7707  INTEGER IWARN
7708  INTEGER IER
7709  REAL X_NEWGRID(NX_NEW)
7710  REAL F_NEW(NX_NEW)
7711  REAL XPKG(NX,4)
7712  REAL FSPL(4,NX)
7713 
7714  end subroutine spgrid
7715 !
7716  END INTERFACE
7717  ! block file generated by iface.for -- 25Apr2007
7718 !==============================================================
7719 ! iface -- generated interface body module: SPLAAN
7720 !
7721  INTERFACE splaan
7722 
7723 !----------------------------------------------------------
7724 ! iface: interface block generated segment for subroutine
7725 ! SPLAAN ... for meaning of arguments see the documentation
7726 
7727  SUBROUTINE splaan(
7728  > N,X,Y,B,C,D)
7729 
7730  IMPLICIT NONE
7731 
7732 ! argument declarations
7733  INTEGER N
7734  REAL X(N)
7735  REAL Y(N)
7736  REAL B(N)
7737  REAL C(N)
7738  REAL D(N)
7739 
7740  end subroutine splaan
7741 !
7742  END INTERFACE
7743  ! block file generated by iface.for -- 25Apr2007
7744 !==============================================================
7745 ! iface -- generated interface body module: SPLBRK
7746 !
7747  INTERFACE splbrk
7748 
7749 !----------------------------------------------------------
7750 ! iface: interface block generated segment for subroutine
7751 ! SPLBRK ... for meaning of arguments see the documentation
7752 
7753  SUBROUTINE splbrk(
7754  > IOPT,N,NBRK,X,Y,B,C,D)
7755 
7756  IMPLICIT NONE
7757 
7758 ! argument declarations
7759  INTEGER IOPT
7760  INTEGER N
7761  INTEGER NBRK
7762  REAL X(N)
7763  REAL Y(N)
7764  REAL B(N)
7765  REAL C(N)
7766  REAL D(N)
7767 
7768  end subroutine SPLBRK
7769 !
7770  END INTERFACE
7771  ! block file generated by iface.for -- 25Apr2007
7772 !==============================================================
7773 ! iface -- generated interface body module: SPLEEN
7774 !
7775  INTERFACE spleen
7776 
7777 !----------------------------------------------------------
7778 ! iface: interface block generated segment for subroutine
7779 ! SPLEEN ... for meaning of arguments see the documentation
7780 
7781  SUBROUTINE spleen(
7782  > N,X,Y,B,C,D)
7783 
7784  IMPLICIT NONE
7785 
7786 ! argument declarations
7787  INTEGER N
7788  REAL X(N)
7789  REAL Y(N)
7790  REAL B(N)
7791  REAL C(N)
7792  REAL D(N)
7793 
7794  end subroutine SPLEEN
7795 !
7796  END INTERFACE
7797  ! block file generated by iface.for -- 25Apr2007
7798 !==============================================================
7799 ! iface -- generated interface body module: SPLINCK
7800 !
7801  INTERFACE splinck
7802 
7803 !----------------------------------------------------------
7804 ! iface: interface block generated segment for subroutine
7805 ! SPLINCK ... for meaning of arguments see the documentation
7806 
7807  SUBROUTINE splinck(
7808  > X,INX,ILINX,ZTOL,IER)
7809 
7810  IMPLICIT NONE
7811 
7812 ! argument declarations
7813  INTEGER INX
7814  INTEGER ILINX
7815  REAL ZTOL
7816  INTEGER IER
7817  REAL X(INX)
7818 
7819  end subroutine splinck
7820 !
7821  END INTERFACE
7822  ! block file generated by iface.for -- 25Apr2007
7823 !==============================================================
7824 ! iface -- generated interface body module: SPLINE
7825 !
7826  INTERFACE spline
7827 
7828 !----------------------------------------------------------
7829 ! iface: interface block generated segment for subroutine
7830 ! SPLINE ... for meaning of arguments see the documentation
7831 
7832  SUBROUTINE spline(
7833  > N,X,Y,B,C,D)
7834 
7835  IMPLICIT NONE
7836 
7837 ! argument declarations
7838  INTEGER N
7839  REAL X(N)
7840  REAL Y(N)
7841  REAL B(N)
7842  REAL C(N)
7843  REAL D(N)
7844 
7845  end subroutine spline
7846 !
7847  END INTERFACE
7848  ! block file generated by iface.for -- 25Apr2007
7849 !==============================================================
7850 ! iface -- generated interface body module: SPVEC
7851 !
7852  INTERFACE spvec
7853 
7854 !----------------------------------------------------------
7855 ! iface: interface block generated segment for subroutine
7856 ! SPVEC ... for meaning of arguments see the documentation
7857 
7858  SUBROUTINE spvec(
7859  > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
7860 
7861  IMPLICIT NONE
7862 
7863 ! argument declarations
7864  INTEGER IVEC
7865  INTEGER IVD
7866  INTEGER NX
7867  INTEGER IWARN
7868  INTEGER IER
7869  INTEGER ICT(3)
7870  REAL XVEC(IVEC)
7871  REAL FVAL(IVD,*)
7872  REAL XPKG(NX,4)
7873  REAL FSPL(4,NX)
7874 
7875  end subroutine spvec
7876 !
7877  END INTERFACE
7878  ! block file generated by iface.for -- 25Apr2007
7879 !==============================================================
7880 ! iface -- generated interface body module: TCSPEVAL
7881 !
7882  INTERFACE tcspeval
7883 
7884 !----------------------------------------------------------
7885 ! iface: interface block generated segment for subroutine
7886 ! TCSPEVAL ... for meaning of arguments see the documentation
7887 
7888  SUBROUTINE tcspeval(
7889  > XGET,YGET,ZGET,ISELECT,FVAL,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,F,
7890  > INF4,INF5,IER)
7891 
7892  IMPLICIT NONE
7893 
7894 ! argument declarations
7895  REAL XGET
7896  REAL YGET
7897  REAL ZGET
7898  INTEGER NX
7899  INTEGER NY
7900  INTEGER NZ
7901  INTEGER ILINX
7902  INTEGER ILINY
7903  INTEGER ILINZ
7904  INTEGER INF4
7905  INTEGER INF5
7906  INTEGER IER
7907  INTEGER ISELECT(10)
7908  REAL FVAL(*)
7909  REAL X(NX)
7910  REAL Y(NY)
7911  REAL Z(NZ)
7912  REAL F(4,4,4,INF4,INF5,NZ)
7913 
7914  end subroutine tcspeval
7915 !
7916  END INTERFACE
7917 !==============================================================
7918 ! iface -- generated interface body module: TCSPEVXYZ
7919 !
7920  INTERFACE tcspevxyz
7921 
7922 !----------------------------------------------------------
7923 ! iface: interface block generated segment for subroutine
7924 ! TCSPEVXYZ ... for meaning of arguments see the documentation
7925 
7926  SUBROUTINE tcspevxyz(
7927  > XGET,YGET,ZGET,X,NX,Y,NY,Z,NZ,ILINX,ILINY,ILINZ,I,J,K,DX,DY,DZ,
7928  > IER)
7929 
7930  IMPLICIT NONE
7931 
7932 ! argument declarations
7933  REAL XGET
7934  REAL YGET
7935  REAL ZGET
7936  INTEGER NX
7937  INTEGER NY
7938  INTEGER NZ
7939  INTEGER ILINX
7940  INTEGER ILINY
7941  INTEGER ILINZ
7942  INTEGER I
7943  INTEGER J
7944  INTEGER K
7945  REAL DX
7946  REAL DY
7947  REAL DZ
7948  INTEGER IER
7949  REAL X(NX)
7950  REAL Y(NY)
7951  REAL Z(NZ)
7952 
7953  end subroutine TCSPEVXYZ
7954 !
7955  END INTERFACE
7956 !==============================================================
7957 ! iface -- generated interface body module: TCSPEVFN
7958 !
7959  INTERFACE tcspevfn
7960 
7961 !----------------------------------------------------------
7962 ! iface: interface block generated segment for subroutine
7963 ! TCSPEVFN ... for meaning of arguments see the documentation
7964 
7965  SUBROUTINE tcspevfn(
7966  > ICT,IVEC,IVD,FVAL,IV,JV,KV,DXV,DYV,DZV,F,INF4,INF5,NZ)
7967 
7968  IMPLICIT NONE
7969 
7970 ! argument declarations
7971  INTEGER IVEC
7972  INTEGER IVD
7973  INTEGER INF4
7974  INTEGER INF5
7975  INTEGER NZ
7976  INTEGER ICT(10)
7977  REAL FVAL(IVD,*)
7978  INTEGER IV(IVEC)
7979  INTEGER JV(IVEC)
7980  INTEGER KV(IVEC)
7981  REAL DXV(IVEC)
7982  REAL DYV(IVEC)
7983  REAL DZV(IVEC)
7984  REAL F(4,4,4,INF4,INF5,NZ)
7985 
7986  end subroutine tcspevfn
7987 !
7988  END INTERFACE
7989  ! block file generated by iface.for -- 25Apr2007
7990 !==============================================================
7991 ! iface -- generated interface body module: TCSPGRID
7992 !
7993  INTERFACE tcspgrid
7994 
7995 !----------------------------------------------------------
7996 ! iface: interface block generated segment for subroutine
7997 ! TCSPGRID ... for meaning of arguments see the documentation
7998 
7999  SUBROUTINE tcspgrid(
8000  > X_NEWGRID,NX_NEW,Y_NEWGRID,NY_NEW,Z_NEWGRID,NZ_NEW,F_NEW,IF1,IF2,
8001  > NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,INF4,INF5,IWARN,IER)
8002 
8003  IMPLICIT NONE
8004 
8005 ! argument declarations
8006  INTEGER NX_NEW
8007  INTEGER NY_NEW
8008  INTEGER NZ_NEW
8009  INTEGER IF1
8010  INTEGER IF2
8011  INTEGER NX
8012  INTEGER NY
8013  INTEGER NZ
8014  INTEGER INF4
8015  INTEGER INF5
8016  INTEGER IWARN
8017  INTEGER IER
8018  REAL X_NEWGRID(NX_NEW)
8019  REAL Y_NEWGRID(NY_NEW)
8020  REAL Z_NEWGRID(NZ_NEW)
8021  REAL F_NEW(IF1,IF2,NZ_NEW)
8022  REAL XPKG(NX,4)
8023  REAL YPKG(NY,4)
8024  REAL ZPKG(NZ,4)
8025  REAL FSPL(4,4,4,INF4,INF5,NZ)
8026 
8027  end subroutine tcspgrid
8028 !
8029  END INTERFACE
8030  ! block file generated by iface.for -- 25Apr2007
8031 !==============================================================
8032 ! iface -- generated interface body module: TCSPLINE
8033 !
8034  INTERFACE tcspline
8035 
8036 !----------------------------------------------------------
8037 ! iface: interface block generated segment for subroutine
8038 ! TCSPLINE ... for meaning of arguments see the documentation
8039 
8040  SUBROUTINE tcspline(
8041  > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,
8042  > BCXMAX,INB1X,IBCTHMIN,BCTHMIN,IBCTHMAX,BCTHMAX,INB1TH,IBCPHMIN,
8043  > BCPHMIN,IBCPHMAX,BCPHMAX,INB1PH,WK,NWK,ILINX,ILINTH,ILINPH,IER)
8044 
8045  IMPLICIT NONE
8046 
8047 ! argument declarations
8048  INTEGER INX
8049  INTEGER INTH
8050  INTEGER INPH
8051  INTEGER INF4
8052  INTEGER INF5
8053  INTEGER IBCXMIN
8054  INTEGER IBCXMAX
8055  INTEGER INB1X
8056  INTEGER IBCTHMIN
8057  INTEGER IBCTHMAX
8058  INTEGER INB1TH
8059  INTEGER IBCPHMIN
8060  INTEGER IBCPHMAX
8061  INTEGER INB1PH
8062  INTEGER NWK
8063  INTEGER ILINX
8064  INTEGER ILINTH
8065  INTEGER ILINPH
8066  INTEGER IER
8067  REAL X(INX)
8068  REAL TH(INTH)
8069  REAL PH(INPH)
8070  REAL FSPL(4,4,4,INF4,INF5,INPH)
8071  REAL BCXMIN(INB1X,*)
8072  REAL BCXMAX(INB1X,*)
8073  REAL BCTHMIN(INB1TH,*)
8074  REAL BCTHMAX(INB1TH,*)
8075  REAL BCPHMIN(INB1PH,*)
8076  REAL BCPHMAX(INB1PH,*)
8077  REAL WK(NWK)
8078 
8079  end subroutine tcspline
8080 !
8081  END INTERFACE
8082 !==============================================================
8083 ! iface -- generated interface body module: TCSPCORR
8084 !
8085  INTERFACE tcspcorr
8086 
8087 !----------------------------------------------------------
8088 ! iface: interface block generated segment for subroutine
8089 ! TCSPCORR ... for meaning of arguments see the documentation
8090 
8091  SUBROUTINE tcspcorr(
8092  > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,IBCXMAX,IBCTHMIN,
8093  > IBCTHMAX,IBCPHMIN,BCPH1,IBCPHMAX,BCPH2,CCORR,WK,NWK)
8094 
8095  IMPLICIT NONE
8096 
8097 ! argument declarations
8098  INTEGER INX
8099  INTEGER INTH
8100  INTEGER INPH
8101  INTEGER INF4
8102  INTEGER INF5
8103  INTEGER IBCXMIN
8104  INTEGER IBCXMAX
8105  INTEGER IBCTHMIN
8106  INTEGER IBCTHMAX
8107  INTEGER IBCPHMIN
8108  INTEGER IBCPHMAX
8109  INTEGER NWK
8110  REAL X(INX)
8111  REAL TH(INTH)
8112  REAL PH(INPH)
8113  REAL FSPL(4,4,4,INF4,INF5,INPH)
8114  REAL BCPH1(INX,INTH)
8115  REAL BCPH2(INX,INTH)
8116  REAL CCORR(3,4,INX,INTH,INPH)
8117  REAL WK(NWK)
8118 
8119  end subroutine TCSPCORR
8120 !
8121  END INTERFACE
8122 !==============================================================
8123 ! iface -- generated interface body module: TCSP23
8124 !
8125  INTERFACE tcsp23
8126 
8127 !----------------------------------------------------------
8128 ! iface: interface block generated segment for subroutine
8129 ! TCSP23 ... for meaning of arguments see the documentation
8130 
8131  SUBROUTINE tcsp23(
8132  > X,INX,TH,INTH,FSPL,INF4,IBCXMIN,BCXMIN,IBCXMAX,BCXMAX,IBCTHMIN,
8133  > BCTHMIN,IBCTHMAX,BCTHMAX,FSPL2,WK,NWK,ILINX,ILINTH,IER)
8134 
8135  IMPLICIT NONE
8136 
8137 ! argument declarations
8138  INTEGER INX
8139  INTEGER INTH
8140  INTEGER INF4
8141  INTEGER IBCXMIN
8142  INTEGER IBCXMAX
8143  INTEGER IBCTHMIN
8144  INTEGER IBCTHMAX
8145  INTEGER NWK
8146  INTEGER ILINX
8147  INTEGER ILINTH
8148  INTEGER IER
8149  REAL X(INX)
8150  REAL TH(INTH)
8151  REAL FSPL(4,4,4,INF4,INTH)
8152  REAL BCXMIN(INTH)
8153  REAL BCXMAX(INTH)
8154  REAL BCTHMIN(INX)
8155  REAL BCTHMAX(INX)
8156  REAL FSPL2(4,4,INX,INTH)
8157  REAL WK(NWK)
8158 
8159  end subroutine tcsp23
8160 !
8161  END INTERFACE
8162  ! block file generated by iface.for -- 25Apr2007
8163 !==============================================================
8164 ! iface -- generated interface body module: TCSPVEC
8165 !
8166  INTERFACE tcspvec
8167 
8168 !----------------------------------------------------------
8169 ! iface: interface block generated segment for subroutine
8170 ! TCSPVEC ... for meaning of arguments see the documentation
8171 
8172  SUBROUTINE tcspvec(
8173  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
8174  > INF4,INF5,IWARN,IER)
8175 
8176  IMPLICIT NONE
8177 
8178 ! argument declarations
8179  INTEGER IVEC
8180  INTEGER IVD
8181  INTEGER NX
8182  INTEGER NY
8183  INTEGER NZ
8184  INTEGER INF4
8185  INTEGER INF5
8186  INTEGER IWARN
8187  INTEGER IER
8188  INTEGER ICT(10)
8189  REAL XVEC(IVEC)
8190  REAL YVEC(IVEC)
8191  REAL ZVEC(IVEC)
8192  REAL FVAL(IVD,*)
8193  REAL XPKG(NX,4)
8194  REAL YPKG(NY,4)
8195  REAL ZPKG(NZ,4)
8196  REAL FSPL(4,4,4,INF4,INF5,NZ)
8197 
8198  end subroutine tcspvec
8199 !
8200  END INTERFACE
8201  ! block file generated by iface.for -- 25Apr2007
8202 !==============================================================
8203 ! iface -- generated interface body module: TPSPLINB
8204 !
8205  INTERFACE tpsplinb
8206 
8207 !----------------------------------------------------------
8208 ! iface: interface block generated segment for subroutine
8209 ! TPSPLINB ... for meaning of arguments see the documentation
8210 
8211  SUBROUTINE tpsplinb(
8212  > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,IBCXMIN,BCXMIN,IBCXMAX,
8213  > BCXMAX,INB1,WK,NWK,ILINX,ILINTH,ILINPH,IER)
8214 
8215  IMPLICIT NONE
8216 
8217 ! argument declarations
8218  INTEGER INX
8219  INTEGER INTH
8220  INTEGER INPH
8221  INTEGER INF4
8222  INTEGER INF5
8223  INTEGER IBCXMIN
8224  INTEGER IBCXMAX
8225  INTEGER INB1
8226  INTEGER NWK
8227  INTEGER ILINX
8228  INTEGER ILINTH
8229  INTEGER ILINPH
8230  INTEGER IER
8231  REAL X(INX)
8232  REAL TH(INTH)
8233  REAL PH(INPH)
8234  REAL FSPL(4,4,4,INF4,INF5,INPH)
8235  REAL BCXMIN(INB1,INPH)
8236  REAL BCXMAX(INB1,INPH)
8237  REAL WK(NWK)
8238 
8239  end subroutine TPSPLINB
8240 !
8241  END INTERFACE
8242  ! block file generated by iface.for -- 25Apr2007
8243 !==============================================================
8244 ! iface -- generated interface body module: TPSPLINE
8245 !
8246  INTERFACE tpspline
8247 
8248 !----------------------------------------------------------
8249 ! iface: interface block generated segment for subroutine
8250 ! TPSPLINE ... for meaning of arguments see the documentation
8251 
8252  SUBROUTINE tpspline(
8253  > X,INX,TH,INTH,PH,INPH,FSPL,INF4,INF5,WK,NWK,ILINX,ILINTH,ILINPH,
8254  > IER)
8255 
8256  IMPLICIT NONE
8257 
8258 ! argument declarations
8259  INTEGER INX
8260  INTEGER INTH
8261  INTEGER INPH
8262  INTEGER INF4
8263  INTEGER INF5
8264  INTEGER NWK
8265  INTEGER ILINX
8266  INTEGER ILINTH
8267  INTEGER ILINPH
8268  INTEGER IER
8269  REAL X(INX)
8270  REAL TH(INTH)
8271  REAL PH(INPH)
8272  REAL FSPL(4,4,4,INF4,INF5,INPH)
8273  REAL WK(NWK)
8274 
8275  end subroutine tpspline
8276 !
8277  END INTERFACE
8278  ! block file generated by iface.for -- 25Apr2007
8279 !==============================================================
8280 ! iface -- generated interface body module: UTIL_BCHERM1
8281 !
8282  INTERFACE util_bcherm1
8283 
8284 !----------------------------------------------------------
8285 ! iface: interface block generated segment for subroutine
8286 ! UTIL_BCHERM1 ... for meaning of arguments see the documentation
8287 
8288  SUBROUTINE util_bcherm1(
8289  > FHERM,IDIMX1,JBCXA,JBCXB,ZBCXA,ZBCXB,X1)
8290 
8291  IMPLICIT NONE
8292 
8293 ! argument declarations
8294  INTEGER IDIMX1
8295  INTEGER JBCXA
8296  INTEGER JBCXB
8297  REAL ZBCXA
8298  REAL ZBCXB
8299  REAL FHERM(0:1,IDIMX1)
8300  REAL X1(IDIMX1)
8301 
8302  end subroutine util_bcherm1
8303 !
8304  END INTERFACE
8305  ! block file generated by iface.for -- 25Apr2007
8306 !==============================================================
8307 ! iface -- generated interface body module: UTIL_BCHERM2
8308 !
8309  INTERFACE util_bcherm2
8310 
8311 !----------------------------------------------------------
8312 ! iface: interface block generated segment for subroutine
8313 ! UTIL_BCHERM2 ... for meaning of arguments see the documentation
8314 
8315  SUBROUTINE util_bcherm2(
8316  > FHERM,IDIMX1,IDIMX2,JBCX1A,JBCX1B,JBCX2A,JBCX2B,ZBCX1A,ZBCX1B,
8317  > ZBCX2A,ZBCX2B,X1,X2)
8318 
8319  IMPLICIT NONE
8320 
8321 ! argument declarations
8322  INTEGER IDIMX1
8323  INTEGER IDIMX2
8324  INTEGER JBCX1A
8325  INTEGER JBCX1B
8326  INTEGER JBCX2A
8327  INTEGER JBCX2B
8328  REAL FHERM(0:3,IDIMX1,IDIMX2)
8329  REAL ZBCX1A(IDIMX2)
8330  REAL ZBCX1B(IDIMX2)
8331  REAL ZBCX2A(IDIMX1)
8332  REAL ZBCX2B(IDIMX1)
8333  REAL X1(IDIMX1)
8334  REAL X2(IDIMX2)
8335 
8336  end subroutine util_bcherm2
8337 !
8338  END INTERFACE
8339  ! block file generated by iface.for -- 25Apr2007
8340 !==============================================================
8341 ! iface -- generated interface body module: UTIL_BCHERM3
8342 !
8343  INTERFACE util_bcherm3
8344 
8345 !----------------------------------------------------------
8346 ! iface: interface block generated segment for subroutine
8347 ! UTIL_BCHERM3 ... for meaning of arguments see the documentation
8348 
8349  SUBROUTINE util_bcherm3(
8350  > FHERM,IDIMX1,IDIMX2,IDIMX3,JBCX1A,JBCX1B,JBCX2A,JBCX2B,JBCX3A,
8351  > JBCX3B,ZBCX1A,ZBCX1B,ZBCX2A,ZBCX2B,ZBCX3A,ZBCX3B,X1,X2,X3)
8352 
8353  IMPLICIT NONE
8354 
8355 ! argument declarations
8356  INTEGER IDIMX1
8357  INTEGER IDIMX2
8358  INTEGER IDIMX3
8359  INTEGER JBCX1A
8360  INTEGER JBCX1B
8361  INTEGER JBCX2A
8362  INTEGER JBCX2B
8363  INTEGER JBCX3A
8364  INTEGER JBCX3B
8365  REAL FHERM(0:7,IDIMX1,IDIMX2,IDIMX3)
8366  REAL ZBCX1A(IDIMX2,IDIMX3)
8367  REAL ZBCX1B(IDIMX2,IDIMX3)
8368  REAL ZBCX2A(IDIMX1,IDIMX3)
8369  REAL ZBCX2B(IDIMX1,IDIMX3)
8370  REAL ZBCX3A(IDIMX2,IDIMX3)
8371  REAL ZBCX3B(IDIMX2,IDIMX3)
8372  REAL X1(IDIMX1)
8373  REAL X2(IDIMX2)
8374  REAL X3(IDIMX3)
8375 
8376  end subroutine util_bcherm3
8377 !
8378  END INTERFACE
8379  ! block file generated by iface.for -- 25Apr2007
8380 !==============================================================
8381 ! iface -- generated interface body module: VECBICUB
8382 !
8383  INTERFACE vecbicub
8384 
8385 !----------------------------------------------------------
8386 ! iface: interface block generated segment for subroutine
8387 ! VECBICUB ... for meaning of arguments see the documentation
8388 
8389  SUBROUTINE vecbicub(
8390  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)
8391 
8392  IMPLICIT NONE
8393 
8394 ! argument declarations
8395  INTEGER IVEC
8396  INTEGER IVD
8397  INTEGER NX
8398  INTEGER NY
8399  INTEGER INF2
8400  INTEGER IWARN
8401  INTEGER IER
8402  INTEGER ICT(6)
8403  REAL XVEC(IVEC)
8404  REAL YVEC(IVEC)
8405  REAL FVAL(IVD,*)
8406  REAL XPKG(NX,4)
8407  REAL YPKG(NY,4)
8408  REAL FSPL(0:3,INF2,NY)
8409 
8410  end subroutine vecbicub
8411 !
8412  END INTERFACE
8413  ! block file generated by iface.for -- 25Apr2007
8414 !==============================================================
8415 ! iface -- generated interface body module: VECHERM1
8416 !
8417  INTERFACE vecherm1
8418 
8419 !----------------------------------------------------------
8420 ! iface: interface block generated segment for subroutine
8421 ! VECHERM1 ... for meaning of arguments see the documentation
8422 
8423  SUBROUTINE vecherm1(
8424  > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
8425 
8426  IMPLICIT NONE
8427 
8428 ! argument declarations
8429  INTEGER IVEC
8430  INTEGER IVD
8431  INTEGER NX
8432  INTEGER IWARN
8433  INTEGER IER
8434  INTEGER ICT(2)
8435  REAL XVEC(IVEC)
8436  REAL FVAL(IVD,*)
8437  REAL XPKG(NX,4)
8438  REAL FSPL(2,NX)
8439 
8440  end subroutine vecherm1
8441 !
8442  END INTERFACE
8443  ! block file generated by iface.for -- 25Apr2007
8444 !==============================================================
8445 ! iface -- generated interface body module: VECHERM2
8446 !
8447  INTERFACE vecherm2
8448 
8449 !----------------------------------------------------------
8450 ! iface: interface block generated segment for subroutine
8451 ! VECHERM2 ... for meaning of arguments see the documentation
8452 
8453  SUBROUTINE vecherm2(
8454  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF2,IWARN,IER)
8455 
8456  IMPLICIT NONE
8457 
8458 ! argument declarations
8459  INTEGER IVEC
8460  INTEGER IVD
8461  INTEGER NX
8462  INTEGER NY
8463  INTEGER INF2
8464  INTEGER IWARN
8465  INTEGER IER
8466  INTEGER ICT(4)
8467  REAL XVEC(IVEC)
8468  REAL YVEC(IVEC)
8469  REAL FVAL(IVD,*)
8470  REAL XPKG(NX,4)
8471  REAL YPKG(NY,4)
8472  REAL FSPL(0:3,INF2,NY)
8473 
8474  end subroutine vecherm2
8475 !
8476  END INTERFACE
8477  ! block file generated by iface.for -- 25Apr2007
8478 !==============================================================
8479 ! iface -- generated interface body module: VECHERM3
8480 !
8481  INTERFACE vecherm3
8482 
8483 !----------------------------------------------------------
8484 ! iface: interface block generated segment for subroutine
8485 ! VECHERM3 ... for meaning of arguments see the documentation
8486 
8487  SUBROUTINE vecherm3(
8488  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
8489  > INF2,INF3,IWARN,IER)
8490 
8491  IMPLICIT NONE
8492 
8493 ! argument declarations
8494  INTEGER IVEC
8495  INTEGER IVD
8496  INTEGER NX
8497  INTEGER NY
8498  INTEGER NZ
8499  INTEGER INF2
8500  INTEGER INF3
8501  INTEGER IWARN
8502  INTEGER IER
8503  INTEGER ICT(10)
8504  REAL XVEC(IVEC)
8505  REAL YVEC(IVEC)
8506  REAL ZVEC(IVEC)
8507  REAL FVAL(IVD,*)
8508  REAL XPKG(NX,4)
8509  REAL YPKG(NY,4)
8510  REAL ZPKG(NZ,4)
8511  REAL FSPL(0:7,INF2,INF3,NZ)
8512 
8513  end subroutine vecherm3
8514 !
8515  END INTERFACE
8516  ! block file generated by iface.for -- 25Apr2007
8517 !==============================================================
8518 ! iface -- generated interface body module: VECIN2D_ARGCHK
8519 !
8520  INTERFACE vecin2d_argchk
8521 
8522 !----------------------------------------------------------
8523 ! iface: interface block generated segment for subroutine
8524 ! VECIN2D_ARGCHK ... for meaning of arguments see the documentation
8525 
8526  SUBROUTINE vecin2d_argchk(
8527  > SUBNAME,JSPLINE,ICOEFF,NX,NY,IXDIM,IYDIM,IER)
8528 
8529  IMPLICIT NONE
8530 
8531 ! argument declarations
8532  CHARACTER*(*) SUBNAME
8533  INTEGER ICOEFF
8534  INTEGER NX
8535  INTEGER NY
8536  INTEGER IXDIM
8537  INTEGER IYDIM
8538  INTEGER IER
8539  INTEGER JSPLINE(2)
8540 
8541  end subroutine VECIN2D_ARGCHK
8542 !
8543  END INTERFACE
8544  ! block file generated by iface.for -- 25Apr2007
8545 !==============================================================
8546 ! iface -- generated interface body module: VECIN3D_ARGCHK
8547 !
8548  INTERFACE vecin3d_argchk
8549 
8550 !----------------------------------------------------------
8551 ! iface: interface block generated segment for subroutine
8552 ! VECIN3D_ARGCHK ... for meaning of arguments see the documentation
8553 
8554  SUBROUTINE vecin3d_argchk(
8555  > SUBNAME,JSPLINE,ICOEFF,NX,NY,NZ,IXDIM,IYDIM,IZDIM,IER)
8556 
8557  IMPLICIT NONE
8558 
8559 ! argument declarations
8560  CHARACTER*(*) SUBNAME
8561  INTEGER ICOEFF
8562  INTEGER NX
8563  INTEGER NY
8564  INTEGER NZ
8565  INTEGER IXDIM
8566  INTEGER IYDIM
8567  INTEGER IZDIM
8568  INTEGER IER
8569  INTEGER JSPLINE(3)
8570 
8571  end subroutine VECIN3D_ARGCHK
8572 !
8573  END INTERFACE
8574  ! block file generated by iface.for -- 25Apr2007
8575 !==============================================================
8576 ! iface -- generated interface body module: VECINTRP2D
8577 !
8578  INTERFACE vecintrp2d
8579 
8580 !----------------------------------------------------------
8581 ! iface: interface block generated segment for subroutine
8582 ! VECINTRP2D ... for meaning of arguments see the documentation
8583 
8584  SUBROUTINE vecintrp2d(
8585  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,JSPLINE,FSPL,ICOEFF,
8586  > IXDIM,IYDIM,IWARN,IER)
8587 
8588  IMPLICIT NONE
8589 
8590 ! argument declarations
8591  INTEGER IVEC
8592  INTEGER IVD
8593  INTEGER NX
8594  INTEGER NY
8595  INTEGER ICOEFF
8596  INTEGER IXDIM
8597  INTEGER IYDIM
8598  INTEGER IWARN
8599  INTEGER IER
8600  INTEGER ICT(6)
8601  REAL XVEC(IVEC)
8602  REAL YVEC(IVEC)
8603  REAL FVAL(IVD,*)
8604  REAL XPKG(NX,4)
8605  REAL YPKG(NY,4)
8606  INTEGER JSPLINE(2)
8607  REAL FSPL(ICOEFF,IXDIM,IYDIM)
8608 
8609  end subroutine vecintrp2d
8610 !
8611  END INTERFACE
8612  ! block file generated by iface.for -- 25Apr2007
8613 !==============================================================
8614 ! iface -- generated interface body module: VECINTRP3D
8615 !
8616  INTERFACE vecintrp3d
8617 
8618 !----------------------------------------------------------
8619 ! iface: interface block generated segment for subroutine
8620 ! VECINTRP3D ... for meaning of arguments see the documentation
8621 
8622  SUBROUTINE vecintrp3d(
8623  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,JSPLINE,
8624  > FSPL,ICOEFF,IXDIM,IYDIM,IZDIM,IWARN,IER)
8625 
8626  IMPLICIT NONE
8627 
8628 ! argument declarations
8629  INTEGER IVEC
8630  INTEGER IVD
8631  INTEGER NX
8632  INTEGER NY
8633  INTEGER NZ
8634  INTEGER ICOEFF
8635  INTEGER IXDIM
8636  INTEGER IYDIM
8637  INTEGER IZDIM
8638  INTEGER IWARN
8639  INTEGER IER
8640  INTEGER ICT(10)
8641  REAL XVEC(IVEC)
8642  REAL YVEC(IVEC)
8643  REAL ZVEC(IVEC)
8644  REAL FVAL(IVD,*)
8645  REAL XPKG(NX,4)
8646  REAL YPKG(NY,4)
8647  REAL ZPKG(NZ,4)
8648  INTEGER JSPLINE(3)
8649  REAL FSPL(ICOEFF,IXDIM,IYDIM,IZDIM)
8650 
8651  end subroutine VECINTRP3D
8652 !
8653  END INTERFACE
8654  ! block file generated by iface.for -- 25Apr2007
8655 !==============================================================
8656 ! iface -- generated interface body module: VECPC1
8657 !
8658  INTERFACE vecpc1
8659 
8660 !----------------------------------------------------------
8661 ! iface: interface block generated segment for subroutine
8662 ! VECPC1 ... for meaning of arguments see the documentation
8663 
8664  SUBROUTINE vecpc1(
8665  > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
8666 
8667  IMPLICIT NONE
8668 
8669 ! argument declarations
8670  INTEGER IVEC
8671  INTEGER IVD
8672  INTEGER NX
8673  INTEGER IWARN
8674  INTEGER IER
8675  INTEGER ICT(2)
8676  REAL XVEC(IVEC)
8677  REAL FVAL(IVD,*)
8678  REAL XPKG(NX,4)
8679  REAL FSPL(NX)
8680 
8681  end subroutine vecpc1
8682 !
8683  END INTERFACE
8684  ! block file generated by iface.for -- 25Apr2007
8685 !==============================================================
8686 ! iface -- generated interface body module: VECPC2
8687 !
8688  INTERFACE vecpc2
8689 
8690 !----------------------------------------------------------
8691 ! iface: interface block generated segment for subroutine
8692 ! VECPC2 ... for meaning of arguments see the documentation
8693 
8694  SUBROUTINE vecpc2(
8695  > ICT,IVEC,XVEC,YVEC,IVD,FVAL,NX,XPKG,NY,YPKG,FSPL,INF1,IWARN,IER)
8696 
8697  IMPLICIT NONE
8698 
8699 ! argument declarations
8700  INTEGER IVEC
8701  INTEGER IVD
8702  INTEGER NX
8703  INTEGER NY
8704  INTEGER INF1
8705  INTEGER IWARN
8706  INTEGER IER
8707  INTEGER ICT(4)
8708  REAL XVEC(IVEC)
8709  REAL YVEC(IVEC)
8710  REAL FVAL(IVD,*)
8711  REAL XPKG(NX,4)
8712  REAL YPKG(NY,4)
8713  REAL FSPL(INF1,NY)
8714 
8715  end subroutine VECPC2
8716 !
8717  END INTERFACE
8718  ! block file generated by iface.for -- 25Apr2007
8719 !==============================================================
8720 ! iface -- generated interface body module: VECPC3
8721 !
8722  INTERFACE vecpc3
8723 
8724 !----------------------------------------------------------
8725 ! iface: interface block generated segment for subroutine
8726 ! VECPC3 ... for meaning of arguments see the documentation
8727 
8728  SUBROUTINE vecpc3(
8729  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FLIN,
8730  > INF1,INF2,IWARN,IER)
8731 
8732  IMPLICIT NONE
8733 
8734 ! argument declarations
8735  INTEGER IVEC
8736  INTEGER IVD
8737  INTEGER NX
8738  INTEGER NY
8739  INTEGER NZ
8740  INTEGER INF1
8741  INTEGER INF2
8742  INTEGER IWARN
8743  INTEGER IER
8744  INTEGER ICT(10)
8745  REAL XVEC(IVEC)
8746  REAL YVEC(IVEC)
8747  REAL ZVEC(IVEC)
8748  REAL FVAL(IVD,*)
8749  REAL XPKG(NX,4)
8750  REAL YPKG(NY,4)
8751  REAL ZPKG(NZ,4)
8752  REAL FLIN(INF1,INF2,NZ)
8753 
8754  end subroutine vecpc3
8755 !
8756  END INTERFACE
8757  ! block file generated by iface.for -- 25Apr2007
8758 !==============================================================
8759 ! iface -- generated interface body module: VECSPLINE
8760 !
8761  INTERFACE vecspline
8762 
8763 !----------------------------------------------------------
8764 ! iface: interface block generated segment for subroutine
8765 ! VECSPLINE ... for meaning of arguments see the documentation
8766 
8767  SUBROUTINE vecspline(
8768  > ICT,IVEC,XVEC,IVD,FVAL,NX,XPKG,FSPL,IWARN,IER)
8769 
8770  IMPLICIT NONE
8771 
8772 ! argument declarations
8773  INTEGER IVEC
8774  INTEGER IVD
8775  INTEGER NX
8776  INTEGER IWARN
8777  INTEGER IER
8778  INTEGER ICT(3)
8779  REAL XVEC(IVEC)
8780  REAL FVAL(IVD,*)
8781  REAL XPKG(NX,4)
8782  REAL FSPL(2,NX)
8783 
8784  end subroutine vecspline
8785 !
8786  END INTERFACE
8787  ! block file generated by iface.for -- 25Apr2007
8788 !==============================================================
8789 ! iface -- generated interface body module: VECTRICUB
8790 !
8791  INTERFACE vectricub
8792 
8793 !----------------------------------------------------------
8794 ! iface: interface block generated segment for subroutine
8795 ! VECTRICUB ... for meaning of arguments see the documentation
8796 
8797  SUBROUTINE vectricub(
8798  > ICT,IVEC,XVEC,YVEC,ZVEC,IVD,FVAL,NX,XPKG,NY,YPKG,NZ,ZPKG,FSPL,
8799  > INF4,INF5,IWARN,IER)
8800 
8801  IMPLICIT NONE
8802 
8803 ! argument declarations
8804  INTEGER IVEC
8805  INTEGER IVD
8806  INTEGER NX
8807  INTEGER NY
8808  INTEGER NZ
8809  INTEGER INF4
8810  INTEGER INF5
8811  INTEGER IWARN
8812  INTEGER IER
8813  INTEGER ICT(10)
8814  REAL XVEC(IVEC)
8815  REAL YVEC(IVEC)
8816  REAL ZVEC(IVEC)
8817  REAL FVAL(IVD,*)
8818  REAL XPKG(NX,4)
8819  REAL YPKG(NY,4)
8820  REAL ZPKG(NZ,4)
8821  REAL FSPL(8,INF4,INF5,NZ)
8822 
8823  end subroutine VECTRICUB
8824 !
8825  END INTERFACE
8826  ! block file generated by iface.for -- 25Apr2007
8827 !==============================================================
8828 ! iface -- generated interface body module: V_SPLINE
8829 !
8830  INTERFACE v_spline
8831 
8832 !----------------------------------------------------------
8833 ! iface: interface block generated segment for subroutine
8834 ! V_SPLINE ... for meaning of arguments see the documentation
8835 
8836  SUBROUTINE v_spline(
8837  > K_BC1,K_BCN,N,X,F,WK)
8838 
8839  IMPLICIT NONE
8840 
8841 ! argument declarations
8842  INTEGER K_BC1
8843  INTEGER K_BCN
8844  INTEGER N
8845  REAL X(*)
8846  REAL F(4,*)
8847  REAL WK(*)
8848 
8849  end subroutine v_spline
8850 !
8851  END INTERFACE
8852  ! block file generated by iface.for -- 25Apr2007
8853 !==============================================================
8854 ! iface -- generated interface body module: XLOOKUP
8855 !
8856  INTERFACE xlookup
8857 
8858 !----------------------------------------------------------
8859 ! iface: interface block generated segment for subroutine
8860 ! XLOOKUP ... for meaning of arguments see the documentation
8861 
8862  SUBROUTINE xlookup(
8863  > IVEC,XVEC,NX,XPKG,IMODE,IV,DXN,HV,HIV,IWARN)
8864 
8865  IMPLICIT NONE
8866 
8867 ! argument declarations
8868  INTEGER IVEC
8869  INTEGER NX
8870  INTEGER IMODE
8871  INTEGER IWARN
8872  REAL XVEC(IVEC)
8873  REAL XPKG(NX,4)
8874  INTEGER IV(IVEC)
8875  REAL DXN(IVEC)
8876  REAL HV(IVEC)
8877  REAL HIV(IVEC)
8878 
8879  end subroutine xlookup
8880 !
8881  END INTERFACE
8882  ! block file generated by iface.for -- 25Apr2007
8883 !==============================================================
8884 ! iface -- generated interface body module: ZONFIND
8885 !
8886  INTERFACE zonfind
8887 
8888 !----------------------------------------------------------
8889 ! iface: interface block generated segment for subroutine
8890 ! ZONFIND ... for meaning of arguments see the documentation
8891 
8892  SUBROUTINE zonfind(
8893  > X,NX,ZXGET,I)
8894 
8895  IMPLICIT NONE
8896 
8897 ! argument declarations
8898  INTEGER NX
8899  REAL ZXGET
8900  INTEGER I
8901  REAL X(NX)
8902 
8903  end subroutine ZONFIND
8904 !
8905  END INTERFACE
8906 !
8907  END MODULE pspline_calls
pspline_calls::util_bcherm1
Definition: pspline_calls.f:8282
pspline_calls::r8speval
Definition: pspline_calls.f:6396
pspline_calls::r8tcspevfn
Definition: pspline_calls.f:6689
pspline_calls::evbicub
Definition: pspline_calls.f:898
pspline_calls::r8mkherm1
Definition: pspline_calls.f:5399
pspline_calls::vecpc2
Definition: pspline_calls.f:8688
pspline_calls::herm2xy
Definition: pspline_calls.f:1935
pspline_calls::mkspline
Definition: pspline_calls.f:2747
pspline_calls::r8dnherm2
Definition: pspline_calls.f:3900
pspline_calls::gridpc3
Definition: pspline_calls.f:1708
pspline_calls::bcspvec
Definition: pspline_calls.f:573
pspline_calls::pc3fcnx
Definition: pspline_calls.f:3197
pspline_calls::bpsplinb
Definition: pspline_calls.f:607
pspline_calls::r8mkherm3
Definition: pspline_calls.f:5451
pspline_calls::r8gridpc2
Definition: pspline_calls.f:4737
pspline_calls::r8mktricop
Definition: pspline_calls.f:5924
pspline_calls::xlookup
Definition: pspline_calls.f:8856
pspline_calls::v_spline
Definition: pspline_calls.f:8830
pspline_calls::r8akherm1
Definition: pspline_calls.f:3265
pspline_calls::spline
Definition: pspline_calls.f:7826
pspline_calls::bcspgrid
Definition: pspline_calls.f:498
pspline_calls::pspline
Definition: pspline_calls.f:3238
pspline_calls::r8seval2
Definition: pspline_calls.f:6312
pspline_calls::r8herm1x
Definition: pspline_calls.f:4909
pspline_calls::akherm2p
Definition: pspline_calls.f:304
pspline_calls::r8seval
Definition: pspline_calls.f:6369
pspline_calls::r8akherm2p
Definition: pspline_calls.f:3368
pspline_calls::r8tcspevxyz
Definition: pspline_calls.f:6650
pspline_calls::tcspcorr
Definition: pspline_calls.f:8085
pspline_calls::r8util_bcherm3
Definition: pspline_calls.f:7073
pspline_calls::vecherm2
Definition: pspline_calls.f:8447
pspline_calls::r8cubsplb
Definition: pspline_calls.f:3850
pspline_calls::tpsplinb
Definition: pspline_calls.f:8205
pspline_calls::r8pc1fcn
Definition: pspline_calls.f:6033
pspline_calls::spleen
Definition: pspline_calls.f:7775
pspline_calls::herm3fcnx
Definition: pspline_calls.f:2166
pspline_calls::fvtricub
Definition: pspline_calls.f:1248
pspline_calls::pc2fcn
Definition: pspline_calls.f:3048
pspline_calls::speval
Definition: pspline_calls.f:7666
pspline_calls::r8gridintrp3d
Definition: pspline_calls.f:4664
pspline_calls::r8herm1ev
Definition: pspline_calls.f:4882
pspline_calls::r8spgrid
Definition: pspline_calls.f:6423
pspline_calls::cspeval
Definition: pspline_calls.f:674
pspline_calls::dnherm2
Definition: pspline_calls.f:836
pspline_calls::r8mkspl2zb
Definition: pspline_calls.f:5637
pspline_calls::mkspl2zb
Definition: pspline_calls.f:2594
pspline_calls::r8herm2xy
Definition: pspline_calls.f:4999
pspline_calls::mkspl3zb
Definition: pspline_calls.f:2705
pspline_calls::pc3fcn
Definition: pspline_calls.f:3157
pspline_calls::r8herm3ev
Definition: pspline_calls.f:5107
pspline_calls::r8herm2ev
Definition: pspline_calls.f:4967
pspline_calls::gridherm1
Definition: pspline_calls.f:1458
pspline_calls::nspline
Definition: pspline_calls.f:2933
pspline_calls::akherm2
Definition: pspline_calls.f:276
pspline_calls::tcsp23
Definition: pspline_calls.f:8125
pspline_calls::vecbicub
Definition: pspline_calls.f:8383
pspline_calls::seval
Definition: pspline_calls.f:7639
pspline_calls::r8fvspline
Definition: pspline_calls.f:4244
pspline_calls::r8vecbicub
Definition: pspline_calls.f:7113
pspline_calls::fvspline
Definition: pspline_calls.f:1180
pspline_calls::spvec
Definition: pspline_calls.f:7852
pspline_calls::r8mkbicub
Definition: pspline_calls.f:5271
pspline_calls::util_bcherm2
Definition: pspline_calls.f:8309
pspline_calls::r8bcspevxy
Definition: pspline_calls.f:3499
pspline_calls::pc1fcn
Definition: pspline_calls.f:2986
pspline_calls::r8bpsplinb
Definition: pspline_calls.f:3671
pspline_calls::r8gridspline
Definition: pspline_calls.f:4813
deriv
Definition: mapout_nc.f:94
pspline_calls::mktricop
Definition: pspline_calls.f:2877
pspline_calls::r8dnherm3
Definition: pspline_calls.f:3929
pspline_calls::r8herm2fcn
Definition: pspline_calls.f:5036
pspline_calls::r8vecspline
Definition: pspline_calls.f:7433
pspline_calls::mkspl2pb
Definition: pspline_calls.f:2525
pspline_calls::mkspl3pb
Definition: pspline_calls.f:2663
pspline_calls::r8mkspl3zb
Definition: pspline_calls.f:5751
pspline_calls::r8gridpc1
Definition: pspline_calls.f:4709
pspline_calls::r8herm3fcn
Definition: pspline_calls.f:5190
pspline_calls::herm3xyz
Definition: pspline_calls.f:2081
pspline_calls::r8akherm0
Definition: pspline_calls.f:3314
pspline_calls::r8tcspeval
Definition: pspline_calls.f:6612
pspline_calls::r8vecherm3
Definition: pspline_calls.f:7211
pspline_calls::f2test
Definition: pspline_calls.f:1329
pspline_calls::ibc_ck
Definition: pspline_calls.f:2207
pspline_calls::r8bpspline
Definition: pspline_calls.f:3707
pspline_calls::r8tpsplinb
Definition: pspline_calls.f:6935
pspline_calls::r8spleen
Definition: pspline_calls.f:6505
pspline_calls::bcspevfn
Definition: pspline_calls.f:467
pspline_calls::r8herm1fcn
Definition: pspline_calls.f:4937
pspline_calls::r8util_bcherm2
Definition: pspline_calls.f:7039
pspline_calls::gridherm3
Definition: pspline_calls.f:1521
pspline_calls::mkintrp2d
Definition: pspline_calls.f:2439
pspline_calls::r8herm2fcnx
Definition: pspline_calls.f:5071
pspline_calls::mkherm3
Definition: pspline_calls.f:2411
pspline_calls::r8mkintrp2d
Definition: pspline_calls.f:5480
pspline_calls::mkbicop
Definition: pspline_calls.f:2310
pspline_calls::r8pc3fcnx
Definition: pspline_calls.f:6244
pspline_calls::gridtricub
Definition: pspline_calls.f:1777
pspline_calls::dnherm1
Definition: pspline_calls.f:811
pspline_calls::gridintrp3d
Definition: pspline_calls.f:1600
pspline_calls::r8spline
Definition: pspline_calls.f:6556
pspline_calls::vecintrp3d
Definition: pspline_calls.f:8616
pspline_calls::r8pspline
Definition: pspline_calls.f:6285
pspline_calls::r8tcspcorr
Definition: pspline_calls.f:6815
pspline_calls::r8tpspline
Definition: pspline_calls.f:6976
pspline_calls::gridherm2
Definition: pspline_calls.f:1486
pspline_calls::r8bcspeval
Definition: pspline_calls.f:3467
pspline_calls::tcspevxyz
Definition: pspline_calls.f:7920
pspline_calls::mkbicubw
Definition: pspline_calls.f:2271
pspline_calls::r8evtricub
Definition: pspline_calls.f:4274
pspline_calls::fvintrp2d
Definition: pspline_calls.f:1034
pspline_calls::evintrp2d
Definition: pspline_calls.f:1001
pspline_calls::tcspevfn
Definition: pspline_calls.f:7959
pspline_calls::seval3
Definition: pspline_calls.f:7610
pspline_calls::r8v_spline
Definition: pspline_calls.f:7502
pspline_calls::r8gridpc3
Definition: pspline_calls.f:4772
pspline_calls::cspline
Definition: pspline_calls.f:755
pspline_calls::splinck
Definition: pspline_calls.f:7801
pspline_calls::r8mkspl3pb
Definition: pspline_calls.f:5708
pspline_calls::r8mkspl2pb
Definition: pspline_calls.f:5566
pspline_calls::pc2fcnx
Definition: pspline_calls.f:3083
pspline_calls::mktricub
Definition: pspline_calls.f:2776
pspline_calls::herm1x
Definition: pspline_calls.f:1845
pspline_calls::vecherm3
Definition: pspline_calls.f:8481
pspline_calls::r8tcsp23
Definition: pspline_calls.f:6855
pspline_calls::r8mktricon
Definition: pspline_calls.f:5950
pspline_calls::r8fvbicubx
Definition: pspline_calls.f:4029
pspline_calls::cspevx
Definition: pspline_calls.f:701
pspline_calls::r8cspeval
Definition: pspline_calls.f:3738
pspline_calls::r8vecintrp2d
Definition: pspline_calls.f:7250
pspline_calls::r8evintrp2d
Definition: pspline_calls.f:4065
pspline_calls::r8fvintrp2d
Definition: pspline_calls.f:4098
pspline_calls::r8vecherm2
Definition: pspline_calls.f:7177
pspline_calls::cspevfn
Definition: pspline_calls.f:727
pspline_calls::r8splaan
Definition: pspline_calls.f:6451
pspline_calls::f3test
Definition: pspline_calls.f:1359
pspline_calls::r8zonfind
Definition: pspline_calls.f:7558
pspline_calls::r8vectricub
Definition: pspline_calls.f:7463
pspline_calls::r8mkspl2p
Definition: pspline_calls.f:5604
pspline_calls::r8vecpc3
Definition: pspline_calls.f:7394
pspline_calls::r8util_bcherm1
Definition: pspline_calls.f:7012
pspline_calls::r8f2test
Definition: pspline_calls.f:4393
pspline_calls::r8mktricubw
Definition: pspline_calls.f:5873
pspline_calls::herm2fcnx
Definition: pspline_calls.f:2007
pspline_calls::zonfind
Definition: pspline_calls.f:8886
pspline_calls::akherm3p
Definition: pspline_calls.f:367
pspline_calls::r8akherm1p
Definition: pspline_calls.f:3289
pspline_calls::genxpkg
Definition: pspline_calls.f:1394
pspline_calls::tcspvec
Definition: pspline_calls.f:8166
pspline_calls::splaan
Definition: pspline_calls.f:7721
pspline_calls::vecin2d_argchk
Definition: pspline_calls.f:8520
pspline_calls::tcspeval
Definition: pspline_calls.f:7882
pspline_calls::r8mkspline
Definition: pspline_calls.f:5794
pspline_calls::r8tcspgrid
Definition: pspline_calls.f:6723
pspline_calls::bcspline
Definition: pspline_calls.f:533
pspline_calls::evtricub
Definition: pspline_calls.f:1210
pspline_calls::r8mktricub
Definition: pspline_calls.f:5823
pspline_calls::gridpc1
Definition: pspline_calls.f:1645
pspline_calls::r8gridherm1
Definition: pspline_calls.f:4522
pspline_calls::vecin3d_argchk
Definition: pspline_calls.f:8548
pspline_calls::seval2
Definition: pspline_calls.f:7582
pspline_calls::r8mkbicop
Definition: pspline_calls.f:5348
pspline_calls::r8gridherm3
Definition: pspline_calls.f:4585
pspline_calls::mkspl2z
Definition: pspline_calls.f:2631
pspline_calls::r8herm3xyz
Definition: pspline_calls.f:5145
pspline_calls::vecspline
Definition: pspline_calls.f:8761
pspline_calls::r8xlookup
Definition: pspline_calls.f:7528
pspline_calls::mkherm1
Definition: pspline_calls.f:2361
pspline_calls::akherm1p
Definition: pspline_calls.f:225
pspline_calls::spgrid
Definition: pspline_calls.f:7693
pspline_calls::mktricubw
Definition: pspline_calls.f:2826
pspline_calls::r8evspline
Definition: pspline_calls.f:4217
pspline_calls::r8akherm3p
Definition: pspline_calls.f:3431
pspline_calls::r8splbrk
Definition: pspline_calls.f:6477
pspline_calls::dnherm3
Definition: pspline_calls.f:865
pspline_calls::r8cspevfn
Definition: pspline_calls.f:3791
pspline_calls::r8bcspline
Definition: pspline_calls.f:3597
pspline_calls::tcspline
Definition: pspline_calls.f:8034
pspline_calls::bcspeval
Definition: pspline_calls.f:403
pspline_calls::r8bcspgrid
Definition: pspline_calls.f:3562
pspline_calls::bpspline
Definition: pspline_calls.f:643
pspline_calls::r8gridintrp2d
Definition: pspline_calls.f:4626
pspline_calls::r8vecpc1
Definition: pspline_calls.f:7330
pspline_calls::r8bcspvec
Definition: pspline_calls.f:3637
pspline_calls::cubsplb
Definition: pspline_calls.f:786
pspline_calls::herm2fcn
Definition: pspline_calls.f:1972
pspline_calls::r8seval3
Definition: pspline_calls.f:6340
pspline_calls::r8gridbicub
Definition: pspline_calls.f:4487
pspline_calls::r8tcspvec
Definition: pspline_calls.f:6896
pspline_calls::r8vecherm1
Definition: pspline_calls.f:7147
pspline_calls::herm3fcn
Definition: pspline_calls.f:2126
pspline_calls::gridspline
Definition: pspline_calls.f:1749
pspline_calls::akherm0
Definition: pspline_calls.f:250
pspline_calls::mkbicon
Definition: pspline_calls.f:2334
pspline_calls::evspline
Definition: pspline_calls.f:1153
pspline_calls::r8tcspline
Definition: pspline_calls.f:6764
pspline_calls::mktricon
Definition: pspline_calls.f:2903
pspline_calls::r8pc2fcnx
Definition: pspline_calls.f:6130
pspline_calls::tpspline
Definition: pspline_calls.f:8246
pspline_calls::mkintrp3d
Definition: pspline_calls.f:2478
pspline_calls::r8splinck
Definition: pspline_calls.f:6531
pspline_calls::fvbicubx
Definition: pspline_calls.f:965
pspline_calls::vectricub
Definition: pspline_calls.f:8791
pspline_calls::r8pc1ev
Definition: pspline_calls.f:6006
pspline_calls::fvbicub
Definition: pspline_calls.f:930
pspline_calls::mkbicub
Definition: pspline_calls.f:2233
pspline_calls::r8mkherm2
Definition: pspline_calls.f:5424
pspline_calls::vecpc1
Definition: pspline_calls.f:8658
pspline_calls::r8dnherm1
Definition: pspline_calls.f:3875
pspline_calls::gridpc2
Definition: pspline_calls.f:1673
pspline_calls::r8gridherm2
Definition: pspline_calls.f:4550
pspline_calls::r8mkspl2z
Definition: pspline_calls.f:5675
pspline_calls::r8pc3ev
Definition: pspline_calls.f:6166
pspline_calls::r8pc2ev
Definition: pspline_calls.f:6063
pspline_calls::r8cspevx
Definition: pspline_calls.f:3765
pspline_calls::vecpc3
Definition: pspline_calls.f:8722
pspline_calls::r8fvbicub
Definition: pspline_calls.f:3994
pspline_calls::gridbicub
Definition: pspline_calls.f:1423
pspline_calls::util_bcherm3
Definition: pspline_calls.f:8343
pspline_calls::pc1ev
Definition: pspline_calls.f:2959
pspline_calls::r8fvtricub
Definition: pspline_calls.f:4312
pspline_calls::r8evbicub
Definition: pspline_calls.f:3962
pspline_calls::r8akherm2
Definition: pspline_calls.f:3340
pspline_calls::mkherm2
Definition: pspline_calls.f:2385
pspline_calls::pc3ev
Definition: pspline_calls.f:3119
pspline_calls::pc2ev
Definition: pspline_calls.f:3016
pspline_calls::r8genxpkg
Definition: pspline_calls.f:4458
pspline_calls::herm1fcn
Definition: pspline_calls.f:1873
pspline_calls::r8spvec
Definition: pspline_calls.f:6582
pspline_calls::splbrk
Definition: pspline_calls.f:7747
pspline_calls::r8mkbicubw
Definition: pspline_calls.f:5309
pspline_calls::vecherm1
Definition: pspline_calls.f:8417
pspline_calls::r8mkintrp3d
Definition: pspline_calls.f:5519
pspline_calls::r8akherm3
Definition: pspline_calls.f:3399
pspline_calls::herm1ev
Definition: pspline_calls.f:1818
pspline_calls::r8cspline
Definition: pspline_calls.f:3819
pspline_calls::r8vecpc2
Definition: pspline_calls.f:7360
pspline_calls::mkspl2p
Definition: pspline_calls.f:2562
pspline_calls::gridintrp2d
Definition: pspline_calls.f:1562
pspline_calls::vecintrp2d
Definition: pspline_calls.f:8578
pspline_calls::r8bcspevfn
Definition: pspline_calls.f:3531
pspline_calls::herm3ev
Definition: pspline_calls.f:2043
pspline_calls::herm2ev
Definition: pspline_calls.f:1903
pspline_calls::r8herm3fcnx
Definition: pspline_calls.f:5230
pspline_calls::r8gridtricub
Definition: pspline_calls.f:4841
pspline_calls::akherm3
Definition: pspline_calls.f:335
pspline_calls::bcspevxy
Definition: pspline_calls.f:435
pspline_calls::fvintrp3d
Definition: pspline_calls.f:1110
pspline_calls::r8mkbicon
Definition: pspline_calls.f:5372
pspline_calls::evintrp3d
Definition: pspline_calls.f:1072
pspline_calls::fvtricubx
Definition: pspline_calls.f:1288
pspline_calls::r8nspline
Definition: pspline_calls.f:5980
pspline_calls::r8pc2fcn
Definition: pspline_calls.f:6095
pspline_calls::r8f3test
Definition: pspline_calls.f:4423
pspline_calls::r8vecintrp3d
Definition: pspline_calls.f:7288
pspline_calls::akherm1
Definition: pspline_calls.f:201
pspline_calls::r8fvtricubx
Definition: pspline_calls.f:4352
pspline_calls::r8evintrp3d
Definition: pspline_calls.f:4136
pspline_calls::r8fvintrp3d
Definition: pspline_calls.f:4174
pspline_calls::tcspgrid
Definition: pspline_calls.f:7993
pspline_calls::r8pc3fcn
Definition: pspline_calls.f:6204