anchor.diff:      DO i=1,SIZ
           READ(LoadUnit,*) InputLoad(i,1),InputLoad(i,2)
           InputLoad(i,2) = InputLoad(i,2)*5.0D+04
  -        DO j=1,79
  -            IF( i == SIZ) EXIT
  -            READ(LoadUnit,*) temp1,temp2
  -        ENDDO
  +!        DO j=1,9
  +!            IF( i == SIZ) EXIT
  +!            READ(LoadUnit,*) temp1,temp2
  +!        ENDDO
   !WRITE(*,*) InputLoad(i,:)
       ENDDO
       CLOSE (LoadUnit)
  
positive.code:    Integer(IntKi)                     :: temp_count
     INTEGER(IntKi),PARAMETER:: QiHUnit = 30
     INTEGER(IntKi),PARAMETER:: LoadUnit = 40
     INTEGER(IntKi),PARAMETER:: SIZ = 2501
     REAL(ReKi):: InputLoad(SIZ,2)
  
  
  
negative.code: 
     ! specify time increment; currently, all modules will be time integrated with this increment size
  !   dt_global = 1.0D-03
     dt_global = 5.0D-04
  
     n_t_final = ((t_final - t_initial) / dt_global )
  
  