Added parachor

ipqa-research · Mar 7, 2024 · 984a393 · 984a393
1 parent 9cc7944
commit 984a393
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/example/main.f90 b/example/main.f90
@@ -16,4 +16,5 @@ program main
   sus(2) = Substance("ethanol", only=only_this)
 
   print *, sus%critical%critical_temperature%value
-end program
+  print *, sus%parachor%value
+end program
diff --git a/src/substance.f90 b/src/substance.f90
@@ -1,5 +1,5 @@
 module forsus_substance
-    use forsus_properties, only: CriticalConstants
+    use forsus_properties, only: ScalarProperty, CriticalConstants
     implicit none
 
     type :: Substance
@@ -59,8 +59,9 @@ module forsus_substance
         !! ```
         character(len=:), allocatable :: name 
             !! Substance name
-        type(CriticalConstants) :: critical 
+        type(CriticalConstants) :: critical
             !! Critical constants
+        type(ScalarProperty) :: parachor
     end type
 
     ! Setting this interface allows to use `init_json` as the object init
@@ -86,6 +87,7 @@ type(Substance) function init_json(name, path, only)
 
         init_json%name = trim(name)
         if (.not. present(only)) then
+            call init_json%parachor%from_json("Parachor", init_json%name//".json", path)
             call init_json%critical%from_json(init_json%name//".json", path)
         else
         do i=1,size(only)