Hi, I've no knowledge of Fortran but am researching its (theoretical) use to perform a 'cross- referencing' function on data in a four column array of one million rows. The program matches data in column A to Column D by referencing the matching values in columns B and C.(adsbygoogle = window.adsbygoogle || []).push({});

Here's the program I'm using - could anyone convert this to Fortran and could this in, in practice, run on Fujitsu's K (10 teraflops) computer. If so, how long would it take the K to perform this task - I've calculated 12.93 hrs from tests on a typical office PC? With thanks.

Sub AddCodes()

Dim x As Long, LastRow As Long, UB As Long, BList As Variant

Const StartRow As Long = 1

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

BList = Join(WorksheetFunction.Transpose(Cells(StartRow, "B").Resize(LastRow - StartRow + 1)), "/")

' Application.ScreenUpdating = False

For x = StartRow To LastRow

UB = UBound(Split(Split(BList, Cells(x, "C").Value)(0), "/"))

If UB >= 0 Then

With Cells(x, "D")

.Value = .Value & "," & Range("A1").Offset(UB).Value

If Left(.Value, 1) = "," Then .Value = Mid(.Value, 2)

.Interior.ColorIndex = 6

.Font.Bold = True

End With

End If

Next

Application.ScreenUpdating = True

End With

End Sub

**Physics Forums | Science Articles, Homework Help, Discussion**

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Converting VBA to Fortran

**Physics Forums | Science Articles, Homework Help, Discussion**