impure_write Subroutine

subroutine impure_write(message, format, file, R0i32, R0r32, R0c32, R0i64, R0r64, R0c64, R0ch, R1i32, R1r32, R1c32, R1i64, R1r64, R1c64, R2i32, R2r32, R2c32, R2i64, R2r64, R2c64, access)

Uses

  • proc~~impure_write~~UsesGraph proc~impure_write impure_write iso_fortran_env iso_fortran_env proc~impure_write->iso_fortran_env

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: message

Message to print
character(len=*), intent(in), optional :: format

Format to use for printing
character(len=*), intent(in), optional :: file

File to write to
integer(kind=int32), intent(in), optional :: R0i32

Rank=0, integer, kind=int32
real(kind=real32), intent(in), optional :: R0r32

Rank=0, real , kind=real32
complex(kind=real32), intent(in), optional :: R0c32

Rank=0, complex, kind=real32
integer(kind=int64), intent(in), optional :: R0i64

Rank=0, integer, kind=int64
real(kind=real64), intent(in), optional :: R0r64

Rank=0, real , kind=real64
complex(kind=real64), intent(in), optional :: R0c64

Rank=0, complex, kind=real64
character(len=*), intent(in), optional :: R0ch

Rank=0, character
integer(kind=int32), intent(in), optional :: R1i32(:)

Rank=1, integer, kind=int32
real(kind=real32), intent(in), optional :: R1r32(:)

Rank=1, real , kind=real32
complex(kind=real32), intent(in), optional :: R1c32(:)

Rank=1, complex, kind=real32
integer(kind=int64), intent(in), optional :: R1i64(:)

Rank=1, integer, kind=int64
real(kind=real64), intent(in), optional :: R1r64(:)

Rank=1, real , kind=real64
complex(kind=real64), intent(in), optional :: R1c64(:)

Rank=1, complex, kind=real64
integer(kind=int32), intent(in), optional :: R2i32(:,:)

Rank=2, integer, kind=int32
real(kind=real32), intent(in), optional :: R2r32(:,:)

Rank=2, real , kind=real32
complex(kind=real32), intent(in), optional :: R2c32(:,:)

Rank=2, complex, kind=real32
integer(kind=int64), intent(in), optional :: R2i64(:,:)

Rank=2, integer, kind=int64
real(kind=real64), intent(in), optional :: R2r64(:,:)

Rank=2, real , kind=real64
complex(kind=real64), intent(in), optional :: R2c64(:,:)

Rank=2, complex, kind=real64
character(len=*), intent(in), optional :: access

Access mode for file

Source Code

      pure subroutine impure_write(&
         message, format, file, &
         R0i32, R0r32, R0c32, R0i64, R0r64, R0c64, R0ch, &
         R1i32, R1r32, R1c32, R1i64, R1r64, R1c64, &
         R2i32, R2r32, R2c32, R2i64, R2r64, R2c64, &
         access)
         import int32, int64, real32, real64
         include 'pwrite.inc'
      end subroutine impure_write