documentation done. 12_02_2025

ipqa-research · Feb 12, 2025 · d27d525 · d27d525
1 parent eb79532
commit d27d525
Show file tree

Hide file tree

Showing 11 changed files with 953 additions and 541 deletions.
diff --git a/app/main.f90 b/app/main.f90
@@ -5,16 +5,13 @@ program main
    implicit none
 
    type(FluidDataOut) :: fluid_to_characterize
-
-   fluid_to_characterize=characterize(file='YPF2.nml',mw_source="experimental",&
-         method = "plus_mw", pho_method = 1 , fix_C=.true., eos='PR')
-
+
+   fluid_to_characterize=characterize(file='YPF2.nml', mw_source="experimental",&
+      method = "plus_mw", rho_method = 1 , fix_C=.TRUE., eos='PR')
+
+   call general_result( fluid_to_characterize)
    write(*, *) fluid_to_characterize
 
-   print*, fluid_to_characterize%C, fluid_to_characterize%a, fluid_to_characterize%b, &
-           fluid_to_characterize%plus_mw, fluid_to_characterize%plus_z
-   print*, fluid_to_characterize%c_max
-
 end program main