Manual Reference Pages - new_line (3fortran)

NAME

NEW_LINE(3) - [CHARACTER:INQUIRY] Newline character

SYNOPSIS

result = new_line(c)

         character(len=1,kind=KIND) function new_line(c)

          character(len=1,kind=KIND),intent(in) :: c(..)

CHARACTERISTICS

o C shall be of type character. It may be a scalar or an array.

o the result is a character scalar of length one with the same kind type parameter as C.

DESCRIPTION

NEW_LINE(3) returns the newline character.
Normally, newlines are generated with regular formatted I/O statements like WRITE() and PRINT() when each statement completes:
       print *, ’x=11’
       print *
       print *, ’y=22’
       end
produces:
        x=11

        y=22
Alternatively, a "/" descriptor in a format is used to generate a newline on the output. For example:
       write(*,’(a,1x,i0,/,a)’) ’x =’,11,’is the answer’
       end
produces:
       x = 11
       is the answer
Also, for formatted sequential output if more data is listed on the output statement than can be represented by the format statement a newline is generated and then the format is reused until the output list is exhausted.
       write(*,’(a,"=",i0)’) ’x’, 10, ’y’, 20
       end
produces
       x=10
       y=20
But there are occasions, particularly when non-advancing I/O or stream I/O is being generated (which does not generate a newline at the end of each WRITE statement, as normally occurs) where it is preferable to place a newline explicitly in the output at specified points.
To do so you must make sure you are generating the correct newline character, which the techniques above do automatically.
The newline character varies between some platforms, and can even depend on the encoding (ie. which character set is being used) of the output file. In these cases selecting the correct character to output can be determined by the NEW_LINE(3) procedure.

OPTIONS

o C : an arbitrary character whose kind is used to decide on the output character that represents a newline.

RESULT

Case (i) : If A is default character and the character in position 10 of the ASCII collating sequence is representable in the default character set, then the result is ACHAR(10).
This is the typical case, and just requires using "new_line(’a’)".
Case (ii) : If A is an ASCII character or an ISO 10646 character, then the result is CHAR(10, KIND (A)).
Case (iii) : Otherwise, the result is a processor-dependent character that represents a newline in output to files connected for formatted stream output if there is such a character.
Case (iv) : If not of the previous cases apply, the result is the blank character.

EXAMPLES

Sample program:

    program demo_new_line
    implicit none
    character,parameter :: nl=new_line(’a’)
    character(len=:),allocatable :: string
    real :: r
    integer :: i, count

      ! basics
       ! print a string with a newline embedded in it
       string=’This is record 1.’//nl//’This is record 2.’
       write(*,’(a)’) string

       ! print a newline character string
       write(*,’(*(a))’,advance=’no’) &
          nl,’This is record 1.’,nl,’This is record 2.’,nl

       ! output a number of words of random length as a paragraph
       ! by inserting a new_line before line exceeds 70 characters

      ! simplistic paragraph print using non-advancing I/O
       count=0
       do i=1,100

          ! make some fake word of random length
          call random_number(r)
          string=repeat(’x’,int(r*10)+1)

          count=count+len(string)+1
          if(count.gt.70)then
             write(*,’(a)’,advance=’no’)nl
             count=len(string)+1
          endif
          write(*,’(1x,a)’,advance=’no’)string
       enddo
       write(*,’(a)’,advance=’no’)nl

    end program demo_new_line

Results:

> This is record 1. > This is record 2. > > This is record 1. > This is record 2. > x x xxxx xxxxxxx xxxxxxxxxx xxxxxxxxx xxxx xxxxxxxxxx xxxxxxxx > xxxxxxxxx xxxx xxxxxxxxx x xxxxxxxxx xxxxxxxx xxxxxxxx xxxx x > xxxxxxxxxx x x x xxxxxx xxxxxxxxxx x xxxxxxxxxx x xxxxxxx xxxxxxxxx > xx xxxxxxxxxx xxxxxxxx x xx xxxxxxxxxx xxxxxxxx xxx xxxxxxx xxxxxx > xxxxx xxxxxxxxx x xxxxxxxxxx xxxxxx xxxxxxxx xxxxx xxxxxxxx xxxxxxxx > xxxxx xxx xxxxxxxx xxxxxxx xxxxxxxx xxx xxxx xxx xxxxxxxx xxxxxx > xxxxxxx xxxxxxx xxxxx xxxxx xx xxxxxx xx xxxxxxxxxx xxxxxx x xxxx > xxxxxx xxxxxxx x xxx xxxxx xxxxxxxxx xxx xxxxxxx x xxxxxx xxxxxxxxx > xxxx xxxxxxxxx xxxxxxxx xxxxxxxx xxx xxxxxxx xxxxxxx xxxxxxxxxx > xxxxxxxxxx xxxxxx xxxxx xxxx xxxxxxx xx xxxxxxxxxx xxxxxx xxxxxx > xxxxxx xxxx xxxxx

STANDARD

Fortran 2003

o	C shall be of type character. It may be a scalar or an array.
o	the result is a character scalar of length one with the same kind type parameter as C.