Commit 56e26abc authored by Marco Govoni's avatar Marco Govoni
Browse files

Changed to json.

parent ad011fc3
...@@ -1064,6 +1064,7 @@ END SUBROUTINE ...@@ -1064,6 +1064,7 @@ END SUBROUTINE
! !
SUBROUTINE output_a_report(iteration) SUBROUTINE output_a_report(iteration)
! !
USE json_module
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE westcom, ONLY : n_pdep_eigen,ev,conv USE westcom, ONLY : n_pdep_eigen,ev,conv
USE west_io , ONLY : serial_table_output USE west_io , ONLY : serial_table_output
...@@ -1071,6 +1072,7 @@ SUBROUTINE output_a_report(iteration) ...@@ -1071,6 +1072,7 @@ SUBROUTINE output_a_report(iteration)
! !
IMPLICIT NONE IMPLICIT NONE
! !
TYPE(json_file) :: json
INTEGER,INTENT(IN) :: iteration INTEGER,INTENT(IN) :: iteration
CHARACTER(LEN=9) :: pref CHARACTER(LEN=9) :: pref
INTEGER :: ip INTEGER :: ip
...@@ -1087,7 +1089,21 @@ SUBROUTINE output_a_report(iteration) ...@@ -1087,7 +1089,21 @@ SUBROUTINE output_a_report(iteration)
ELSE ELSE
pref='converged' pref='converged'
ENDIF ENDIF
CALL serial_table_output(mpime==root,4000,'wstat.'//TRIM(ADJUSTL(pref)),out_tab,n_pdep_eigen,3,(/' iprt','eigenv.',' conv.'/)) !CALL serial_table_output(mpime==root,4000,'wstat.'//TRIM(ADJUSTL(pref)),out_tab,n_pdep_eigen,3,(/' iprt','eigenv.',' conv.'/))
!
IF( mpime == root ) THEN
!
CALL json%initialize()
!
CALL json%add('output.iprt', out_tab(1:n_pdep_eigen,1) )
CALL json%add('output.eigenvalue', out_tab(1:n_pdep_eigen,2) )
CALL json%add('output.conv', out_tab(1:n_pdep_eigen,3) )
!
CALL json%print_file( 'o-wstat.'//TRIM(ADJUSTL(pref))//'.json' )
!
CALL json%destroy()
!
ENDIF
! !
END SUBROUTINE END SUBROUTINE
! !
......
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