fortitude --fix

Author: Debraheem

interp_2d/private/bipm_db.f90

@@ -94,7 +94,7 @@ subroutine do_evbipm_db(xget, yget, x, nx, y, ny, fin1, nf2, f, ierr)
 
       ynew(1) = yget
       if (jy == 1) then
-         jlo = 1; ; ii = 1
+         jlo = 1;  ii = 1
       else if (jy >= ny - 1) then
          jlo = jy - 2; ii = 3
       else

interp_2d/private/bipm_sg.f90

@@ -92,7 +92,7 @@ subroutine do_evbipm_sg(xget, yget, x, nx, y, ny, fin1, nf2, f, ierr)
 
       ynew(1) = yget
       if (jy == 1) then
-         jlo = 1; ; ii = 1
+         jlo = 1;  ii = 1
       else if (jy >= ny - 1) then
          jlo = jy - 2; ii = 3
       else

star/private/read_model.f90

@@ -621,10 +621,10 @@ subroutine read1_model( &
                j=j+1; j_rot(k) = vec(j)
             end if
             if (s% D_omega_flag) then
-               j=j+1;  ! skip saving the file data
+               j=j+1  ! skip saving the file data
             end if
             if (s% am_nu_rot_flag) then
-               j=j+1;  ! skip saving the file data
+               j=j+1  ! skip saving the file data
             end if
             if (s% u_flag) then
                j=j+1; xh(i_u,k) = vec(j)

star/private/rotation_mix_info.f90

@@ -1172,7 +1172,7 @@ subroutine set_ST(s, &
 
          xmageta0 = 0; xmageta1 = 0; xmagetam = 0
          xmagq0 = 0; xmagq1 = 0; xmagqm = 0
-         xmags0 = 0; xmags1 = 0; xmagsm = 0;
+         xmags0 = 0; xmags1 = 0; xmagsm = 0
 
          do k = 2, nz-1