Commit 6c1c606a authored by Marco Govoni's avatar Marco Govoni
Browse files

Removed first attempt.

parent 56e26abc
...@@ -50,36 +50,5 @@ SUBROUTINE wstat_setup ...@@ -50,36 +50,5 @@ SUBROUTINE wstat_setup
CALL my_mkdir( wstat_dirname ) CALL my_mkdir( wstat_dirname )
! !
n_pdep_basis = n_pdep_eigen * n_pdep_times n_pdep_basis = n_pdep_eigen * n_pdep_times
CALL json_read2()
! !
END SUBROUTINE END SUBROUTINE
SUBROUTINE json_read2()
use json_module
use kinds, ONLY : DP
implicit none
type(json_file) :: json
type(json_value),pointer :: p, inp
logical :: found
integer :: i,j,k
REAL(DP) :: r
! initialize the class
call json%initialize()
! read the file
!call json%load_file(filename = './example2.json')
! add some data to inputs:
call json%add('inputs.r2', 45.d0 )
call json%add('outputs.r2', 45.d0 )
call json%print_file('./ex.json')
! clean up
call json%destroy()
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