update with a horrible fzf

ipqa-research · Jun 13, 2024 · d00f5da · d00f5da
1 parent c079243
commit d00f5da
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 1 deletion.
diff --git a/app/main.f90 b/app/main.f90
@@ -0,0 +1,18 @@
+program main
+    use forsus, only: Substance
+    use forsus__available, only: show_available
+
+    type(Substance) :: sus
+    character(len=50) :: nam
+
+    call show_available(nam)
+    sus = Substance(nam)
+
+
+    print *, nam
+    print *, sus%critical%critical_temperature%name, sus%critical%critical_temperature%value
+
+    print *, "UNIFAC-VLE"
+    print *, sus%unifac_vle%ids
+    print *, sus%unifac_vle%counts
+end program
diff --git a/src/forsus.F90 b/src/forsus.F90
@@ -3,6 +3,7 @@ module forsus
     use forsus_constants
     use forsus_properties
     use forsus_substance
+    use forsus__available
 
     character(len=*), parameter :: version = VERSION
-end module
+end module
diff --git a/test/test_available.f90 b/test/test_available.f90
@@ -0,0 +1,4 @@
+program main
+   use forsus__available, only: show_available
+   call show_available
+end program