1. Harald Klimach
  2. aotus

Commits

Harald Klimach  committed 4dbe090

Unify naming scheme also for open and close of complete script.

  • Participants
  • Parent commits a4481d0
  • Branches default

Comments (0)

Files changed (2)

File source/aot_out_module.f90

View file
 
   public :: aot_out_type
   public :: aot_put_val
-  public :: aot_open_put
-  public :: aot_close_put
+  public :: aot_out_open
+  public :: aot_out_close
   public :: aot_out_open_table
   public :: aot_out_close_table
 
 !! pre-connected file.
 !! If both are given, the file will be opened and connected to a new unit,
 !! outUnit is ignored in this case.
-  subroutine aot_open_put(put_conf, filename, outUnit)
+  subroutine aot_out_open(put_conf, filename, outUnit)
     !------------------------------------------------------------------------
     type(aot_out_type), intent(out) :: put_conf !< Handle for the file
     character(len=*), optional, intent(in) :: filename !< File to open
     put_conf%stack(:) = 0
     put_conf%level = 0
 
-  end subroutine aot_open_put
+  end subroutine aot_out_open
 !******************************************************************************!
 
 
 !******************************************************************************!
 !>  Close the script again.
 !!
-  subroutine aot_close_put(put_conf)
+  subroutine aot_out_close(put_conf)
     !------------------------------------------------------------------------
     type(aot_out_type), intent(inout)  :: put_conf
     !------------------------------------------------------------------------
     if( .not. put_conf%externalOpen ) close( put_conf%outunit )
-  end subroutine aot_close_put
+  end subroutine aot_out_close
 !******************************************************************************!
 
 

File test/aotus_test.f90

View file
 
   call close_config(conf)
 
-  call aot_open_put(put_conf = dummyOut, filename = 'dummy.lua')
+  call aot_out_open(put_conf = dummyOut, filename = 'dummy.lua')
   call aot_out_open_table(dummyOut, 'screen')
   call aot_put_val(dummyOut, 123, 'width')
   call aot_put_val(dummyOut, 456, 'height')
 
   call aot_out_close_table(dummyOut)
 
-  call aot_close_put(dummyOut)
+  call aot_out_close(dummyOut)
 
 end program aotus_test