00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit,
00019 & stype, atype, aname, aunit, cret)
00020
00021
00022 implicit none
00023 save
00024
00025 character *(*) name, desc, dtunit, aname, aunit
00026 integer fid, sdim, mdim, mtype, stype, atype, cret
00027 integer mmhfcre
00028
00029 cret = mmhfcre(fid, name, len(name), sdim, mdim, mtype,
00030 & desc, len(desc), dtunit, len(dtunit),
00031 & stype, atype, aname, 16*sdim,
00032 & aunit, 16*sdim)
00033
00034 return
00035 end
00036
00037
00038
00039 subroutine mmhnmh( fid , n , cret)
00040
00041
00042 implicit none
00043 save
00044
00045 integer fid, n, cret
00046 integer mmhfnmh
00047
00048 n = mmhfnmh(fid)
00049
00050 if (n.lt.0) then
00051 cret = -1
00052 else
00053 cret = 0
00054 endif
00055
00056 return
00057 end
00058
00059
00060
00061 subroutine mmhnax( fid , it, naxis, cret)
00062
00063
00064 implicit none
00065 save
00066
00067 integer fid,it,naxis,cret
00068 integer mmhfnax
00069
00070 naxis = mmhfnax(fid,it)
00071
00072 if (naxis.lt.0) then
00073 cret = -1
00074 else
00075 cret = 0
00076 endif
00077 return
00078 end
00079
00080
00081
00082 subroutine mmhnan( fid , name, naxis, cret)
00083
00084
00085 implicit none
00086 save
00087
00088 integer fid,naxis,cret
00089 character *(*) name
00090 integer mmhfnan
00091
00092 naxis = mmhfnan(fid,name,len(name))
00093
00094 if (naxis.lt.0) then
00095 cret = -1
00096 else
00097 cret = 0
00098 endif
00099 return
00100 end
00101
00102
00103
00104 subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit,
00105 & stype, nstep, atype, aname, aunit, cret)
00106
00107
00108 implicit none
00109 save
00110
00111 character *(*) name, desc, dtunit, aname, aunit
00112 integer fid, sdim, mdim, mtype, stype, atype, cret, nstep, it
00113 integer mmhfmhi
00114
00115 cret = mmhfmhi(fid, it, name, sdim, mdim, mtype, desc, dtunit,
00116 & stype, nstep, atype, aname, aunit)
00117
00118 return
00119 end
00120
00121
00122
00123 subroutine mmhmin(fid, name, sdim, mdim, mtype, desc, dtunit,
00124 & stype, nstep, atype, aname, aunit, cret)
00125
00126
00127 implicit none
00128 save
00129
00130 character *(*) name, desc, dtunit, aname, aunit
00131 integer fid, sdim, mdim, mtype, stype, atype, cret, nstep
00132 integer mmhfmin
00133
00134 cret = mmhfmin(fid, name, len(name), sdim, mdim, mtype, desc,
00135 & dtunit, stype, nstep, atype, aname, aunit)
00136
00137 return
00138 end
00139
00140
00141
00142
00143 subroutine mmhunw( fid , name, cret)
00144
00145
00146 implicit none
00147 save
00148
00149 integer fid,cret
00150 character *(*) name
00151 integer mmhfunw
00152
00153 cret = mmhfunw(fid,name,len(name))
00154
00155 return
00156 end
00157
00158
00159
00160 subroutine mmhunr( fid , mname, uname, cret)
00161
00162
00163 implicit none
00164 save
00165
00166 integer fid,cret
00167 character *(*) uname
00168 character *(*) mname
00169 integer mmhfunr
00170
00171 cret = mmhfunr(fid,mname,len(mname),uname)
00172
00173 return
00174 end
00175
00176
00177
00178 subroutine mmhatw( fid , name, nin, nvn, nnc, cret)
00179
00180
00181 implicit none
00182 save
00183
00184 integer fid,cret,nin,nvn,nnc
00185 character *(*) name
00186 integer mmhfatw
00187
00188 cret = mmhfatw(fid,name,len(name), nin, nvn, nnc)
00189
00190 return
00191 end
00192
00193
00194
00195 subroutine mmhatr( fid , name, nin, nvn, nnc, cret)
00196
00197
00198 implicit none
00199 save
00200
00201 integer fid,cret,nin,nvn,nnc
00202 character *(*) name
00203 integer mmhfatr
00204
00205 cret = mmhfatr(fid,name,len(name), nin, nvn, nnc)
00206
00207 return
00208 end
00209
00210
00211
00212 subroutine mmhgtw( fid , name, gtype, cret)
00213
00214
00215 implicit none
00216 save
00217
00218 integer fid,cret,gtype
00219 character *(*) name
00220 integer mmhfgtw
00221
00222 cret = mmhfgtw(fid,name,len(name), gtype)
00223
00224 return
00225 end
00226
00227
00228
00229 subroutine mmhgtr( fid , name, gtype, cret)
00230
00231
00232 implicit none
00233 save
00234
00235 integer fid,cret,gtype
00236 character *(*) name
00237 integer mmhfgtr
00238
00239 cret = mmhfgtr(fid,name,len(name), gtype)
00240
00241 return
00242 end
00243
00244
00245
00246 subroutine mmhgsw( fid , name, numdt, numit, dt, st, cret)
00247
00248
00249 implicit none
00250 save
00251
00252 integer fid,cret,numdt, numit
00253 character *(*) name
00254 real*8 dt
00255 integer st( * )
00256 integer mmhfgsw
00257
00258 cret = mmhfgsw(fid,name,len(name), numdt, numit, dt, st)
00259
00260 return
00261 end
00262
00263
00264
00265 subroutine mmhgsr( fid , name, numdt, numit, st, cret)
00266
00267
00268 implicit none
00269 save
00270
00271 integer fid,cret,numdt, numit
00272 character *(*) name
00273 integer st(*)
00274 integer mmhfgsr
00275
00276 cret = mmhfgsr(fid,name,len(name), numdt, numit, st)
00277
00278 return
00279 end
00280
00281
00282
00283 subroutine mmhcow( fid , name, numdt, numit, dt,
00284 & swm, n, coo, cret)
00285
00286
00287 implicit none
00288 save
00289
00290 integer fid,cret,numdt,numit,n,swm
00291 real*8 dt
00292 character *(*) name
00293 real*8 coo(*)
00294 integer mmhfcow
00295
00296 cret = mmhfcow(fid,name,len(name),numdt,numit,dt,swm,n,coo)
00297
00298 return
00299 end
00300
00301
00302
00303 subroutine mmhcor( fid , name, numdt, numit,
00304 & swm, coo, cret)
00305
00306
00307 implicit none
00308 save
00309
00310 integer fid,cret,numdt,numit,swm
00311 character *(*) name
00312 real*8 coo(*)
00313 integer mmhfcor
00314
00315 cret = mmhfcor(fid,name,len(name),numdt,numit,swm,coo)
00316
00317 return
00318 end
00319
00320
00321
00322 subroutine mmhcpw( fid , name, numdt, numit, dt,
00323 & stm, pname, swm, dim, n, coo, cret)
00324
00325
00326 implicit none
00327 save
00328
00329 integer fid,cret,numdt,numit,n,swm,stm,dim
00330 real*8 dt
00331 character *(*) name, pname
00332 real*8 coo(*)
00333 integer mmhfcpw
00334
00335 cret = mmhfcpw(fid,name,len(name),numdt,numit,dt,stm,
00336 & pname,len(pname),swm,dim,n,coo)
00337
00338 return
00339 end
00340
00341
00342
00343 subroutine mmhcpr( fid , name, numdt, numit,
00344 & stm, pname, swm, dim, coo, cret)
00345
00346
00347 implicit none
00348 save
00349
00350 integer fid,cret,numdt,numit,swm,stm,dim
00351 character *(*) name, pname
00352 real*8 coo(*)
00353 integer mmhfcpr
00354
00355 cret = mmhfcpr(fid,name,len(name),numdt,numit,stm,
00356 & pname,len(pname),swm,dim,coo)
00357
00358 return
00359 end
00360
00361
00362
00363 subroutine mmhgcw( fid , name, numdt, numit, dt,
00364 & axis, size, index, cret)
00365
00366
00367 implicit none
00368 save
00369
00370 integer fid,cret,numdt,numit,axis,size
00371 real*8 dt
00372 character *(*) name
00373 real*8 index(*)
00374 integer mmhfgcw
00375
00376 cret = mmhfgcw(fid,name,len(name),numdt,numit,dt,axis,size,index)
00377
00378 return
00379 end
00380
00381
00382
00383 subroutine mmhgcr( fid , name, numdt, numit,
00384 & axis, index, cret)
00385
00386
00387 implicit none
00388 save
00389
00390 integer fid,cret,numdt,numit,axis
00391 character *(*) name
00392 real*8 index(*)
00393 integer mmhfgcr
00394
00395 cret = mmhfgcr(fid,name,len(name),numdt,numit,axis,index)
00396
00397 return
00398 end
00399
00400
00401
00402 subroutine mmhenw(fid,name,numdt,numit,entype,geotype,
00403 & n,num,cret)
00404
00405
00406 implicit none
00407 save
00408
00409 integer fid,cret,numdt, numit,n,entype,geotype
00410 character *(*) name
00411 integer num(*)
00412 integer mmhfenw
00413
00414 cret = mmhfenw(fid,name,len(name),numdt,numit,entype,geotype,
00415 & n,num)
00416
00417 return
00418 end
00419
00420
00421
00422 subroutine mmhenr(fid,name,numdt,numit,entype,geotype,
00423 & num,cret)
00424
00425
00426 implicit none
00427 save
00428
00429 integer fid,cret,numdt, numit,entype,geotype
00430 character *(*) name
00431 integer num(*)
00432 integer mmhfenr
00433
00434 cret = mmhfenr(fid,name,len(name),numdt,numit,entype,geotype,
00435 & num)
00436
00437 return
00438 end
00439
00440
00441
00442 subroutine mmhfnw(fid,name,numdt,numit,entype,geotype,
00443 & n,num,cret)
00444
00445
00446 implicit none
00447 save
00448
00449 integer fid,cret,numdt, numit,n,entype,geotype
00450 character *(*) name
00451 integer num(*)
00452 integer mmhffnw
00453
00454 cret = mmhffnw(fid,name,len(name),numdt,numit,entype,geotype,
00455 & n,num)
00456
00457 return
00458 end
00459
00460
00461
00462 subroutine mmhfnr(fid,name,numdt,numit,entype,geotype,
00463 & num,cret)
00464
00465
00466 implicit none
00467 save
00468
00469 integer fid,cret,numdt, numit,entype,geotype
00470 character *(*) name
00471 integer num(*)
00472 integer mmhffnr
00473
00474 cret = mmhffnr(fid,name,len(name),numdt,numit,entype,geotype,
00475 & num)
00476
00477 return
00478 end
00479
00480
00481
00482 subroutine mmheaw(fid,mname,numdt,numit,entype,geotype,
00483 & n,ename,cret)
00484
00485
00486 implicit none
00487 save
00488
00489 character *(*) mname
00490 character*(*) ename
00491 integer fid, numdt, numit, entype, geotype, n, cret
00492 integer mmhfeaw
00493
00494 cret = mmhfeaw(fid,mname,len(mname),numdt,numit,entype,
00495 & geotype,n,ename,16*n)
00496
00497 return
00498 end
00499
00500
00501
00502 subroutine mmhear(fid,mname,numdt,numit,entype,geotype,
00503 & ename,cret)
00504
00505
00506 implicit none
00507 save
00508
00509 character *(*) mname
00510 character*(*) ename
00511 integer fid, numdt, numit, entype, geotype, cret
00512 integer mmhfear
00513
00514 cret = mmhfear(fid,mname,len(mname),numdt,numit,entype,
00515 & geotype,ename)
00516
00517 return
00518 end
00519
00520
00521
00522 subroutine mmhnme(fid,name,numdt,numit,
00523 & entype,geotype,datype,cmode,
00524 & chgt,tsf,n,cret)
00525
00526
00527 implicit none
00528 save
00529
00530 character *(*) name
00531 integer fid,numdt,numit,entype,geotype,datype,cret
00532 integer cmode,chgt,tsf,n
00533 integer mmhfnme
00534
00535 n = mmhfnme(fid,name,len(name),numdt,numit,entype,geotype,
00536 & datype,cmode,chgt,tsf)
00537
00538 if (n.lt.0) then
00539 cret = -1
00540 else
00541 cret =0
00542 endif
00543
00544 return
00545 end
00546
00547
00548
00549 subroutine mmhcyw(fid,name,numdt,numit,dt,entype,geotype,
00550 & cmode,swm,n,con,cret)
00551
00552
00553 implicit none
00554 save
00555
00556 integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode
00557 character *(*) name
00558 integer con(*)
00559 real*8 dt
00560 integer mmhfcyw
00561
00562 cret = mmhfcyw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00563 & cmode,swm,n,con)
00564
00565 return
00566 end
00567
00568
00569
00570 subroutine mmhcyr(fid,name,numdt,numit,entype,geotype,
00571 & cmode,swm,con,cret)
00572
00573
00574 implicit none
00575 save
00576
00577 integer fid,cret,numdt,numit,entype,geotype,swm,cmode
00578 character *(*) name
00579 integer con(*)
00580 integer mmhfcyr
00581
00582 cret = mmhfcyr(fid,name,len(name),numdt,numit,entype,geotype,
00583 & cmode,swm,con)
00584
00585 return
00586 end
00587
00588
00589
00590 subroutine mmhypw(fid,name,numdt,numit,dt,entype,geotype,
00591 & cmode,stmode,pname,swm,dim,n,con,cret)
00592
00593
00594 implicit none
00595 save
00596
00597 integer fid,cret,numdt,numit,n,entype,geotype,swm
00598 integer cmode,stmode,dim
00599 character *(*) name
00600 character *(*) pname
00601 integer con(*)
00602 real*8 dt
00603 integer mmhfypw
00604
00605 cret = mmhfypw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00606 & cmode,stmode,pname,len(pname),swm,dim,n,con)
00607
00608 return
00609 end
00610
00611
00612
00613 subroutine mmhypr(fid,name,numdt,numit,entype,geotype,
00614 & cmode,stmode,pname,swm,dim,n,con,cret)
00615
00616
00617 implicit none
00618 save
00619
00620 integer fid,cret,numdt,numit,entype,geotype,swm
00621 integer cmode,n,stmode,dim
00622 character *(*) name
00623 character *(*) pname
00624 integer con(*)
00625 integer mmhfypr
00626
00627 cret = mmhfypr(fid,name,len(name),numdt,numit,entype,geotype,
00628 & cmode,stmode,pname,swm,dim,n,con)
00629
00630 return
00631 end
00632
00633
00634
00635 subroutine mmhnep(fid,name,numdt,numit,
00636 & entype,geotype,datype,cmode,
00637 & stmode,pname,psize,
00638 & chgt,tsf,n,cret)
00639
00640
00641 implicit none
00642 save
00643
00644 character *(*) name
00645 character *(*) pname
00646 integer fid,numdt,numit,entype,geotype,datype,cret
00647 integer cmode,chgt,tsf,n,stmode,psize
00648 integer mmhfnep
00649
00650
00651 n = mmhfnep(fid,name,len(name),numdt,numit,entype,geotype,
00652 & datype,cmode,stmode,pname,psize,chgt,tsf)
00653
00654 if (n.lt.0) then
00655 cret = -1
00656 else
00657 cret =0
00658 endif
00659
00660
00661 return
00662 end
00663
00664
00665
00666 subroutine mmhnor(fid , name, numdt, numit,
00667 & swm, coo, iname, nname, inum, num,
00668 & ifam,fam, cret)
00669
00670 implicit none
00671 save
00672
00673 integer fid,cret,numdt,numit,swm
00674 character *(*) name
00675 character *(*) nname
00676 real*8 coo(*)
00677 integer num(*),fam(*)
00678 integer iname,inum,ifam
00679 integer mmhfnor
00680
00681 cret = mmhfnor(fid,name,len(name),numdt,numit,swm,coo,
00682 & iname,nname,inum,num,ifam,fam)
00683
00684 return
00685 end
00686
00687
00688
00689
00690 subroutine mmhnow(fid, name, numdt, numit, dt,
00691 & swm, n, coo, iname, nname, inum, num,
00692 & ifam, fam, cret)
00693
00694
00695 implicit none
00696 save
00697
00698 integer fid,cret,numdt,numit,swm,n
00699 character *(*) name
00700 character *(*) nname
00701 real*8 coo(*), dt
00702 integer num(*),fam(*)
00703 integer iname,inum,ifam
00704 integer mmhfnow
00705
00706 cret = mmhfnow(fid,name,len(name),numdt,numit,dt,swm,n,coo,
00707 & iname,nname,16*n,inum,num,ifam,fam)
00708
00709 return
00710 end
00711
00712
00713
00714 subroutine mmhelw(fid,name,numdt,numit,dt,entype,geotype,
00715 & cmode,swm,n,con,iname, nname, inum, num,
00716 & ifam,fam,cret)
00717
00718
00719 implicit none
00720 save
00721
00722 integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode
00723 character *(*) name
00724 character *(*) nname
00725 integer con(*)
00726 real*8 dt
00727 integer iname,inum,ifam
00728 integer num(*),fam(*)
00729 integer mmhfelw
00730
00731 cret = mmhfelw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00732 & cmode,swm,n,con,
00733 & iname,nname,16*n,inum,num,ifam,fam)
00734
00735 return
00736 end
00737
00738
00739
00740 subroutine mmhelr(fid,name,numdt,numit,entype,geotype,
00741 & cmode,swm,con,iname, nname, inum, num,
00742 & ifam,fam,cret)
00743
00744
00745 implicit none
00746 save
00747
00748 integer fid,cret,numdt,numit,entype,geotype,swm,cmode
00749 character *(*) name
00750 character *(*) nname
00751 integer con(*)
00752 integer iname,inum,ifam
00753 integer num(*),fam(*)
00754 integer mmhfelr
00755
00756 cret = mmhfelr(fid,name,len(name),numdt,numit,entype,geotype,
00757 & cmode,swm,con,iname,nname,inum,num,ifam,fam)
00758
00759 return
00760 end
00761
00762
00763
00764 subroutine mmhcaw( fid , name, numdt, numit, dt,
00765 & flt, coo, cret)
00766
00767
00768 implicit none
00769 save
00770
00771 integer fid,cret,numdt,numit
00772 real*8 dt
00773 character *(*) name
00774 real*8 coo(*)
00775 integer*8 flt(*)
00776 integer mmhfcaw
00777
00778 cret = mmhfcaw(fid,name,len(name),numdt,numit,dt,flt,coo)
00779
00780 return
00781 end
00782
00783
00784
00785 subroutine mmhcar(fid , name, numdt, numit,
00786 & flt, coo, cret)
00787
00788
00789 implicit none
00790 save
00791
00792 integer fid,cret,numdt,numit
00793 character *(*) name
00794 real*8 coo(*)
00795 integer*8 flt(*)
00796 integer mmhfcar
00797
00798 cret = mmhfcar(fid,name,len(name),numdt,numit,flt,coo)
00799
00800 return
00801 end
00802
00803
00804
00805 subroutine mmhyaw(fid,name,numdt,numit,dt,entype,geotype,
00806 & cmode,flt,con,cret)
00807
00808
00809 implicit none
00810 save
00811
00812 integer fid,cret,numdt,numit,entype,geotype,cmode
00813 character *(*) name
00814 integer con(*)
00815 integer*8 flt(*)
00816 real*8 dt
00817 integer mmhfyaw
00818
00819 cret = mmhfyaw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00820 & cmode,flt,con)
00821
00822 return
00823 end
00824
00825
00826
00827 subroutine mmhyar(fid,name,numdt,numit,entype,geotype,
00828 & cmode,flt,con,cret)
00829
00830
00831 implicit none
00832 save
00833
00834 integer fid,cret,numdt,numit,entype,geotype,cmode
00835 character *(*) name
00836 integer con(*)
00837 integer*8 flt(*)
00838 integer mmhfyar
00839
00840 cret = mmhfyar(fid,name,len(name),numdt,numit,entype,geotype,
00841 & cmode,flt,con)
00842
00843 return
00844 end
00845
00846
00847
00848 subroutine mmhpgw(fid,name,numdt,numit,dt,entype,
00849 & cmode,isize,index,con,cret)
00850
00851
00852 implicit none
00853 save
00854
00855 integer fid,cret,numdt,numit,isize,entype,cmode
00856 character *(*) name
00857 integer con(*), index(*)
00858 real*8 dt
00859 integer mmhfpgw
00860
00861 cret = mmhfpgw(fid,name,len(name),numdt,numit,dt,entype,
00862 & cmode,isize,index,con)
00863
00864 return
00865 end
00866
00867
00868
00869 subroutine mmhpgr(fid,name,numdt,numit,entype,
00870 & cmode,index,con,cret)
00871
00872
00873 implicit none
00874 save
00875
00876 integer fid,cret,numdt,numit,entype,cmode
00877 character *(*) name
00878 integer con(*), index(*)
00879 integer mmhfpgr
00880
00881 cret = mmhfpgr(fid,name,len(name),numdt,numit,entype,
00882 & cmode,index,con)
00883
00884 return
00885 end
00886
00887
00888
00889 subroutine mmhphw(fid,name,numdt,numit,dt,entype,
00890 & cmode,fisize,findex,nisize,nindex,con,cret)
00891
00892
00893 implicit none
00894 save
00895
00896 integer fid,cret,numdt,numit,fisize,nisize,entype,cmode
00897 character *(*) name
00898 integer con(*), findex(*), nindex(*)
00899 real*8 dt
00900 integer mmhfphw
00901
00902 cret = mmhfphw(fid,name,len(name),numdt,numit,dt,entype,
00903 & cmode,fisize,findex,nisize,nindex,con)
00904
00905 return
00906 end
00907
00908
00909
00910 subroutine mmhphr(fid,name,numdt,numit,entype,
00911 & cmode,findex,nindex,con,cret)
00912
00913
00914 implicit none
00915 save
00916
00917 integer fid,cret,numdt,numit,entype,cmode
00918 character *(*) name
00919 integer con(*), findex(*), nindex(*)
00920 integer mmhfphr
00921
00922 cret = mmhfphr(fid,name,len(name),numdt,numit,entype,
00923 & cmode,findex,nindex,con)
00924
00925 return
00926 end
00927
00928
00929
00930 subroutine mmhgnw(fid,name,numdt,numit,entype,geotype,
00931 & n,num,cret)
00932
00933
00934 implicit none
00935 save
00936
00937 integer fid,cret,numdt, numit,n,entype,geotype
00938 character *(*) name
00939 integer num(*)
00940 integer mmhfgnw
00941
00942 cret = mmhfgnw(fid,name,len(name),numdt,numit,entype,geotype,
00943 & n,num)
00944
00945 return
00946 end
00947
00948
00949
00950 subroutine mmhgnr(fid,name,numdt,numit,entype,geotype,
00951 & num,cret)
00952
00953
00954 implicit none
00955 save
00956
00957 integer fid,cret,numdt, numit,entype,geotype
00958 character *(*) name
00959 integer num(*)
00960 integer mmhfgnr
00961
00962 cret = mmhfgnr(fid,name,len(name),numdt,numit,entype,geotype,
00963 & num)
00964
00965 return
00966 end
00967
00968
00969
00970 subroutine mmhcsc(fid,name,numdt1,numit1,numdt2,numit2,
00971 & dt2,cret)
00972
00973
00974 implicit none
00975 save
00976
00977 integer fid,cret,numdt1,numit1,numdt2,numit2
00978 character *(*) name
00979 real*8 dt2
00980 integer mmhfcsc
00981
00982 cret = mmhfcsc(fid,name,len(name),numdt1,numit1,
00983 & numdt2,numit2,dt2)
00984
00985 return
00986 end
00987
00988
00989
00990 subroutine mmhcsi(fid,name,csit,numdt,numit,dt,cret)
00991
00992
00993 implicit none
00994 save
00995
00996 integer fid,cret,numdt,numit,csit
00997 character *(*) name
00998 real*8 dt
00999 integer mmhfcsi
01000
01001 cret = mmhfcsi(fid,name,len(name),csit,numdt,numit,dt)
01002
01003 return
01004 end
01005
01006
01007
01008 subroutine mmhcsr(fid,name,numdt,numit,dt,cret)
01009
01010
01011 implicit none
01012 save
01013
01014 integer fid,cret,numdt,numit
01015 character *(*) name
01016 real*8 dt
01017 integer mmhfcsr
01018
01019 cret = mmhfcsr(fid,name,len(name),numdt,numit,dt)
01020
01021 return
01022 end
01023
01024
01025
01026 subroutine mmhstr(fid,name,stype,cret)
01027
01028
01029 implicit none
01030 save
01031
01032 integer fid,cret,stype
01033 character *(*) name
01034 integer mmhfstr
01035
01036 cret = mmhfstr(fid,name,len(name),stype)
01037
01038 return
01039 end
01040
01041
01042
01043 subroutine mmhraw(fid,name,numdt,numit,
01044 & geotype,aname,n,
01045 & val,cret)
01046
01047
01048 implicit none
01049 save
01050
01051 character *(*) name,aname
01052 integer fid,numdt,numit,geotype,cret
01053 integer n
01054 real*8 val(*)
01055 integer mmhfraw
01056
01057 cret = mmhfraw(fid,name,len(name),numdt,numit,geotype,
01058 & aname,len(aname),n,val)
01059
01060 return
01061 end
01062
01063
01064
01065 subroutine mmhiaw(fid,name,numdt,numit,
01066 & geotype,aname,n,
01067 & val,cret)
01068
01069
01070 implicit none
01071 save
01072
01073 character *(*) name,aname
01074 integer fid,numdt,numit,geotype,cret
01075 integer n
01076 integer val(*)
01077 integer mmhfiaw
01078
01079 cret = mmhfiaw(fid,name,len(name),numdt,numit,geotype,
01080 & aname,len(aname),n,val)
01081
01082 return
01083 end
01084
01085
01086
01087 subroutine mmhsaw(fid,name,numdt,numit,
01088 & geotype,aname,n,
01089 & val,cret)
01090
01091
01092 implicit none
01093 save
01094
01095 character *(*) name,aname
01096 integer fid,numdt,numit,geotype,cret
01097 integer n
01098 character *(*) val
01099 integer mmhfsaw
01100
01101 cret = mmhfsaw(fid,name,len(name),numdt,numit,geotype,
01102 & aname,len(aname),n,val,64*n)
01103
01104 return
01105 end
01106
01107
01108
01109 subroutine mmhrar(fid,name,numdt,numit,
01110 & geotype,aname,
01111 & val,cret)
01112
01113
01114 implicit none
01115 save
01116
01117 character *(*) name,aname
01118 integer fid,numdt,numit,geotype,cret
01119 real*8 val(*)
01120 integer mmhfrar
01121
01122 cret = mmhfrar(fid,name,len(name),numdt,numit,geotype,
01123 & aname,len(aname),val)
01124
01125 return
01126 end
01127
01128
01129
01130 subroutine mmhiar(fid,name,numdt,numit,
01131 & geotype,aname,val,cret)
01132
01133
01134 implicit none
01135 save
01136
01137 character *(*) name,aname
01138 integer fid,numdt,numit,geotype,cret
01139 integer val(*)
01140 integer mmhfiar
01141
01142 cret = mmhfiar(fid,name,len(name),numdt,numit,geotype,
01143 & aname,len(aname),val)
01144
01145 return
01146 end
01147
01148
01149
01150 subroutine mmhsar(fid,name,numdt,numit,
01151 & geotype,aname,val,cret)
01152
01153
01154 implicit none
01155 save
01156
01157 character *(*) name,aname
01158 integer fid,numdt,numit,geotype,cret
01159 integer n
01160 character *(*) val
01161 integer mmhfsar
01162
01163 cret = mmhfsar(fid,name,len(name),numdt,numit,geotype,
01164 & aname,len(aname),val)
01165
01166 return
01167 end
01168
01169
01170
01171 subroutine mmheni(fid,name,numdt,numit,entype,it,
01172 & geoname,geotype,cret)
01173
01174
01175 implicit none
01176 save
01177
01178 integer fid,cret,numdt,numit,entype,geotype,it
01179 character *(*) name, geoname
01180 integer mmhfeni
01181
01182 cret = mmhfeni(fid,name,len(name),numdt,numit,entype,
01183 & it,geoname,geotype)
01184
01185 return
01186 end
01187
01188
01189
01190 subroutine mmhtfw( fid , name, numdt, numit, dt,
01191 & tsf,cret)
01192
01193
01194 implicit none
01195 save
01196
01197 integer fid,cret,numdt,numit
01198 real*8 dt
01199 character *(*) name
01200 real*8 tsf(*)
01201 integer mmhftfw
01202
01203 cret = mmhftfw(fid,name,len(name),numdt,numit,dt,tsf)
01204
01205 return
01206 end
01207
01208
01209
01210 subroutine mmhtfr( fid , name, numdt, numit,
01211 & tsf,cret)
01212
01213
01214 implicit none
01215 save
01216
01217 integer fid,cret,numdt,numit
01218 character *(*) name
01219 real*8 tsf(*)
01220 integer mmhftfr
01221
01222 cret = mmhftfr(fid,name,len(name),numdt,numit,tsf)
01223
01224 return
01225 end
01226
01227
01228
01229 subroutine mmhaaw(fid,mname,dtype,numdt,numit,entype,geotype,
01230 & flt,val,cret)
01231
01232
01233 implicit none
01234 save
01235
01236 character *(*) mname
01237 integer val(*)
01238 integer fid,numdt,numit,entype,geotype
01239 integer dtype,n,cret
01240 integer mmhfaaw
01241 integer*8 flt(*)
01242
01243 cret = mmhfaaw(fid,mname,len(mname),dtype,numdt,numit,entype,
01244 & geotype,flt,val)
01245
01246 return
01247 end
01248
01249
01250
01251 subroutine mmhaar(fid,mname,dtype,numdt,numit,entype,geotype,
01252 & flt,val,cret)
01253
01254
01255 implicit none
01256 save
01257
01258 character *(*) mname
01259 integer val(*)
01260 integer fid,numdt,numit,entype,geotype
01261 integer dtype,n,cret
01262 integer mmhfaar
01263 integer*8 flt(*)
01264
01265 cret = mmhfaar(fid,mname,len(mname),dtype,numdt,numit,entype,
01266 & geotype,flt,val)
01267
01268 return
01269 end
01270
01271
01272
01273 subroutine mmhasw(fid,mname,dtype,numdt,numit,entype,geotype,
01274 & flt,val,cret)
01275
01276
01277 implicit none
01278 save
01279
01280 character *(*) mname
01281 character *(*) val
01282 integer fid,numdt,numit,entype,geotype
01283 integer dtype,n,cret
01284 integer mmhfasw
01285 integer*8 flt(*)
01286
01287 cret = mmhfasw(fid,mname,len(mname),dtype,numdt,numit,entype,
01288 & geotype,flt,val)
01289
01290 return
01291 end
01292
01293
01294
01295 subroutine mmhasr(fid,mname,dtype,numdt,numit,entype,geotype,
01296 & flt,val,cret)
01297
01298
01299 implicit none
01300 save
01301
01302 character *(*) mname
01303 character *(*) val
01304 integer fid,numdt,numit,entype,geotype
01305 integer dtype,n,cret
01306 integer mmhfasr
01307 integer*8 flt(*)
01308
01309 cret = mmhfasr(fid,mname,len(mname),dtype,numdt,numit,entype,
01310 & geotype,flt,val)
01311
01312 return
01313 end