Commit fe3cc00d authored by Marco Govoni's avatar Marco Govoni
Browse files

Changed pint_file.

parent 851eb0e4
...@@ -1075,7 +1075,7 @@ SUBROUTINE output_a_report(iteration) ...@@ -1075,7 +1075,7 @@ SUBROUTINE output_a_report(iteration)
TYPE(json_file) :: json TYPE(json_file) :: json
INTEGER,INTENT(IN) :: iteration INTEGER,INTENT(IN) :: iteration
CHARACTER(LEN=9) :: pref CHARACTER(LEN=9) :: pref
INTEGER :: ip INTEGER :: ip, ierr
REAL(DP) :: out_tab(n_pdep_eigen,3) REAL(DP) :: out_tab(n_pdep_eigen,3)
! !
DO ip=1,n_pdep_eigen DO ip=1,n_pdep_eigen
...@@ -1099,7 +1099,9 @@ SUBROUTINE output_a_report(iteration) ...@@ -1099,7 +1099,9 @@ SUBROUTINE output_a_report(iteration)
CALL json%add('output.eigenvalue', 45.d0 ) CALL json%add('output.eigenvalue', 45.d0 )
CALL json%add('output.conv', 30.d0 ) CALL json%add('output.conv', 30.d0 )
! !
CALL json%print_file( 'o-wstat.'//TRIM(ADJUSTL(pref))//'.json' ) OPEN(UNIT=4000,FILE="o-wstat."//TRIM(ADJUSTL(pref))//".tab",IOSTAT=ierr)
CALL json%print_file( 4000 )
CLOSE( 4000, IOSTAT=ierr )
! !
CALL json%destroy() CALL json%destroy()
! !
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment