Commits

Simon Zimny  committed 50fe13e Merge

merged in my changes

  • Participants
  • Parent commits 9046b5c, ed9a061

Comments (0)

Files changed (2)

File source/aot_out_module.f90

File contents unchanged.

File test/aotus_test.f90

   write(*,"(a,3f5.2,a)") "result of ic_density at ",  coord, ':'
   write(*,"(EN16.7)") results
 
-  kjval(1,1) = 1
-  kjval(1,2) = 2
-  kjval(1,3) = 3
-  kjval(2,1) = 4
-  kjval(2,2) = 5
-  kjval(2,3) = 6
 
 
   !> Repeat putting and retrieving if needed.
 
   call aot_out_open(put_conf = dummyOut, filename = 'dummy.lua')
   call aot_out_open_table(dummyOut, 'screen')
-  !call aot_out_val(dummyOut, 123, 'width')
-  !call aot_out_val(dummyOut, 456, 'height')
+  call aot_out_val(dummyOut, 123, 'width')
+  call aot_out_val(dummyOut, 456, 'height')
 
-  !call aot_out_open_table(dummyOut, 'origin')  
-  !call aot_out_val(dummyOut, 100)
-  !call aot_out_val(dummyOut, 0)
+  call aot_out_open_table(dummyOut, 'origin')  
+  call aot_out_val(dummyOut, 100)
+  call aot_out_val(dummyOut, 0)
   call aot_out_close_table(dummyOut)
+!  call aot_out_val(dummyOut, (/0,1,2,3/))
   !Kartik: Calling the routine to test with a 2d array
-  call aot_out_val(dummyOut, (/0,1,2,3/), 'testarr')
-  call aot_out_val(dummyOut, (/4,5,6,7/), 'testarr2')
+  call aot_out_val(dummyOut, kjval)
 
   call aot_out_close_table(dummyOut)