...:: ITM(:)
CHARACTER(7) :: ITEM
INTEGER :: count=0, ierror=0, i, YEAR, JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC
WRITE(*,'*) "READING FILE LENGTH....."
OPEN(UNIT=20, FILE="ITEMHIST.CSV", STATUS="old", IOSTAT=ierror)
IF (ierror/=0) STOP "Error opening file"
DO...