ConvertToProposalStr Subroutine

private subroutine ConvertToProposalStr(ProposalStr, LogScalar, intScalar, realScalar, intarr, realarr)

Get logical, integer, real, integer array or real array and transform it to string in the proposal format

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: ProposalStr
logical, intent(in), optional :: LogScalar
integer, intent(in), optional :: intScalar
real(kind=wp), intent(in), optional :: realScalar
integer, intent(in), optional :: intarr(:)
real(kind=wp), intent(in), optional :: realarr(:)

Calls

proc~~converttoproposalstr~~CallsGraph proc~converttoproposalstr ConvertToProposalStr proc~remove_blanks remove_blanks proc~converttoproposalstr->proc~remove_blanks

Called by

proc~~converttoproposalstr~~CalledByGraph proc~converttoproposalstr ConvertToProposalStr proc~getint GETINT proc~getint->proc~converttoproposalstr proc~getintallocarray GETINTALLOCARRAY proc~getintallocarray->proc~converttoproposalstr proc~getintarray GETINTARRAY proc~getintarray->proc~converttoproposalstr proc~getlogical GETLOGICAL proc~getlogical->proc~converttoproposalstr proc~getreal GETREAL proc~getreal->proc~converttoproposalstr proc~getrealallocarray GETREALALLOCARRAY proc~getrealallocarray->proc~converttoproposalstr proc~getrealarray GETREALARRAY proc~getrealarray->proc~converttoproposalstr proc~initanalyze InitAnalyze proc~initanalyze->proc~getrealallocarray proc~initmhd3d t_functional_mhd3d%InitMHD3D proc~initmhd3d->proc~getrealallocarray proc~initprofile InitProfile proc~initmhd3d->proc~initprofile proc~initprofile->proc~getrealallocarray proc~init Init proc~init->proc~initmhd3d proc~rungvec rungvec proc~rungvec->proc~initmhd3d program~gvec_post GVEC_POST program~gvec_post->proc~initmhd3d proc~start_rungvec start_rungvec proc~start_rungvec->proc~rungvec program~gvec GVEC program~gvec->proc~rungvec

Source Code

SUBROUTINE ConvertToProposalStr(ProposalStr,LogScalar,IntScalar,realScalar,Intarr,realarr)
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT        VARIABLES
LOGICAL ,INTENT(IN),OPTIONAL   :: LogScalar
INTEGER ,INTENT(IN),OPTIONAL   :: intScalar
REAL(wp),INTENT(IN),OPTIONAL   :: realScalar
INTEGER ,INTENT(IN),OPTIONAL   :: intarr(:)
REAL(wp),INTENT(IN),OPTIONAL   :: realarr(:)
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
CHARACTER(LEN=*),INTENT(INOUT) :: ProposalStr
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
CHARACTER(LEN=LEN(ProposalStr)) :: str_tmp
!===================================================================================================================================
  IF(PRESENT(logScalar))THEN
    IF(logScalar)THEn
      str_tmp='T'
    ELSE
      str_tmp='F'
    END IF
  ELSEIF(PRESENT(intscalar))THEN
    WRITE(str_tmp,'(I10)')intScalar
  ELSEIF(PRESENT(realScalar))THEN
    WRITE(str_tmp,'(E23.15)')realScalar
  ELSEIF(PRESENT(intarr))THEN
    WRITE(str_tmp,'(*(I8,:,","))')intarr(:)
  ELSEIF(PRESENT(realarr))THEN
    WRITE(str_tmp,'(*(E21.11,:,","))')realarr(:)
  ELSE
    ProposalStr=" "
    RETURN
  END IF
  ProposalStr=TRIM(remove_blanks(str_tmp))
END SUBROUTINE ConvertToProposalStr