00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 subroutine mfdcre(fid,fname,ftype,ncomp,cname,cunit,
00021 & dtunit,mname,cret)
00022
00023
00024 implicit none
00025 save
00026 character*(*) fname,cname,cunit,dtunit,mname
00027 integer fid,ncomp,cret,ftype
00028 integer mfdfcre
00029
00030 cret = mfdfcre(fid,fname,len(fname),ftype,
00031 & ncomp,cname,16*ncomp,cunit,16*ncomp,
00032 & dtunit,len(dtunit),mname,len(mname))
00033
00034 return
00035 end
00036
00037
00038
00039 subroutine mfdrvw(fid,fname,numdt,numit,dt,
00040 & etype,gtype,swm,cs,n,val,cret)
00041
00042
00043 implicit none
00044 save
00045 character*(*) fname
00046 integer numdt,numit
00047 real*8 dt,val(*)
00048 integer fid,cret,etype,gtype,swm,cs,n
00049 integer mfdfrvw
00050
00051 cret = mfdfrvw(fid,fname,len(fname),numdt,numit,dt,
00052 & etype,gtype,swm,cs,n,val)
00053
00054 return
00055 end
00056
00057
00058
00059 subroutine mfdivw(fid,fname,numdt,numit,dt,
00060 & etype,gtype,swm,cs,n,val,cret)
00061
00062
00063 implicit none
00064 save
00065 character*(*) fname
00066 integer numdt,numit
00067 real*8 dt
00068 integer val(*)
00069 integer fid,cret,etype,gtype,swm,cs,n
00070 integer mfdfivw
00071
00072 cret = mfdfivw(fid,fname,len(fname),numdt,numit,dt,
00073 & etype,gtype,swm,cs,n,val)
00074
00075 return
00076 end
00077
00078
00079
00080 subroutine mfdrpw(fid,fname,numdt,numit,dt,
00081 & etype,gtype,
00082 & stm,pname,lname,
00083 & swm,cs,n,val,cret)
00084
00085
00086 implicit none
00087 save
00088 character*(*) fname,pname,lname
00089 integer numdt,numit
00090 real*8 dt,val(*)
00091 integer fid,cret,etype,gtype,swm,cs,n,stm
00092 integer mfdfrpw
00093
00094 cret = mfdfrpw(fid,fname,len(fname),numdt,numit,dt,
00095 & etype,gtype,stm,pname,len(pname),
00096 & lname,len(lname),swm,cs,n,val)
00097
00098 return
00099 end
00100
00101
00102
00103 subroutine mfdipw(fid,fname,numdt,numit,dt,
00104 & etype,gtype,
00105 & stm,pname,lname,
00106 & swm,cs,n,val,cret)
00107
00108
00109 implicit none
00110 save
00111 character*(*) fname,pname,lname
00112 integer numdt,numit
00113 real*8 dt
00114 integer val(*)
00115 integer fid,cret,etype,gtype,swm,cs,n,stm
00116 integer mfdfipw
00117
00118 cret = mfdfipw(fid,fname,len(fname),numdt,numit,dt,
00119 & etype,gtype,stm,pname,len(pname),
00120 & lname,len(lname),swm,cs,n,val,cret)
00121
00122 return
00123 end
00124
00125
00126
00127 subroutine mfdraw(fid,fname,numdt,numit,dt,
00128 & etype,gtype,lname,flt,
00129 & val,cret)
00130
00131
00132 implicit none
00133 save
00134 character*(*) fname,lname
00135 integer numdt,numit
00136 real*8 dt,val(*)
00137 integer*8 flt(*)
00138 integer fid,cret,etype,gtype
00139 integer mfdfraw
00140
00141 cret = mfdfraw(fid,fname,len(fname),numdt,numit,dt,
00142 & etype,gtype,lname,len(lname),flt,val)
00143
00144 return
00145 end
00146
00147
00148
00149 subroutine mfdiaw(fid,fname,numdt,numit,dt,
00150 & etype,gtype,lname,flt,
00151 & val,cret)
00152
00153
00154 implicit none
00155 save
00156 character*(*) fname,lname
00157 integer numdt,numit
00158 real*8 dt
00159 integer val(*)
00160 integer*8 flt(*)
00161 integer fid,cret,etype,gtype
00162 integer mfdfiaw
00163
00164 cret = mfdfiaw(fid,fname,len(fname),numdt,numit,dt,
00165 & etype,gtype,lname,len(lname),flt,val)
00166
00167 return
00168 end
00169
00170
00171
00172 subroutine mfdnfd(fid,n,cret)
00173
00174
00175 implicit none
00176 save
00177 integer fid,n,cret
00178 integer mfdfnfd
00179
00180 n = mfdfnfd(fid)
00181
00182 if (n.lt.0) then
00183 cret = -1
00184 else
00185 cret = 0
00186 endif
00187
00188 return
00189 end
00190
00191
00192
00193 subroutine mfdnfc(fid,ind,n,cret)
00194
00195
00196 implicit none
00197 save
00198 integer fid,n,cret,ind
00199 integer mfdfnfc
00200
00201 n = mfdfnfc(fid,ind)
00202
00203 if (n.lt.0) then
00204 cret = -1
00205 else
00206 cret = 0
00207 endif
00208
00209 return
00210 end
00211
00212
00213
00214 subroutine mfdncn(fid,fname,n,cret)
00215
00216
00217 implicit none
00218 save
00219 integer fid,n,cret
00220 character *(*) fname
00221 integer mfdfncn
00222
00223 n = mfdfncn(fid,fname,len(fname))
00224
00225 if (n.lt.0) then
00226 cret = -1
00227 else
00228 cret = 0
00229 endif
00230
00231 return
00232 end
00233
00234
00235
00236 subroutine mfdfdi(fid, it, fname, mname, lmesh, type,
00237 & cname, cunit, dtunit, nc, cret)
00238
00239
00240 implicit none
00241 save
00242
00243 character *(*) fname, mname, dtunit, cname, cunit
00244 integer lmesh, cret
00245 integer fid, type, it, nc
00246 integer mfdffdi
00247
00248 cret = mfdffdi(fid, it, fname, mname, lmesh, type,
00249 & cname, cunit, dtunit, nc)
00250
00251
00252 return
00253 end
00254
00255
00256
00257 subroutine mfdfin(fid, fname, mname, lmesh, type,
00258 & cname, cunit, dtunit, nc, cret)
00259
00260
00261 implicit none
00262 save
00263
00264 character *(*) fname, mname, dtunit, cname, cunit
00265 integer lmesh, cret
00266 integer fid, type, nc
00267 integer mfdffin
00268
00269 cret = mfdffin(fid, fname, len(fname), mname, lmesh, type,
00270 & cname, cunit, dtunit, nc)
00271
00272 return
00273 end
00274
00275
00276
00277 subroutine mfdcsi(fid, fname, it, numdt, numit, dt, cret)
00278
00279
00280 implicit none
00281 save
00282
00283 character*(*) fname
00284 integer cret
00285 integer fid, it, numdt, numit
00286 real*8 dt
00287 integer mfdfcsi
00288
00289 cret = mfdfcsi(fid,fname,len(fname),it,numdt,numit,dt)
00290
00291 return
00292 end
00293
00294
00295
00296 subroutine mfdcmi(fid, fname, it, numdt, numit, dt,
00297 & mnumdt, mnumit, cret)
00298
00299
00300 implicit none
00301 save
00302
00303 character*(*) fname
00304 integer cret
00305 integer fid, it, numdt, numit, mnumdt, mnumit
00306 real*8 dt
00307 integer mfdfcmi
00308
00309 cret = mfdfcmi(fid,fname,len(fname),it,numdt,numit,dt,
00310 & mnumdt,mnumit)
00311
00312 return
00313 end
00314
00315
00316
00317 subroutine mfdcmw(fid, fname, numdt, numit,
00318 & mnumdt, mnumit, cret)
00319
00320
00321 implicit none
00322 save
00323
00324 character*(*) fname
00325 integer cret
00326 integer fid, numdt, numit, mnumdt, mnumit
00327 integer mfdfcmw
00328
00329 cret = mfdfcmw(fid,fname,len(fname),numdt,numit,
00330 & mnumdt,mnumit)
00331
00332 return
00333 end
00334
00335
00336
00337 subroutine mfdnpf(fid,fname,numdt,numit,etype,gtype,
00338 & dpname, dlname, n,cret)
00339
00340
00341 implicit none
00342 save
00343 integer fid,n,cret
00344 integer numdt,numit,etype,gtype
00345 character*(*) fname,dpname,dlname
00346
00347 integer mfdfnpf
00348
00349 n = mfdfnpf(fid,fname,len(fname),numdt,numit,etype,
00350 & gtype,dpname,dlname)
00351
00352 if (n.lt.0) then
00353 cret = -1
00354 else
00355 cret = 0
00356 endif
00357
00358 return
00359 end
00360
00361
00362
00363 subroutine mfdnva(fid,fname,numdt,numit,etype,gtype,n,cret)
00364
00365
00366 implicit none
00367 save
00368 character*(*) fname
00369 integer fid,n,cret,numdt,numit,etype,gtype
00370 integer mfdfnva
00371
00372 n = mfdfnva(fid,fname,len(fname),numdt,numit,
00373 & etype,gtype,cret)
00374
00375 if (n.lt.0) then
00376 cret = -1
00377 else
00378 cret = 0
00379 endif
00380
00381 return
00382 end
00383
00384
00385
00386 subroutine mfdnvp(fid,fname,numdt,numit,etype,gtype,
00387 & pit,stm,pname,psize,lname,nip,
00388 & n,cret)
00389
00390
00391 implicit none
00392 save
00393 character*(*) fname, pname, lname
00394 integer pit,stm,psize
00395 integer fid,n,cret,numdt,numit,etype,gtype,nip
00396 integer mfdfnvp
00397
00398 n = mfdfnvp(fid,fname,len(fname),numdt,numit,
00399 & etype,gtype,pit,stm,pname,psize,lname,
00400 & nip,cret)
00401
00402 if (n.lt.0) then
00403 cret = -1
00404 else
00405 cret = 0
00406 endif
00407
00408 return
00409 end
00410
00411
00412
00413 subroutine mfdnpn(fid,fname,numdt,numit,etype,gtype,
00414 & pname,stm,psize,lname,nip,
00415 & n,cret)
00416
00417
00418 implicit none
00419 save
00420 character*(*) fname, pname, lname
00421 integer stm,psize
00422 integer fid,n,cret,numdt,numit,etype,gtype,nip
00423 integer mfdfnpn
00424
00425 n = mfdfnpn(fid,fname,len(fname),numdt,numit,
00426 & etype,gtype,pname,len(pname),stm,
00427 & psize,lname,nip,cret)
00428
00429 if (n.lt.0) then
00430 cret = -1
00431 else
00432 cret = 0
00433 endif
00434
00435 return
00436 end
00437
00438
00439
00440 subroutine mfdrvr(fid,fname,numdt,numit,
00441 & etype,gtype,swm,cs,val,cret)
00442
00443
00444 implicit none
00445 save
00446 character*(*) fname
00447 integer numdt,numit
00448 real*8 val(*)
00449 integer fid,cret,etype,gtype,swm,cs
00450 integer mfdfrvr
00451
00452 cret = mfdfrvr(fid,fname,len(fname),numdt,numit,
00453 & etype,gtype,swm,cs,val)
00454
00455 return
00456 end
00457
00458
00459
00460 subroutine mfdivr(fid,fname,numdt,numit,
00461 & etype,gtype,swm,cs,val,cret)
00462
00463
00464 implicit none
00465 save
00466 character*(*) fname
00467 integer numdt,numit
00468 integer val(*)
00469 integer fid,cret,etype,gtype,swm,cs
00470 integer mfdfivr
00471
00472 cret = mfdfivr(fid,fname,len(fname),numdt,numit,
00473 & etype,gtype,swm,cs,val)
00474
00475 return
00476 end
00477
00478
00479
00480 subroutine mfdrpr(fid,fname,numdt,numit,
00481 & etype,gtype,
00482 & stm,pname,
00483 & swm,cs,val,cret)
00484
00485
00486 implicit none
00487 save
00488 character*(*) fname,pname
00489 integer numdt,numit
00490 real*8 val(*)
00491 integer fid,cret,etype,gtype,swm,cs,stm
00492 integer mfdfrpr
00493
00494 cret = mfdfrpr(fid,fname,len(fname),numdt,numit,
00495 & etype,gtype,stm,pname,len(pname),swm,cs,val)
00496
00497 return
00498 end
00499
00500
00501
00502 subroutine mfdipr(fid,fname,numdt,numit,
00503 & etype,gtype,
00504 & stm,pname,
00505 & swm,cs,val,cret)
00506
00507
00508 implicit none
00509 save
00510 character*(*) fname,pname
00511 integer numdt,numit
00512 integer val(*)
00513 integer fid,cret,etype,gtype,swm,cs,n,stm
00514 integer mfdfipr
00515
00516 cret = mfdfipr(fid,fname,len(fname),numdt,numit,
00517 & etype,gtype,stm,pname,len(pname),swm,cs,val,cret)
00518
00519 return
00520 end
00521
00522
00523
00524 subroutine mfdrar(fid,fname,numdt,numit,
00525 & etype,gtype,flt,
00526 & val,cret)
00527
00528
00529 implicit none
00530 save
00531 character*(*) fname
00532 integer numdt,numit
00533 real*8 val(*)
00534 integer*8 flt(*)
00535 integer fid,cret,etype,gtype
00536 integer mfdfrar
00537
00538 cret = mfdfrar(fid,fname,len(fname),numdt,numit,
00539 & etype,gtype,flt,val)
00540
00541 return
00542 end
00543
00544
00545
00546 subroutine mfdiar(fid,fname,numdt,numit,
00547 & etype,gtype,flt,
00548 & val,cret)
00549
00550
00551 implicit none
00552 save
00553 character*(*) fname
00554 integer numdt,numit
00555 integer val(*)
00556 integer*8 flt(*)
00557 integer fid,cret,etype,gtype
00558 integer mfdfiar
00559
00560 cret = mfdfiar(fid,fname,len(fname),numdt,numit,
00561 & etype,gtype,flt,val)
00562
00563 return
00564 end
00565
00566
00567
00568 subroutine mfdinw(fid,fname,iname,cret)
00569
00570
00571 implicit none
00572 save
00573 character*(*) fname,iname
00574 integer fid,cret
00575 integer mfdfinw
00576
00577 cret = mfdfinw(fid,fname,len(fname),iname,len(iname),cret)
00578
00579 return
00580 end
00581
00582
00583
00584 subroutine mfdnin(fid,fname,n,cret)
00585
00586
00587 implicit none
00588 save
00589 integer fid,n,cret
00590 character*(*) fname
00591 integer mfdfnin
00592
00593 n = mfdfnin(fid,fname,len(fname))
00594
00595 if (n.lt.0) then
00596 cret = -1
00597 else
00598 cret = 0
00599 endif
00600
00601 return
00602 end
00603
00604
00605
00606 subroutine mfdini(fid,fname,it,iname,cret)
00607
00608
00609 implicit none
00610 save
00611 character*(*) fname,iname
00612 integer fid,cret,it
00613 integer mfdfini
00614
00615 cret = mfdfini(fid,fname,len(fname),it,iname,cret)
00616
00617 return
00618 end
00619
00620
00621
00622 subroutine mfdoci(fid, fname, it, numdt, numit, dt,
00623 & nmesh, mname, lmesh,
00624 & mnumdt, mnumit, cret)
00625
00626
00627 implicit none
00628 save
00629
00630 character*(*) fname,mname
00631 integer cret
00632 integer fid,it,numdt,numit,nmesh,lmesh
00633 integer mnumdt,mnumit
00634 real*8 dt
00635 integer mfdfoci
00636
00637 cret = mfdfoci(fid,fname,len(fname),it,
00638 & numdt,numit,dt,
00639 & nmesh, mname, lmesh,
00640 & mnumdt, mnumit)
00641
00642 return
00643 end
00644
00645
00646
00647 subroutine mfdonp(fid,fname,numdt,numit,etype,gtype,
00648 & it,mname, dpname, dlname, n, cret)
00649
00650
00651 implicit none
00652 save
00653 integer fid,n,cret
00654 integer numdt,numit,etype,gtype,it
00655 character*(*) fname,dpname,dlname,mname
00656
00657 integer mfdfonp
00658
00659 n = mfdfonp(fid,fname,len(fname),numdt,numit,etype,
00660 & gtype,it,mname,dpname,dlname)
00661
00662 if (n.lt.0) then
00663 cret = -1
00664 else
00665 cret = 0
00666 endif
00667
00668 return
00669 end
00670
00671
00672
00673 subroutine mfdonv(fid,fname,numdt,numit,etype,gtype,
00674 & mname,pit,stm,pname,psize,lname,
00675 & nip,n,cret)
00676
00677
00678 implicit none
00679 save
00680 character*(*) fname, pname, lname, mname
00681 integer pit,stm,psize
00682 integer fid,n,cret,numdt,numit,etype,gtype,nip
00683 integer mfdfonv
00684
00685 n = mfdfonv(fid,fname,len(fname),numdt,numit,
00686 & etype,gtype,
00687 & mname,len(mname),
00688 & pit,stm,pname,psize,lname,
00689 & nip,cret)
00690
00691 if (n.lt.0) then
00692 cret = -1
00693 else
00694 cret = 0
00695 endif
00696
00697 return
00698 end
00699
00700
00701
00702 subroutine mfdorr(fid,fname,numdt,numit,
00703 & etype,gtype,
00704 & mname,
00705 & stm,pname,
00706 & swm,cs,val,cret)
00707
00708
00709 implicit none
00710 save
00711 character*(*) fname,pname,mname
00712 integer numdt,numit
00713 real*8 val(*)
00714 integer fid,cret,etype,gtype,swm,cs,stm
00715 integer mfdforr
00716
00717 cret = mfdforr(fid,fname,len(fname),numdt,numit,
00718 & etype,gtype,mname,len(mname),
00719 & stm,pname,len(pname),swm,cs,val)
00720
00721 return
00722 end
00723
00724
00725
00726 subroutine mfdoir(fid,fname,numdt,numit,
00727 & etype,gtype,
00728 & mname,
00729 & stm,pname,
00730 & swm,cs,val,cret)
00731
00732
00733 implicit none
00734 save
00735 character*(*) fname,pname,mname
00736 integer numdt,numit
00737 integer val(*)
00738 integer fid,cret,etype,gtype,swm,cs,n,stm
00739 integer mfdfoir
00740
00741 cret = mfdfoir(fid,fname,len(fname),numdt,numit,
00742 & etype,gtype,mname,len(mname),
00743 & stm,pname,len(pname),swm,cs,val,cret)
00744
00745 return
00746 end