Routine to print out the details of a character variable author: P J Knight, CCFE, Culham Science Centre file : input integer : Fortran output unit identifier descr : input character string : Description of the variable varnam : input character string : Name of the variable value : input character string : Value of the variable This routine writes out the description, name and value of a character string variable. None
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | file | |||
character(len=*), | intent(in) | :: | descr | |||
character(len=*), | intent(in) | :: | varnam | |||
character(len=*), | intent(in) | :: | value |
subroutine ovarst(file,descr,varnam,value)
!! Routine to print out the details of a character variable
!! author: P J Knight, CCFE, Culham Science Centre
!! file : input integer : Fortran output unit identifier
!! descr : input character string : Description of the variable
!! varnam : input character string : Name of the variable
!! value : input character string : Value of the variable
!! This routine writes out the description, name and value of a
!! character string variable.
!! None
!
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
use numerics, only: sqsumsq
use constants, only: mfile
implicit none
! Arguments
integer, intent(in) :: file
character(len=*), intent(in) :: descr, varnam, value
! Local variables
character(len=72) :: dum72
character(len=30) :: dum20
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Replace descr and varnam with dummy strings of the correct length.
! This counters problems that would occur if the two original strings
! were the wrong length.
dum72 = descr
dum20 = varnam
if (file /= mfile) then
write(file,10) dum72, dum20, value
end if
call underscore(dum72)
call underscore(dum20)
write(mfile,10) dum72, dum20, value
10 format(1x,a,t75,a,t110,a)
end subroutine ovarst