Comment cleanup

Ben-Mertz · Sep 20, 2019 · 1ca7f47 · 1ca7f47
1 parent 4d9f4d5
commit 1ca7f47
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Source/Functions.f90 b/Source/Functions.f90
@@ -47,7 +47,7 @@ REAL FUNCTION PIController(error, kp, ki, minValue, maxValue, DT, I0, reset, ins
     !
         IMPLICIT NONE
 
-        ! Inputs
+        ! Allocate Inputs
         REAL(4), INTENT(IN)         :: error
         REAL(4), INTENT(IN)         :: kp
         REAL(4), INTENT(IN)         :: ki
@@ -58,7 +58,7 @@ REAL FUNCTION PIController(error, kp, ki, minValue, maxValue, DT, I0, reset, ins
         REAL(4), INTENT(IN)         :: I0
         LOGICAL, INTENT(IN)         :: reset
 
-        ! Local
+        ! Allocate local variables
         INTEGER(4)                      :: i                                            ! Counter for making arrays
         REAL(4)                         :: PTerm                                        ! Proportional term
         REAL(4), DIMENSION(99), SAVE    :: ITerm = (/ (real(9999.9), i = 1,99) /)       ! Integral term, current.