Merge pull request #212 from victorkemp/link9_speedup_init_loop

LINK9 speedup

Author: zchlrnr

Source/LK9/L92/OFP2.f90

@@ -179,10 +179,8 @@ SUBROUTINE OFP2 ( JVEC, WHAT, SC_OUT_REQ, ZERO_GEN_STIFF, FEMAP_SET_ID, ITG, OT4
             ENDDO
          ENDIF
 
-         DO I=1,NDOFS
-            QSK_COL = ZERO
-            QSM_COL = ZERO
-         ENDDO
+         QSK_COL = ZERO
+         QSM_COL = ZERO
 
          IF ((SOL_NAME(1:8) == 'BUCKLING') .AND. (LOAD_ISTEP == 2)) THEN
             IF (NTERM_KFSD > 0) THEN                          ! Calc QSK = KSFD*UF