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