⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 dxfortranstd.f90

📁 DXF producer by Fortran
💻 F90
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
!!
!! + DXFortran Standart Module 
!! 
module DXFortranStd
! 
! Description: 
!   Module of the Standart Librarie of DXFortran. 
! 
! Current Code Owner:
! Carlos Otero & Davide Santos
! (Department of Civil Engineering of the University of Algarve - Portugal)     
! www.ualg.pt/est/adec/csc/dxfortran
! 
! History: 
!  
! Version   Date     Comment 
! -------   -----    ------- 
! 0.1       00.11    Carlos Otero & Davide Santos
! 0.2       00.12    Carlos Otero & Davide Santos
! 
! Code Description: 
!   Language:  Fortran 90. 
!   Software Standards: "European Standards for Writing and  
!  Documenting Exchangeable Fortran 90 Code". 
 
Implicit none 
 
Contains 
! Define procedures contained in this module. 

!
!+ Subroutine to begin a DXF File.
!
Subroutine dfBegin(FileNum,layerDef) 
! Description: 
!   Begin a DXF file <FileNum>.
! 
! Method: 
!   No comment...
! 
! Current Code Owner: 
! Carlos Otero & Davide Santos
! (Department of Civil Engineering of the University of Algarve - Portugal)     
! www.ualg.pt/est/adec/csc/dxfortran
! 
! History: 
! Version   Date     Comment 
! -------   ----     ------- 
!     0.1   00.11    Carlos Otero & Davide Santos
! 
! Code Description: 
!   Language:  Fortran 90. 
!   Software Standards: "European Standards for Writing and  
!                        Documenting Exchangeable Fortran 90 Code". 
! 
Implicit None 
 
! Include statements: 

! Declarations must be of the form: 
 
! Subroutine arguments 

! Scalar arguments with intent(in): 

integer ,intent(in):: FileNum           ! File Number
integer            :: l,              & ! num. of layers
                      i
character (len=*), intent(in)   :: layerDef(:,:) 

l = size(layerDef, dim=1)


!- Begin of header ------------------------------------------------------------

   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "SECTION"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "HEADER"
   write (FileNum,fmt='(A)') "  999"
   write (FileNum,fmt='(A)') "Generator:DXFortran"
   write (FileNum,fmt='(A)') "  999"
   write (FileNum,fmt='(A)') "http://www.ualg.pt/est/adec/dxfortran/"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "ENDSEC"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "SECTION"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "TABLES"
   write (FileNum,fmt='(A)') "  0"
!- Style Def        ------------------------------------------------------------
   write (FileNum,fmt='(A)') "TABLE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "STYLE"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     2"
   !---- STANDARD
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "STYLE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "STANDARD"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') "41"
   write (FileNum,fmt='(A)') "1.0"
   write (FileNum,fmt='(A)') " 50"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 71"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 42"
   write (FileNum,fmt='(A)') "2.5"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "txt"
   write (FileNum,fmt='(A)') "  4"
   write (FileNum,fmt='(A)') ""
   !---- ROMANS
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "STYLE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "ROMANS"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 41"
   write (FileNum,fmt='(A)') "1.0"
   write (FileNum,fmt='(A)') " 50"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 71"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 42"
   write (FileNum,fmt='(A)') "2.5"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "romans.shx"
   write (FileNum,fmt='(A)') "  4"
   write (FileNum,fmt='(A)') ""
      !---- ROMANC
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "STYLE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "ROMAND"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 41"
   write (FileNum,fmt='(A)') "1.0"
   write (FileNum,fmt='(A)') " 50"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 71"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 42"
   write (FileNum,fmt='(A)') "2.5"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "romand.shx"
   write (FileNum,fmt='(A)') "  4"
   write (FileNum,fmt='(A)') ""
   !---- ROMANC
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "STYLE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "ROMANT"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 41"
   write (FileNum,fmt='(A)') "1.0"
   write (FileNum,fmt='(A)') " 50"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 71"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 42"
   write (FileNum,fmt='(A)') "2.5"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "romant.shx"
   write (FileNum,fmt='(A)') "  4"
   write (FileNum,fmt='(A)') ""
   !---- 
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "ENDTAB"
   write (FileNum,fmt='(A)') "  0"
!- LType Def        ------------------------------------------------------------
   write (FileNum,fmt='(A)') "TABLE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "    16"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "CONTINUOUS"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Solid line"
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
   write (FileNum,fmt='(A)') " 73"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "CENTER"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Center ____ _ ____ _ ____ _ ____ _ ____ _ ____"
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
   write (FileNum,fmt='(A)') " 73"
   write (FileNum,fmt='(A)') "     4"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "50.8"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "31.75"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-6.35"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "6.35"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-6.35"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "CENTER2"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Center (.5x) ___ _ ___ _ ___ _ ___ _ ___ _ ___"
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
   write (FileNum,fmt='(A)') " 73"
   write (FileNum,fmt='(A)') "     4"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "28.575"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "19.05"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-3.175"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "3.175"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-3.175"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "CENTERX2"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Center (2x) ________  __  ________  __  _____"
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
   write (FileNum,fmt='(A)') " 73"
   write (FileNum,fmt='(A)') "     4"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "101.6"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "63.5"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-12.7"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "12.7"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-12.7"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "DASHDOT"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Dash dot __ . __ . __ . __ . __ . __ . __ . __"
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
   write (FileNum,fmt='(A)') " 73"
   write (FileNum,fmt='(A)') "     4"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "25.4"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "12.7"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-6.35"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-6.35"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "DASHDOT2"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Dash dot (.5x) _._._._._._._._._._._._._._._."
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
   write (FileNum,fmt='(A)') " 73"
   write (FileNum,fmt='(A)') "     4"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "12.7"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "6.35"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-3.175"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-3.175"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "DASHDOTX2"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Dash dot (2x) ____  .  ____  .  ____  .  ___"
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
   write (FileNum,fmt='(A)') " 73"
   write (FileNum,fmt='(A)') "     4"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "50.8"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "25.4"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-12.7"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "0.0"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-12.7"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "DASHED"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _"
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
   write (FileNum,fmt='(A)') " 73"
   write (FileNum,fmt='(A)') "     2"
   write (FileNum,fmt='(A)') " 40"
   write (FileNum,fmt='(A)') "19.05"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "12.7"
   write (FileNum,fmt='(A)') " 49"
   write (FileNum,fmt='(A)') "-6.35"
   write (FileNum,fmt='(A)') "  0"
   write (FileNum,fmt='(A)') "LTYPE"
   write (FileNum,fmt='(A)') "  2"
   write (FileNum,fmt='(A)') "DASHED2"
   write (FileNum,fmt='(A)') " 70"
   write (FileNum,fmt='(A)') "     0"
   write (FileNum,fmt='(A)') "  3"
   write (FileNum,fmt='(A)') "Dashed (.5x) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _"
   write (FileNum,fmt='(A)') " 72"
   write (FileNum,fmt='(A)') "    65"
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -