?? smvv.f90
字號:
module isodefsimplicit noneCHARACTER(255), PARAMETER :: smvvid='$Id: smvv.f90 567 2007-09-11 20:48:44Z drjfloyd $'CHARACTER(255), PARAMETER :: smvvrev='$Revision: 567 $'CHARACTER(255), PARAMETER :: smvvdate='$Date: 2007-09-11 16:48:44 -0400 (Tue, 11 Sep 2007) $'interfacesubroutine isoheader(isofile,isolonglabel,isoshortlabel,isounits,levels,nlevels,error)!DEC$ ATTRIBUTES C :: ISOHEADER!DEC$ ATTRIBUTES REFERENCE :: ISOFILE,ISOLONGLABEL,ISOSHORTLABEL!DEC$ ATTRIBUTES REFERENCE :: ISOUNITS,LEVELS,NLEVELS,ERRORcharacter(len=*) :: isofilecharacter(len=30), intent(in) :: isolonglabel, isoshortlabel, isounitsinteger, intent(in) :: nlevelsinteger, intent(out) :: errorreal, dimension(nlevels), intent(in) :: levelsend subroutine isoheadersubroutine tisoheader(isofile,isolonglabel,isoshortlabel,isounits,levels,nlevels,error)!DEC$ ATTRIBUTES C :: TISOHEADER!DEC$ ATTRIBUTES REFERENCE :: ISOFILE,ISOLONGLABEL,ISOSHORTLABEL!DEC$ ATTRIBUTES REFERENCE :: ISOUNITS,LEVELS,NLEVELS,ERRORcharacter(len=*) :: isofilecharacter(len=30), intent(in) :: isolonglabel, isoshortlabel, isounitsinteger, intent(in) :: nlevelsinteger, intent(out) :: errorreal, dimension(nlevels), intent(in) :: levelsend subroutine tisoheadersubroutine iso2file(isofile,t,data,iblank,level,nlevels, xplt, nx, yplt, ny, zplt, nz, isooffset, reduce_triangles, error)!DEC$ ATTRIBUTES C :: ISO2FILE!DEC$ ATTRIBUTES REFERENCE :: ISOFILE, T, DATA, IBLANK, LEVEL!DEC$ ATTRIBUTES REFERENCE :: NLEVELS, XPLT, NX, YPLT, NY, ZPLT, NZ !DEC$ ATTRIBUTES REFERENCE :: ISOOFFSET, REDUCE_TRIANGLES, ERRORcharacter(len=*), intent(in) :: isofileinteger, intent(in) :: nlevels, isooffset, nx, ny, nzinteger, intent(out) :: errorreal, intent(in) :: treal, dimension(nlevels), intent(in) :: levelreal, intent(in), dimension(nx*ny*nz) :: datainteger, intent(in), dimension(nx*ny*nz) :: iblankreal, intent(in), dimension(nx) :: xpltreal, intent(in), dimension(ny) :: ypltreal, intent(in), dimension(nz) :: zpltinteger, intent(in) :: reduce_trianglesend subroutine iso2filesubroutine isot2file(isofile,t,data,data2flag,data2, iblank,level,nlevels, & xplt, nx, yplt, ny, zplt, nz, isooffset, reduce_triangles, error)!DEC$ ATTRIBUTES C :: ISOT2FILE!DEC$ ATTRIBUTES REFERENCE :: ISOFILE, T, DATA, DATA2FLAG, DATA2!DEC$ ATTRIBUTES REFERENCE :: IBLANK, LEVEL, NLEVELS, XPLT, NX!DEC$ ATTRIBUTES REFERENCE :: YPLT, NY, ZPLT, NZ, ISOOFFSET!DEC$ ATTRIBUTES REFERENCE :: REDUCE_TRIANGLES, ERRORcharacter(len=*), intent(in) :: isofileinteger, intent(in) :: nlevels, isooffset, nx, ny, nz, data2flaginteger, intent(out) :: errorreal, intent(in) :: treal, dimension(nlevels), intent(in) :: levelreal, intent(in), dimension(nx*ny*nz) :: data, data2integer, intent(in), dimension(nx*ny*nz) :: iblankreal, intent(in), dimension(nx) :: xpltreal, intent(in), dimension(ny) :: ypltreal, intent(in), dimension(nz) :: zpltinteger, intent(in) :: reduce_trianglesend subroutine isot2fileend interfaceCONTAINSSUBROUTINE GET_REV_smvv(MODULE_REV,MODULE_DATE)INTEGER,INTENT(INOUT) :: MODULE_REVCHARACTER(255),INTENT(INOUT) :: MODULE_DATEWRITE(MODULE_DATE,'(A)') smvvrev(INDEX(smvvrev,':')+1:LEN_TRIM(smvvrev)-2)READ (MODULE_DATE,'(I5)') MODULE_REVWRITE(MODULE_DATE,'(A)') smvvdateEND SUBROUTINE GET_REV_smvvend module isodefsmodule compressdefsinterfacesubroutine smoke3dheader(file,is1,is2,js1,js2,ks1,ks2)!DEC$ ATTRIBUTES C :: SMOKE3DHEADER!DEC$ ATTRIBUTES REFERENCE :: FILE,IS1,IS2,JS1,JS2,KS1,KS2character(len=*), intent(in) :: fileinteger, intent(in) ::is1,is2,js1,js2,ks1,ks2end subroutine smoke3dheadersubroutine smoke3dtofile(file,time,dx,extcoef,type,xyz,nx,ny,nz)!DEC$ ATTRIBUTES C :: SMOKE3DTOFILE!DEC$ ATTRIBUTES REFERENCE :: FILE,TIME,DX,EXTCOEF,TYPE,XYZ,NX,NY,NZcharacter(len=*), intent(in) :: filereal, intent(in) :: time, dx, extcoefinteger, intent(in) :: nx,ny,nzreal, intent(in), dimension(nx*ny*nz) :: xyzinteger, intent(in) :: typeend subroutine smoke3dtofileend interfaceend module compressdefs
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -