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