fixing long lines in Fortran

Author: zdaq12

src/scenario.F90

@@ -39,7 +39,13 @@ subroutine f_scenario_from_json(gas_ptr_c, aer_ptr_c, ptr_c) bind(C)
     call spec_file_read_scenario(file, gas_ptr_f, aer_ptr_f, ptr_f)
   end subroutine
 
-  subroutine f_scenario_loss_rate(scenario_ptr_c, vol, density, aero_data_ptr_c, env_state_ptr_c, rate) bind (C)
+  subroutine f_scenario_loss_rate( &
+    scenario_ptr_c, vol, &
+    density, aero_data_ptr_c, &
+    env_state_ptr_c, &
+    rate &
+  ) bind (C)
+
     type(scenario_t), pointer :: scenario_ptr_f => null()
     type(aero_data_t), pointer :: aero_data_ptr_f => null()
     type(env_state_t), pointer :: env_state_ptr_f => null()
@@ -51,11 +57,24 @@ subroutine f_scenario_loss_rate(scenario_ptr_c, vol, density, aero_data_ptr_c, e
     call c_f_pointer(aero_data_ptr_c, aero_data_ptr_f)
     call c_f_pointer(env_state_ptr_c, env_state_ptr_f)
 
-    rate = scenario_loss_rate(scenario_ptr_f, vol, density, aero_data_ptr_f, env_state_ptr_f)
+    rate = scenario_loss_rate( &
+      scenario_ptr_f, &
+      vol, &
+      density, &
+      aero_data_ptr_f, &
+      env_state_ptr_f &
+    )
 
   end subroutine
 
-  subroutine f_scenario_loss_rate_dry_dep(vol, density, aero_data_ptr_c, env_state_ptr_c, rate) bind(C)
+  subroutine f_scenario_loss_rate_dry_dep( &
+    vol, &
+    density, &
+    aero_data_ptr_c, &
+    env_state_ptr_c, &
+    rate &
+  ) bind(C)
+
     type(aero_data_t), pointer :: aero_data_ptr_f => null()
     type(env_state_t), pointer :: env_state_ptr_f => null()
     real(c_double), intent(in) :: vol, density
@@ -65,7 +84,12 @@ subroutine f_scenario_loss_rate_dry_dep(vol, density, aero_data_ptr_c, env_state
     call c_f_pointer(aero_data_ptr_c, aero_data_ptr_f)
     call c_f_pointer(env_state_ptr_c, env_state_ptr_f)
 
-    rate = scenario_loss_rate_dry_dep(vol, density, aero_data_ptr_f, env_state_ptr_f)
+    rate = scenario_loss_rate_dry_dep( &
+      vol, &
+      density, &
+      aero_data_ptr_f, &
+      env_state_ptr_f &
+    )
 
   end subroutine