Fixed typos

src/define_bcs/define_bc_segmented_s-line.f90

@@ -11,12 +11,12 @@
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 !                                                                              |
-!              DEFINE_BC_SEGMENTED_S-LINE   Feb. 2009                          |
+!              DEFINE_BC_SEGMENTED_S_LINE   Feb. 2009                          |
 !                                                                              |
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
 
-subroutine define_bc_segmented_s-line(params,osolve,vo,bcdef,nest) 
+subroutine define_bc_segmented_s_line(params,osolve,vo,bcdef,nest) 
 
 !------------------------------------------------------------------------------|
 !((((((((((((((((  Purpose of the routine  )))))))))))))))))))))))))))))))))))))
@@ -190,7 +190,7 @@ do i=1,osolve%nnode
   if (abs(bcdef%utrans).gt.eps) then
     osolve%u(i)=osolve%u(i)+bcdef%utrans
   endif
-  if (abs(bcdef%vtrans.gt.eps) then
+  if (abs(bcdef%vtrans).gt.eps) then
     osolve%v(i)=osolve%v(i)+bcdef%vtrans
   endif
   osolve%u(i)=osolve%u(i)*vin
@@ -205,4 +205,4 @@ endif
 deallocate(x0)
 
 end
-!------------------------------------------------------------------------------|
+!------------------------------------------------------------------------------|
\ No newline at end of file