load_from_file Subroutine

  1. vecfor_R16P.F90
  2. vecfor_R16P
  3. load_from_file

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

Load vector from 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(inout) :: self

Vector.
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