save_into_file Subroutine

  1. vecfor_R16P.F90
  2. vecfor_R16P
  3. save_into_file

private subroutine save_into_file(self, unit, fmt, pos, iostat, iomsg)

Save vector into file.

 type(vector_R16P) :: pt
 pt = 1 * ex_R16P + 2 * ey_R16P + 3 * ez_R16P
 open(unit=10, form='unformatted', status='scratch')
 call pt%save_into_file(unit=10)
 rewind(unit=10)
 call pt%load_from_file(unit=10)
 close(unit=10)
 print "(3(F3.1,1X))", pt%x, pt%y, pt%z

Arguments

TypeIntentOptionalAttributesName
class(vector_R16P), intent(in) :: self

Vector data.
integer(kind=I4P), intent(in) :: unit

Logic unit.
character, intent(in), optional :: fmt

IO format.
integer(kind=I8P), intent(in), optional :: pos

Position specifier.
integer(kind=I4P), intent(out), optional :: iostat

IO error.
character, intent(out), optional :: iomsg

IO error message.

Contents

None