something like this?:program WSUPhys_csv
implicit none
integer :: stat,cmd_rc,num_lines, ivar1, ivar2, ivar3
integer :: MaxVert,MaxSide,MaxForward
real :: rvar, Sum_ivar1, Sum_ivar2, Sum_ivar3
real :: Avg_ivar1, Avg_ivar2, Avg_ivar3,Vel, SumVel, MaxVel
real ...