33 USE stel_kinds ,
only : rprec
34 USE stel_constants,
only : pi, zero
50 PRIVATE rprec, pi, zero
57 INTEGER,
PARAMETER :: chord_name_len=30
77 CHARACTER(LEN=chord_name_len) :: chord_name
78 REAL(rprec),
DIMENSION(3) :: xcart
79 CHARACTER(LEN=1) :: thsc_type
95 SUBROUTINE thscte_desc_construct(this, chord_name, xcart, &
103 TYPE (thscte_desc),
INTENT(inout) :: this
104 CHARACTER(LEN=chord_name_len),
INTENT(in) :: chord_name
105 REAL(rprec),
DIMENSION(3),
INTENT(in) :: xcart
106 CHARACTER(LEN=1),
INTENT(in) :: chord_type
113 this % chord_name = chord_name
115 this % thsc_type = chord_type
117 END SUBROUTINE thscte_desc_construct
128 SUBROUTINE thscte_desc_destroy(this)
130 TYPE (thscte_desc),
INTENT(inout) :: this
132 this % chord_name =
''
136 END SUBROUTINE thscte_desc_destroy
156 SUBROUTINE thscte_desc_write(this,iounit,filename)
165 TYPE (thscte_desc),
INTENT(in) :: this
166 INTEGER,
OPTIONAL,
INTENT(in) :: iounit
167 CHARACTER*300,
OPTIONAL,
INTENT(in) :: filename
177 IF (
PRESENT(iounit).AND.
PRESENT(filename))
THEN
179 CALL safe_open(iou,istat,filename,
'replace',
'formatted')
180 WRITE(iou,*)
'chord name - ', this % chord_name
181 WRITE(iou,*)
'position -', this % xcart
183 WRITE(*,*)
'chord name - ',this % chord_name
184 WRITE(*,*)
'position -',this % xcart
187 END SUBROUTINE thscte_desc_write