write_envelope_PT_MP Subroutine

private subroutine write_envelope_PT_MP(env, unit)

Type Bound

PTEnvelMP

Arguments

Type IntentOptional Attributes Name
class(PTEnvelMP), intent(in) :: env
integer, intent(in) :: unit

Calls

proc~~write_envelope_pt_mp~~CallsGraph proc~write_envelope_pt_mp PTEnvelMP%write_envelope_PT_MP none~center_str center_str proc~write_envelope_pt_mp->none~center_str

Variables

Type Visibility Attributes Name Initial
real(kind=pr), private :: P
real(kind=pr), private :: S
real(kind=pr), private :: T
real(kind=pr), private, allocatable :: betas(:)
real(kind=pr), private :: dS
character(len=20), private :: hdr
integer, private :: i
integer, private :: its
integer, private :: j
integer, private :: k
integer, private :: n_beta
integer, private :: n_phase
integer, private :: nc
integer, private :: np
integer, private :: ns
character(len=20), private :: str_k
character(len=20), private :: str_ph
real(kind=pr), private, allocatable :: w(:)
real(kind=pr), private, allocatable :: x_l(:,:)

Functions

pure function center_str(text, width) result(res)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: text
integer, intent(in) :: width

Return Value character(len=width)