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 n = mmhfnep(fid,name,len(name),numdt,numit,entype,geotype,
00651 & datype,cmode,stmode,pname,psize,chgt,tsf)
00652
00653 if (n.lt.0) then
00654 cret = -1
00655 else
00656 cret =0
00657 endif
00658
00659 return
00660 end
00661
00662
00663
00664 subroutine mmhnor(fid , name, numdt, numit,
00665 & swm, coo, iname, nname, inum, num,
00666 & ifam,fam, cret)
00667
00668 implicit none
00669 save
00670
00671 integer fid,cret,numdt,numit,swm
00672 character *(*) name
00673 character *(*) nname
00674 real*8 coo(*)
00675 integer num(*),fam(*)
00676 integer iname,inum,ifam
00677 integer mmhfnor
00678
00679 cret = mmhfnor(fid,name,len(name),numdt,numit,swm,coo,
00680 & iname,nname,inum,num,ifam,fam)
00681
00682 return
00683 end
00684
00685
00686
00687
00688 subroutine mmhnow(fid, name, numdt, numit, dt,
00689 & swm, n, coo, iname, nname, inum, num,
00690 & ifam, fam, cret)
00691
00692
00693 implicit none
00694 save
00695
00696 integer fid,cret,numdt,numit,swm,n
00697 character *(*) name
00698 character *(*) nname
00699 real*8 coo(*), dt
00700 integer num(*),fam(*)
00701 integer iname,inum,ifam
00702 integer mmhfnow
00703
00704 cret = mmhfnow(fid,name,len(name),numdt,numit,dt,swm,n,coo,
00705 & iname,nname,16*n,inum,num,ifam,fam)
00706
00707 return
00708 end
00709
00710
00711
00712 subroutine mmhelw(fid,name,numdt,numit,dt,entype,geotype,
00713 & cmode,swm,n,con,iname, nname, inum, num,
00714 & ifam,fam,cret)
00715
00716
00717 implicit none
00718 save
00719
00720 integer fid,cret,numdt,numit,n,entype,geotype,swm,cmode
00721 character *(*) name
00722 character *(*) nname
00723 integer con(*)
00724 real*8 dt
00725 integer iname,inum,ifam
00726 integer num(*),fam(*)
00727 integer mmhfelw
00728
00729 cret = mmhfelw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00730 & cmode,swm,n,con,
00731 & iname,nname,16*n,inum,num,ifam,fam)
00732
00733 return
00734 end
00735
00736
00737
00738 subroutine mmhelr(fid,name,numdt,numit,entype,geotype,
00739 & cmode,swm,con,iname, nname, inum, num,
00740 & ifam,fam,cret)
00741
00742
00743 implicit none
00744 save
00745
00746 integer fid,cret,numdt,numit,entype,geotype,swm,cmode
00747 character *(*) name
00748 character *(*) nname
00749 integer con(*)
00750 integer iname,inum,ifam
00751 integer num(*),fam(*)
00752 integer mmhfelr
00753
00754 cret = mmhfelr(fid,name,len(name),numdt,numit,entype,geotype,
00755 & cmode,swm,con,iname,nname,inum,num,ifam,fam)
00756
00757 return
00758 end
00759
00760
00761
00762 subroutine mmhcaw( fid , name, numdt, numit, dt,
00763 & flt, coo, cret)
00764
00765
00766 implicit none
00767 save
00768
00769 integer fid,cret,numdt,numit
00770 real*8 dt
00771 character *(*) name
00772 real*8 coo(*)
00773 integer*8 flt(*)
00774 integer mmhfcaw
00775
00776 cret = mmhfcaw(fid,name,len(name),numdt,numit,dt,flt,coo)
00777
00778 return
00779 end
00780
00781
00782
00783 subroutine mmhcar(fid , name, numdt, numit,
00784 & flt, coo, cret)
00785
00786
00787 implicit none
00788 save
00789
00790 integer fid,cret,numdt,numit
00791 character *(*) name
00792 real*8 coo(*)
00793 integer*8 flt(*)
00794 integer mmhfcar
00795
00796 cret = mmhfcar(fid,name,len(name),numdt,numit,flt,coo)
00797
00798 return
00799 end
00800
00801
00802
00803 subroutine mmhyaw(fid,name,numdt,numit,dt,entype,geotype,
00804 & cmode,flt,con,cret)
00805
00806
00807 implicit none
00808 save
00809
00810 integer fid,cret,numdt,numit,entype,geotype,cmode
00811 character *(*) name
00812 integer con(*)
00813 integer*8 flt(*)
00814 real*8 dt
00815 integer mmhfyaw
00816
00817 cret = mmhfyaw(fid,name,len(name),numdt,numit,dt,entype,geotype,
00818 & cmode,flt,con)
00819
00820 return
00821 end
00822
00823
00824
00825 subroutine mmhyar(fid,name,numdt,numit,entype,geotype,
00826 & cmode,flt,con,cret)
00827
00828
00829 implicit none
00830 save
00831
00832 integer fid,cret,numdt,numit,entype,geotype,cmode
00833 character *(*) name
00834 integer con(*)
00835 integer*8 flt(*)
00836 integer mmhfyar
00837
00838 cret = mmhfyar(fid,name,len(name),numdt,numit,entype,geotype,
00839 & cmode,flt,con)
00840
00841 return
00842 end
00843
00844
00845
00846 subroutine mmhpgw(fid,name,numdt,numit,dt,entype,
00847 & cmode,isize,index,con,cret)
00848
00849
00850 implicit none
00851 save
00852
00853 integer fid,cret,numdt,numit,isize,entype,cmode
00854 character *(*) name
00855 integer con(*), index(*)
00856 real*8 dt
00857 integer mmhfpgw
00858
00859 cret = mmhfpgw(fid,name,len(name),numdt,numit,dt,entype,
00860 & cmode,isize,index,con)
00861
00862 return
00863 end
00864
00865
00866
00867 subroutine mmhpgr(fid,name,numdt,numit,entype,
00868 & cmode,index,con,cret)
00869
00870
00871 implicit none
00872 save
00873
00874 integer fid,cret,numdt,numit,entype,cmode
00875 character *(*) name
00876 integer con(*), index(*)
00877 integer mmhfpgr
00878
00879 cret = mmhfpgr(fid,name,len(name),numdt,numit,entype,
00880 & cmode,index,con)
00881
00882 return
00883 end
00884
00885
00886
00887 subroutine mmhphw(fid,name,numdt,numit,dt,entype,
00888 & cmode,fisize,findex,nisize,nindex,con,cret)
00889
00890
00891 implicit none
00892 save
00893
00894 integer fid,cret,numdt,numit,fisize,nisize,entype,cmode
00895 character *(*) name
00896 integer con(*), findex(*), nindex(*)
00897 real*8 dt
00898 integer mmhfphw
00899
00900 cret = mmhfphw(fid,name,len(name),numdt,numit,dt,entype,
00901 & cmode,fisize,findex,nisize,nindex,con)
00902
00903 return
00904 end
00905
00906
00907
00908 subroutine mmhphr(fid,name,numdt,numit,entype,
00909 & cmode,findex,nindex,con,cret)
00910
00911
00912 implicit none
00913 save
00914
00915 integer fid,cret,numdt,numit,entype,cmode
00916 character *(*) name
00917 integer con(*), findex(*), nindex(*)
00918 integer mmhfphr
00919
00920 cret = mmhfphr(fid,name,len(name),numdt,numit,entype,
00921 & cmode,findex,nindex,con)
00922
00923 return
00924 end
00925
00926
00927
00928 subroutine mmhgnw(fid,name,numdt,numit,entype,geotype,
00929 & n,num,cret)
00930
00931
00932 implicit none
00933 save
00934
00935 integer fid,cret,numdt, numit,n,entype,geotype
00936 character *(*) name
00937 integer num(*)
00938 integer mmhfgnw
00939
00940 cret = mmhfgnw(fid,name,len(name),numdt,numit,entype,geotype,
00941 & n,num)
00942
00943 return
00944 end
00945
00946
00947
00948 subroutine mmhgnr(fid,name,numdt,numit,entype,geotype,
00949 & num,cret)
00950
00951
00952 implicit none
00953 save
00954
00955 integer fid,cret,numdt, numit,entype,geotype
00956 character *(*) name
00957 integer num(*)
00958 integer mmhfgnr
00959
00960 cret = mmhfgnr(fid,name,len(name),numdt,numit,entype,geotype,
00961 & num)
00962
00963 return
00964 end
00965
00966
00967
00968 subroutine mmhcsc(fid,name,numdt1,numit1,numdt2,numit2,
00969 & dt2,cret)
00970
00971
00972 implicit none
00973 save
00974
00975 integer fid,cret,numdt1,numit1,numdt2,numit2
00976 character *(*) name
00977 real*8 dt2
00978 integer mmhfcsc
00979
00980 cret = mmhfcsc(fid,name,len(name),numdt1,numit1,
00981 & numdt2,numit2,dt2)
00982
00983 return
00984 end
00985
00986
00987
00988 subroutine mmhcsi(fid,name,csit,numdt,numit,dt,cret)
00989
00990
00991 implicit none
00992 save
00993
00994 integer fid,cret,numdt,numit,csit
00995 character *(*) name
00996 real*8 dt
00997 integer mmhfcsi
00998
00999 cret = mmhfcsi(fid,name,len(name),csit,numdt,numit,dt)
01000
01001 return
01002 end
01003
01004
01005
01006 subroutine mmhcsr(fid,name,numdt,numit,dt,cret)
01007
01008
01009 implicit none
01010 save
01011
01012 integer fid,cret,numdt,numit
01013 character *(*) name
01014 real*8 dt
01015 integer mmhfcsr
01016
01017 cret = mmhfcsr(fid,name,len(name),numdt,numit,dt)
01018
01019 return
01020 end
01021
01022
01023
01024 subroutine mmhstr(fid,name,stype,cret)
01025
01026
01027 implicit none
01028 save
01029
01030 integer fid,cret,stype
01031 character *(*) name
01032 integer mmhfstr
01033
01034 cret = mmhfstr(fid,name,len(name),stype)
01035
01036 return
01037 end
01038
01039
01040
01041 subroutine mmhraw(fid,name,numdt,numit,
01042 & geotype,aname,n,
01043 & val,cret)
01044
01045
01046 implicit none
01047 save
01048
01049 character *(*) name,aname
01050 integer fid,numdt,numit,geotype,cret
01051 integer n
01052 real*8 val(*)
01053 integer mmhfraw
01054
01055 cret = mmhfraw(fid,name,len(name),numdt,numit,geotype,
01056 & aname,len(aname),n,val)
01057
01058 return
01059 end
01060
01061
01062
01063 subroutine mmhiaw(fid,name,numdt,numit,
01064 & geotype,aname,n,
01065 & val,cret)
01066
01067
01068 implicit none
01069 save
01070
01071 character *(*) name,aname
01072 integer fid,numdt,numit,geotype,cret
01073 integer n
01074 integer val(*)
01075 integer mmhfiaw
01076
01077 cret = mmhfiaw(fid,name,len(name),numdt,numit,geotype,
01078 & aname,len(aname),n,val)
01079
01080 return
01081 end
01082
01083
01084
01085 subroutine mmhsaw(fid,name,numdt,numit,
01086 & geotype,aname,n,
01087 & val,cret)
01088
01089
01090 implicit none
01091 save
01092
01093 character *(*) name,aname
01094 integer fid,numdt,numit,geotype,cret
01095 integer n
01096 character *(*) val
01097 integer mmhfsaw
01098
01099 cret = mmhfsaw(fid,name,len(name),numdt,numit,geotype,
01100 & aname,len(aname),n,val,64*n)
01101
01102 return
01103 end
01104
01105
01106
01107 subroutine mmhrar(fid,name,numdt,numit,
01108 & geotype,aname,
01109 & val,cret)
01110
01111
01112 implicit none
01113 save
01114
01115 character *(*) name,aname
01116 integer fid,numdt,numit,geotype,cret
01117 real*8 val(*)
01118 integer mmhfrar
01119
01120 cret = mmhfrar(fid,name,len(name),numdt,numit,geotype,
01121 & aname,len(aname),val)
01122
01123 return
01124 end
01125
01126
01127
01128 subroutine mmhiar(fid,name,numdt,numit,
01129 & geotype,aname,val,cret)
01130
01131
01132 implicit none
01133 save
01134
01135 character *(*) name,aname
01136 integer fid,numdt,numit,geotype,cret
01137 integer val(*)
01138 integer mmhfiar
01139
01140 cret = mmhfiar(fid,name,len(name),numdt,numit,geotype,
01141 & aname,len(aname),val)
01142
01143 return
01144 end
01145
01146
01147
01148 subroutine mmhsar(fid,name,numdt,numit,
01149 & geotype,aname,val,cret)
01150
01151
01152 implicit none
01153 save
01154
01155 character *(*) name,aname
01156 integer fid,numdt,numit,geotype,cret
01157 integer n
01158 character *(*) val
01159 integer mmhfsar
01160
01161 cret = mmhfsar(fid,name,len(name),numdt,numit,geotype,
01162 & aname,len(aname),val)
01163
01164 return
01165 end
01166
01167
01168
01169 subroutine mmheni(fid,name,numdt,numit,entype,it,
01170 & geoname,geotype,cret)
01171
01172
01173 implicit none
01174 save
01175
01176 integer fid,cret,numdt,numit,entype,geotype,it
01177 character *(*) name, geoname
01178 integer mmhfeni
01179
01180 cret = mmhfeni(fid,name,len(name),numdt,numit,entype,
01181 & it,geoname,geotype)
01182
01183 return
01184 end
01185
01186
01187
01188 subroutine mmhtfw( fid , name, numdt, numit, dt,
01189 & tsf,cret)
01190
01191
01192 implicit none
01193 save
01194
01195 integer fid,cret,numdt,numit
01196 real*8 dt
01197 character *(*) name
01198 real*8 tsf(*)
01199 integer mmhftfw
01200
01201 cret = mmhftfw(fid,name,len(name),numdt,numit,dt,tsf)
01202
01203 return
01204 end
01205
01206
01207
01208 subroutine mmhtfr( fid , name, numdt, numit,
01209 & tsf,cret)
01210
01211
01212 implicit none
01213 save
01214
01215 integer fid,cret,numdt,numit
01216 character *(*) name
01217 real*8 tsf(*)
01218 integer mmhftfr
01219
01220 cret = mmhftfr(fid,name,len(name),numdt,numit,tsf)
01221
01222 return
01223 end
01224
01225
01226
01227 subroutine mmhaaw(fid,mname,dtype,numdt,numit,entype,geotype,
01228 & flt,val,cret)
01229
01230
01231 implicit none
01232 save
01233
01234 character *(*) mname
01235 integer val(*)
01236 integer fid,numdt,numit,entype,geotype
01237 integer dtype,n,cret
01238 integer mmhfaaw
01239 integer*8 flt(*)
01240
01241 cret = mmhfaaw(fid,mname,len(mname),dtype,numdt,numit,entype,
01242 & geotype,flt,val)
01243
01244 return
01245 end
01246
01247
01248
01249 subroutine mmhaar(fid,mname,dtype,numdt,numit,entype,geotype,
01250 & flt,val,cret)
01251
01252
01253 implicit none
01254 save
01255
01256 character *(*) mname
01257 integer val(*)
01258 integer fid,numdt,numit,entype,geotype
01259 integer dtype,n,cret
01260 integer mmhfaar
01261 integer*8 flt(*)
01262
01263 cret = mmhfaar(fid,mname,len(mname),dtype,numdt,numit,entype,
01264 & geotype,flt,val)
01265
01266 return
01267 end
01268
01269
01270
01271 subroutine mmhasw(fid,mname,dtype,numdt,numit,entype,geotype,
01272 & flt,val,cret)
01273
01274
01275 implicit none
01276 save
01277
01278 character *(*) mname
01279 character *(*) val
01280 integer fid,numdt,numit,entype,geotype
01281 integer dtype,n,cret
01282 integer mmhfasw
01283 integer*8 flt(*)
01284
01285 cret = mmhfasw(fid,mname,len(mname),dtype,numdt,numit,entype,
01286 & geotype,flt,val)
01287
01288 return
01289 end
01290
01291
01292
01293 subroutine mmhasr(fid,mname,dtype,numdt,numit,entype,geotype,
01294 & flt,val,cret)
01295
01296
01297 implicit none
01298 save
01299
01300 character *(*) mname
01301 character *(*) val
01302 integer fid,numdt,numit,entype,geotype
01303 integer dtype,n,cret
01304 integer mmhfasr
01305 integer*8 flt(*)
01306
01307 cret = mmhfasr(fid,mname,len(mname),dtype,numdt,numit,entype,
01308 & geotype,flt,val)
01309
01310 return
01311 end