48 CHARACTER(LEN=3) :: coefficientName
64 SUBROUTINE boundary_desc_construct(this, coefficientName, &
72 TYPE (boundary_desc),
INTENT(inout) :: this
73 INTEGER,
INTENT(in) :: n_index
74 INTEGER,
INTENT(in) :: m_index
75 CHARACTER(LEN=3),
INTENT(in) :: coefficientName
80 this % n_index = n_index
81 this % m_index = m_index
82 this % coefficientName = coefficientname
84 END SUBROUTINE boundary_desc_construct
95 SUBROUTINE boundary_desc_destroy(this)
97 TYPE (boundary_desc),
INTENT(inout) :: this
101 this % coefficientName =
' '
103 END SUBROUTINE boundary_desc_destroy
122 SUBROUTINE boundary_desc_write(this,iounit,filename)
131 TYPE (boundary_desc),
INTENT(in) :: this
132 INTEGER,
OPTIONAL,
INTENT(in) :: iounit
133 CHARACTER*300,
OPTIONAL,
INTENT(in) :: filename
142 IF (
PRESENT(iounit).AND.
PRESENT(filename))
THEN
144 CALL safe_open(iou,istat,filename,
'replace',
'formatted')
145 WRITE(iou,*)
'n_index - ', this % n_index
146 WRITE(iou,*)
'm_index - ', this % m_index
147 WRITE(iou,*)
'coefficientName - ', this % coefficientName
149 WRITE(*,*)
'n_index - ', this % n_index
150 WRITE(*,*)
'm_index - ', this % m_index
151 WRITE(*,*)
'coefficientName - ', this % coefficientName
154 END SUBROUTINE boundary_desc_write
159 END MODULE boundary_t